testsuite/launcher.all/help.exp

   1 # Copyright (C) 2018, 2021 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 Jacob Bachmeyer.
  20
  21 # each element: { name args envars exit_code output_re... }
  22 set tests {
  23     { "dejagnu help selects dejagnu(1) manpage"
  24         {help -v} {MANPAGER=echo PAGER=echo} 0
  25         "Forwarding to man \".*doc/dejagnu\\.1\"" }
  26     { "dejagnu help help selects dejagnu-help(1) manpage"
  27         {help -v help} {MANPAGER=echo PAGER=echo} 0
  28         "Forwarding to man \".*doc/dejagnu-help\\.1\"" }
  29 }
  30
  31 if { ![file isdirectory [file join [file dirname $LAUNCHER] commands]] } {
  32     skip_dejagnu_launcher_tests \
  33         "The 'commands' directory is not present in the source tree." \
  34         unsupported $tests
  35 } elseif { [istarget *-*-solaris*] } {
  36     skip_dejagnu_launcher_tests \
  37         "The 'man' command in Solaris does not work in the source tree." \
  38         unsupported $tests
  39 } else {
  40     run_dejagnu_launcher_tests $LAUNCHER $tests
  41 }
  42
  43 #EOF