diff options
| author | Rob Savoye <rob@welcomehome.org> | 2002-07-16 23:06:20 +0000 |
|---|---|---|
| committer | Rob Savoye <rob@welcomehome.org> | 2002-07-16 23:06:20 +0000 |
| commit | 103afb2b6182ddd01aa24488458f9b9f3af395df (patch) | |
| tree | 704c01b4e3bb93e63521d31d420852e884d2bff7 /lib/framework.exp | |
| parent | bc533f9470550fa6109226fe00abb138396b1f26 (diff) | |
| download | dejagnu-103afb2b6182ddd01aa24488458f9b9f3af395df.zip dejagnu-103afb2b6182ddd01aa24488458f9b9f3af395df.tar.gz dejagnu-103afb2b6182ddd01aa24488458f9b9f3af395df.tar.bz2 | |
Mostly new Makefiles cause I reran automake.
Diffstat (limited to 'lib/framework.exp')
| -rw-r--r-- | lib/framework.exp | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lib/framework.exp b/lib/framework.exp index 59133b5..d2e1edb 100644 --- a/lib/framework.exp +++ b/lib/framework.exp @@ -24,7 +24,7 @@ set warning_threshold 3 # This or more errors and a test fails. set perror_threshold 1 - + proc mail_file { file to subject } { if [file readable $file] { catch "exec mail -s \"$subject\" $to < $file" @@ -473,7 +473,7 @@ proc cleanup {} { #catch "exec rm -f [glob xgdb core *.x *.o *_soc a.out]" #catch "exec rm -f [glob -nocomplain $subdir/*.o $subdir/*.x $subdir/*_soc]" } - + # # Setup a flag to control whether a failure is expected or not # @@ -720,6 +720,7 @@ proc record_test { type message args } { global expect_out set output "" + set output "expect_out(buffer)" xml_output " <test>" xml_output " <log>$output</log>" xml_output " <result>$type</result>" @@ -915,7 +916,7 @@ proc kfail { bugid message } { set kfail_prms $bugid record_test KFAIL $message } - + # # Set warning threshold # @@ -993,7 +994,7 @@ proc note { message } { # unset errorInfo #} } - + # # untested -- mark the test case as untested # @@ -1067,7 +1068,7 @@ proc incr_count { name args } { } } - + # # Create an exp_continue proc if it doesn't exist # |