testsuite/runtest.main/pr53427.exp

   1 # Copyright (C) 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 # This file is a regression test for PR53427, where the running count of
  20 # errors (and warnings) propagates from one test file to the next.  This
  21 # causes the first test in the second file to be spuriously UNRESOLVED.
  22
  23 runtest_setup_nested_testsuite
  24
  25 proc test_pr53427 {} {
  26     global RUNTEST
  27
  28     foreach test_mode {error warning} {
  29         set result unresolved
  30         set pass_count 0
  31         set cmd_args [list --local_init nested-init.exp --tool pr53427 \
  32                          -a MODE=$test_mode]
  33
  34         verbose -log "Spawning $RUNTEST $cmd_args ..."
  35         eval [list spawn $RUNTEST] $cmd_args
  36         expect {
  37             -re { of expected passes[[:space:]]+([[:digit:]]+)[\r\n]+} {
  38                 set pass_count $expect_out(1,string)
  39                 exp_continue
  40             }
  41             -re { of unresolved testcases} {
  42                 set result fail
  43                 exp_continue
  44             }
  45         }
  46         # Were the expected number of passed tests reported?
  47         if { $result eq "unresolved" && $pass_count == 4 } { set result pass }
  48         # emit test result
  49         $result "PR53427 test for $test_mode isolation between test files"
  50     }
  51 }
  52
  53 test_pr53427
  54
  55 runtest_cleanup_nested_testsuite