testsuite/runtest.main/options.exp

   1 # Copyright (C) 1992-2016, 2018, 2020 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         "Running target flash"
  53         "--target_board option" }
  54     { "-v --host sparc-sun-sunos4.1.9"
  55         "Native configuration is sparc-sun-sunos4.1.9"
  56         "--host option" }
  57     { "-v -a"
  58         "Print all test output to screen"
  59         "--all option (short form)" }
  60     { "-v --all"
  61         "Print all test output to screen"
  62         "--all option" }
  63     { "-v --ignore foo.exp"
  64         "Ignoring test foo.exp"
  65         "--ignore option" }
  66     { "-v --objdir xXx"
  67         "Using test binaries in xXx"
  68         "--objdir option" }
  69     { "-v --tool xXx"
  70         "Testing xXx"
  71         "--tool option" }
  72     { "-v --debug"
  73         "Expect Debugging is ON"
  74         "--debug option" }
  75     { "-v --reboot"
  76         "Will reboot the target"
  77         "--reboot option" }
  78     { "-v --strace 1"
  79         "Source Trace level is now 1.* 1  if"
  80         "--strace option" }
  81     { "-v --D0"
  82         "Tcl debugger is ON"
  83         "--D0 option" }
  84     { "-V"
  85         "DejaGnu version.*Expect version.*Tcl version.*"
  86         "-V option" }
  87     { "--version"
  88         "DejaGnu version.*Expect version.*Tcl version.*"
  89         "--version option" }
  90     { "-v --xml"
  91         "XML logging turned on"
  92         "--xml option" }
  93 }
  94
  95 foreach t $tests {
  96     if [util_test $RUNTEST \
  97             "[lindex $t 0] --local_init nested-init.exp --tool null" \
  98             "" \
  99             "[lindex $t 1]"] {
 100         fail "[lindex $t 2]"
 101     } else {
 102         pass "[lindex $t 2]"
 103     }
 104 }
 105
 106 runtest_cleanup_nested_testsuite