equal
deleted
inserted
replaced
1 # 2001 September 15 |
1 # 2001 September 15 |
2 # |
2 # |
3 # Portions Copyright (c) 2007-2010 Nokia Corporation and/or its subsidiaries. All rights reserved. |
3 # Portions Copyright (c) 2007-2008 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" |
|
254 if {$nErr>$maxErr} {puts "*** Giving up..."; finalize_testing} |
253 if {$nErr>$maxErr} {puts "*** Giving up..."; finalize_testing} |
255 } elseif {[string compare $result $expected]} { |
254 } elseif {[string compare $result $expected]} { |
256 puts "\nExpected: \[$expected\]\n Got: \[$result\]" |
255 puts "\nExpected: \[$expected\]\n Got: \[$result\]" |
257 # Symbian OS: Set and increase error count with do_fail procedure (definition in Tester.tcl) |
256 # Symbian OS: Set and increase error count with do_fail procedure (definition in Tester.tcl) |
258 do_fail $name |
257 do_fail $name |
259 print_text $name "FAILED" |
|
260 if {$nErr>=$maxErr} {puts "*** Giving up..."; finalize_testing} |
258 if {$nErr>=$maxErr} {puts "*** Giving up..."; finalize_testing} |
261 } else { |
259 } else { |
262 puts " Ok" |
260 puts " Ok" |
263 print_text $name "OK" |
|
264 } |
261 } |
265 flush stdout |
262 flush stdout |
266 if {[info exists ::tester_do_binarylog]} { |
263 if {[info exists ::tester_do_binarylog]} { |
267 sqlite3_instvfs marker binarylog "End of $name" |
264 sqlite3_instvfs marker binarylog "End of $name" |
268 } |
265 } |