if [info exists $file] {puts [test_log] "Deleting $file"
file delete $file}
}
- }
+ } {
+ # signal to a caller that we had failures
+ exit 1
+ }
}
#
# Вовзращает идентификатор канала, куда пишется лог тестов.
set timestamp "$teststart+[expr $testend-$teststart]"
}
}
- if {$status!=$exitStatus || ($status==1?![regexp --\
+ if {($exitStatus!=-1 && $status!=$exitStatus) ||
+ ($exitStatus!=0?![regexp --\
[rus $expectedResult] $result]:([info exists opts(-time)]?\
![listcompare $result $expectedResult $opts(-time)]:\
[string compare "$result" "$expectedResult"]))} {
puts -nonewline [rus [format "Тест%5d: %-60s:" $no [string range $testname 0 59]]]
flush stdout
set curtest $testname
- log [rus "Тест $no: $testname start"]
+ log [rus "\n\nТест $no: $testname start"]
}
#
# Вызывается при пропуске теста