testsuite/simple.exp

   1
   2 load_lib "dejagnu.exp"
   3
   4
   5 # If tracing has been enabled at the top level, then turn it on here
   6 # too.
   7 if $tracelevel {
   8     strace $tracelevel
   9 }
  10
  11 # After these many seconds of execution the test script is aborted with a failure.
  12 # This is to handle deadlocks. We don't reset the timeout when a match is
  13 # found to avoid hanging in case of a testcase sending matches in an infinite loops.
  14 # (not unlikely as it seems, think about flash movies...)
  15 #
  16 # Expressed in seconds.
  17 #
  18 set timeout 600
  19 set file all
  20 set params ""
  21
  22 global env
  23 set env(LANG) en_US.UTF-8
  24 set env(LANGUAGE) en_US.UTF-8
  25 set env(LC_ALL) en_US.UTF-8
  26
  27 # testcases is set by the Makefile in the site.exp data file.
  28 foreach file $testcases {
  29
  30     verbose "Running test $file"
  31
  32     # spawn the executable and look for the DejaGnu output messages from the
  33     # test case.
  34
  35     # this version of the call allows use of 'wait' to check return code
  36     # -open [open "|cmd" "r"] doesn't work for that
  37
  38     # Ignore SIGHUP or we'd get a lot of them on Debian stable
  39     spawn -noecho -ignore SIGHUP ./$file
  40
  41     expect {
  42         -re "^\[^\n]*NOTE:\[^\n]*\n" {
  43             regsub ".*NOTE: " $expect_out(0,string) "" output
  44             set output [string range $output 0 end-2]
  45             verbose "${file} $output"
  46             # notes tipically come from the test runner, so we'll trust it to mean
  47             # things are someone not too bad...
  48             # -continue_timer
  49             exp_continue
  50         }
  51         -re "^\[^\n]*XPASSED:\[^\n]*\n" {
  52             regsub ".*XPASSED: " $expect_out(0,string) "" output
  53             set output [string range $output 0 end-2]
  54             xpass "${file}: $output"
  55             exp_continue -continue_timer
  56         }
  57         -re "^\[^\n]*PASSED:\[^\n]*\n" {
  58             regsub ".*PASSED: " $expect_out(0,string) "" output
  59             set output [string range $output 0 end-2]
  60             pass "${file}: $output"
  61             exp_continue -continue_timer
  62         }
  63         -re "^\[^\n]*XFAILED:\[^\n]*\n" {
  64             regsub ".*XFAILED: " $expect_out(0,string) "" output
  65             set output [string range $output 0 end-2]
  66             xfail "${file}: $output"
  67             exp_continue -continue_timer
  68         }
  69         -re "^\[^\n]*FAILED:\[^\n]*\n" {
  70             regsub ".*FAILED: " $expect_out(0,string) "" output
  71             set output [string range $output 0 end-2]
  72             fail "${file}: $output"
  73             exp_continue -continue_timer
  74         }
  75         -re "^\[^\n]*UNTESTED:\[^\n]*\n" {
  76             regsub ".*UNTESTED: " $expect_out(0,string) "" output
  77             set output [string range $output 0 end-2]
  78             untested "${file}: $output"
  79             exp_continue -continue_timer
  80         }
  81         -re "^\[^\n]*UNRESOLVED:\[^\n]*\n" {
  82             regsub ".*UNRESOLVED: " $expect_out(0,string) "" output
  83             set output [string range $output 0 end-2]
  84             unresolved "${file}: $output"
  85             exp_continue -continue_timer
  86         }
  87         -re "^\[^\n]*\n" {
  88             # just remove non-matching lines!
  89             exp_continue -continue_timer
  90         }
  91         eof {
  92             #       unresolved "${file} died prematurely"
  93             #       catch close
  94             #       return "${file} died prematurely"
  95         }
  96         timeout {
  97                 fail "Test case ${file} still running after ${timeout} seconds, killing it (deadlock?)"
  98                 catch close
  99                 continue;
 100         }
 101    }
 102
 103         # wait for the process to coplete to
 104         # check return code
 105         set retcode [wait]
 106
 107         # debugging
 108         #set i 0; foreach j $retcode { print "${file} wait($i) $j"; incr i }
 109
 110         # This snippet catches segfaults and aborts.
 111         # Would also catch SIGHUP, but we're ignoring them
 112         # as on Debian Stable we unexpectedly get them for no apparent reason
 113         #
 114         if { [ llength $retcode ] > 5 } {
 115                 fail "${file} died prematurely ([lindex $retcode 6])"
 116         }
 117
 118         # This snippet catches non-zero returns
 119         if { [ lindex $retcode 3 ] != 0 } {
 120                 fail "${file} exited with non-zero code ([lindex $retcode 3])"
 121         }
 122
 123
 124
 125     # force a close of the executable to be safe.
 126     catch close
 127 }
 128
 129