testsuite/runtest.main/options.exp

   1 # Copyright (C) 1992-2016, 2018, 2020, 2023 Free Software Foundation, Inc.
   2 #
   3 # This file is part of DejaGnu.
   4 #
   5 # DejaGnu is free software; you can redistribute it and/or modify it
   6 # under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # DejaGnu is distributed in the hope that it will be useful, but
  11 # WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13 # General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with DejaGnu; if not, write to the Free Software Foundation,
  17 # Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
  18
  19 # This file was written by Rob Savoye <rob@welcomehome.org>.
  20
  21 load_lib util-defs.exp
  22
  23 runtest_setup_nested_testsuite
  24
  25 #
  26 # Set up the list.
  27 # 1st field is the command line option.
  28 # 2nd field is the pattern to match.
  29 #       NOTE - No variable substitutions can be used.
  30 # 3rd field is an optional message to print with PASS/FAIL.
  31 #
  32
  33 set tests {
  34     { {--help} "USAGE:*" "Display help" }
  35     { {-v -v -v} "Verbose level is 3" "Verbose set correctly" }
  36     { {-v --tool xXx}
  37         "Found.*nested-init\..*Loading.*utils\.exp"
  38         "Loading library files" }
  39     { {-v --tool xXx}
  40         "Expect binary is.*Using.*main test driver"
  41         "Loading basic packages" }
  42     { {--F --tool x}
  43         "Illegal Argument \"--F\""
  44         "Bad argument" }
  45     { {--tool x}
  46         "Couldn't find tool init file"
  47         "Bad tool name" }
  48     { {-v --target m68k-vxworks}
  49         "Target is m68k-vxworks"
  50         "--target option" }
  51     { {-v --target_board flash}
  52         "target list is flash"
  53         "--target_board option with single target" }
  54     { {-v --target_board {flash/ilp32 flash/ilp48 flash/ilp64}}
  55         "target list is flash/ilp32 flash/ilp48 flash/ilp64"
  56         "--target_board option with multiple targets" }
  57     { {-v --host sparc-sun-sunos4.1.9}
  58         "Native configuration is sparc-sun-sunos4.1.9"
  59         "--host option" }
  60     { {-v -a}
  61         "Print all test output to screen"
  62         "--all option (short form)" }
  63     { {-v --all}
  64         "Print all test output to screen"
  65         "--all option" }
  66     { {-v --ignore foo.exp}
  67         "Ignoring test foo.exp"
  68         "--ignore option" }
  69     { {-v --objdir xXx}
  70         "Using test binaries in xXx.*Testsuite root is"
  71         "--objdir option" }
  72     { {-v --tool xXx}
  73         "Testing xXx"
  74         "--tool option" }
  75     { {-v --debug}
  76         "Expect Debugging is ON"
  77         "--debug option" }
  78     { {-v --reboot}
  79         "Will reboot the target"
  80         "--reboot option" }
  81     { {-v --strace 1}
  82         "Source Trace level is now 1.* 1  if"
  83         "--strace option" }
  84     { {-v --D0}
  85         "Tcl debugger is ON"
  86         "--D0 option" }
  87     { {-V}
  88         "DejaGnu version.*Expect version.*Tcl version.*"
  89         "-V option" }
  90     { {--version}
  91         "DejaGnu version.*Expect version.*Tcl version.*"
  92         "--version option" }
  93     { {-v --xml}
  94         "XML logging turned on"
  95         "--xml option" }
  96 }
  97
  98 foreach t $tests {
  99     if [util_test $RUNTEST \
 100             "[lindex $t 0] --local_init nested-init.exp --tool null" \
 101             "" \
 102             "[lindex $t 1]"] {
 103         fail "[lindex $t 2]"
 104     } else {
 105         pass "[lindex $t 2]"
 106     }
 107 }
 108
 109 runtest_cleanup_nested_testsuite