"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "testsuite/runtest.all/libs.exp" between
dejagnu-1.6.tar.gz and dejagnu-1.6.1.tar.gz

About: DejaGnu is a framework for testing other programs.

libs.exp  (dejagnu-1.6):libs.exp  (dejagnu-1.6.1)
# Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003 # Copyright (C) 1997-2016 Free Software Foundation, Inc.
# Free Software Foundation, Inc.
# #
# This file is part of DejaGnu. # This file is part of DejaGnu.
# #
# DejaGnu is free software; you can redistribute it and/or modify it # DejaGnu is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by # under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or # the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version. # (at your option) any later version.
# #
# DejaGnu is distributed in the hope that it will be useful, but # DejaGnu is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of # WITHOUT ANY WARRANTY; without even the implied warranty of
skipping to change at line 35 skipping to change at line 34
global objdir global objdir
global EXPECT global EXPECT
verbose "Executing test case $test" verbose "Executing test case $test"
set text "\[- A-Za-z0-9\,\.\;\"\_\:\'\`\(\)\!\#\=\+\?\&\*]*" set text "\[- A-Za-z0-9\,\.\;\"\_\:\'\`\(\)\!\#\=\+\?\&\*]*"
set timeout 150 set timeout 150
if [file exists $test] { if [file exists $test] {
verbose "Processing test $test" 2 verbose "Processing test $test" 2
spawn -open [open "|$EXPECT $test $srcdir $subdir [pwd]" r] set res [catch {
exec -ignorestderr \
$EXPECT $test $srcdir $subdir [pwd] \
> OUTPUT 2>ERROR
}]
if { $res } {
perror "$test failed" 0
set fp [open "OUTPUT" r]
set output [read $fp]
close $fp
puts "$test stdout: >$output<"
set fp [open "ERROR" r]
set error [read $fp]
close $fp
puts "$test stderr: >$error<"
}
spawn -open [open "|cat OUTPUT" r]
expect { expect {
"No such file or directory" { "No such file or directory" {
perror "$test wouldn't run" 0 perror "$test wouldn't run" 0
} }
-re "\[\r\n\]*NOTSUPPORTED: $text\[\r\n\]*" { -re "\[\r\n\]*NOTSUPPORTED: $text\[\r\n\]*" {
unsupported "[lrange $expect_out(0,string) 1 end]" unsupported "[lrange $expect_out(0,string) 1 end]"
exp_continue exp_continue
} }
-re "\[\r\n\]*NOTTESTED: $text\[\r\n\]*" { -re "\[\r\n\]*NOTTESTED: $text\[\r\n\]*" {
untested "[lrange $expect_out(0,string) 1 end]" untested "[lrange $expect_out(0,string) 1 end]"
skipping to change at line 72 skipping to change at line 90
exp_continue exp_continue
} }
timeout { timeout {
perror "$test timed out" 0 perror "$test timed out" 0
exp_continue exp_continue
} }
eof { eof {
verbose "All Done" 3 verbose "All Done" 3
} }
} }
file delete OUTPUT ERROR
} else { } else {
perror "$test doesn't exist" 0 perror "$test doesn't exist" 0
} }
} }
if ![info exists EXPECT] { if ![info exists EXPECT] {
set EXPECT [findfile $base_dir/../../expect/expect "$base_dir/../../expect/e xpect" expect] set EXPECT [findfile $base_dir/../../expect/expect "$base_dir/../../expect/e xpect" expect]
verbose "EXPECT defaulting to $EXPECT" 2 verbose "EXPECT defaulting to $EXPECT" 2
} }
 End of changes. 3 change blocks. 
3 lines changed or deleted 22 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)