equal
deleted
inserted
replaced
1 # 2001 September 15 |
1 # 2001 September 15 |
2 # |
2 # |
3 # Portions Copyright (c) 2007-2008 Nokia Corporation and/or its subsidiaries. All rights reserved. |
3 # Portions Copyright (c) 2007-2010 Nokia Corporation and/or its subsidiaries. All rights reserved. |
4 # |
4 # |
5 # The author disclaims copyright to this source code. In place of |
5 # The author disclaims copyright to this source code. In place of |
6 # a legal notice, here is a blessing: |
6 # a legal notice, here is a blessing: |
7 # |
7 # |
8 # May you do good and not evil. |
8 # May you do good and not evil. |
248 flush stdout |
248 flush stdout |
249 if {[catch {uplevel #0 "$cmd;\n"} result]} { |
249 if {[catch {uplevel #0 "$cmd;\n"} result]} { |
250 puts "\nError: $result" |
250 puts "\nError: $result" |
251 # Symbian OS: Set and increase error count with do_fail procedure (definition in Tester.tcl) |
251 # Symbian OS: Set and increase error count with do_fail procedure (definition in Tester.tcl) |
252 do_fail $name |
252 do_fail $name |
|
253 print_text $name "FAILED" |
253 if {$nErr>$maxErr} {puts "*** Giving up..."; finalize_testing} |
254 if {$nErr>$maxErr} {puts "*** Giving up..."; finalize_testing} |
254 } elseif {[string compare $result $expected]} { |
255 } elseif {[string compare $result $expected]} { |
255 puts "\nExpected: \[$expected\]\n Got: \[$result\]" |
256 puts "\nExpected: \[$expected\]\n Got: \[$result\]" |
256 # Symbian OS: Set and increase error count with do_fail procedure (definition in Tester.tcl) |
257 # Symbian OS: Set and increase error count with do_fail procedure (definition in Tester.tcl) |
257 do_fail $name |
258 do_fail $name |
|
259 print_text $name "FAILED" |
258 if {$nErr>=$maxErr} {puts "*** Giving up..."; finalize_testing} |
260 if {$nErr>=$maxErr} {puts "*** Giving up..."; finalize_testing} |
259 } else { |
261 } else { |
260 puts " Ok" |
262 puts " Ok" |
|
263 print_text $name "OK" |
261 } |
264 } |
262 flush stdout |
265 flush stdout |
263 if {[info exists ::tester_do_binarylog]} { |
266 if {[info exists ::tester_do_binarylog]} { |
264 sqlite3_instvfs marker binarylog "End of $name" |
267 sqlite3_instvfs marker binarylog "End of $name" |
265 } |
268 } |