testsuite/runtest.main/nested/testsuite/stat.test/stats-sub.exp

   1 # Copyright (C) 1997-2016, 2022 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 # Subordinate to stats.exp.
  20
  21 # If not called by stats.exp, quit now.
  22 if { ![info exists STATS_TEST] } {
  23     return
  24 }
  25
  26 for {set i 0} {$i < $ERROR_COUNT} {incr i} { perror "test error $i" }
  27 for {set i 0} {$i < $WARNING_COUNT} {incr i} { warning "test warning $i" }
  28
  29 switch $STATS_TEST {
  30     pass { pass "pass test" }
  31     fail { fail "fail test" }
  32     xpass { xpass "xpass test" }
  33     xfail { xfail "xfail test" }
  34     kpass { kpass "somebug" "kpass test" }
  35     kfail { kfail "somebug" "kfail test" }
  36     untested { untested "untested test" }
  37     unresolved { unresolved "unresolved test" }
  38     unsupported { unsupported "unsupported test" }
  39 }