persistentstorage/sqlite3api/TEST/TclScript/tester.tcl
branchRCL_3
changeset 24 cc28652e0254
parent 23 26645d81f48d
--- a/persistentstorage/sqlite3api/TEST/TclScript/tester.tcl	Tue Aug 31 16:57:14 2010 +0300
+++ b/persistentstorage/sqlite3api/TEST/TclScript/tester.tcl	Wed Sep 01 12:39:58 2010 +0100
@@ -1,6 +1,6 @@
 # 2001 September 15
 #
-# Portions Copyright (c) 2007-2010 Nokia Corporation and/or its subsidiaries. All rights reserved.
+# Portions Copyright (c) 2007-2008 Nokia Corporation and/or its subsidiaries. All rights reserved.
 #
 # The author disclaims copyright to this source code.  In place of
 # a legal notice, here is a blessing:
@@ -250,17 +250,14 @@
     puts "\nError: $result"
     # Symbian OS: Set and increase error count with do_fail procedure (definition in Tester.tcl)
     do_fail $name 
-    print_text $name "FAILED"  
     if {$nErr>$maxErr} {puts "*** Giving up..."; finalize_testing}
   } elseif {[string compare $result $expected]} {
     puts "\nExpected: \[$expected\]\n     Got: \[$result\]"
     # Symbian OS: Set and increase error count with do_fail procedure (definition in Tester.tcl)
     do_fail $name 
-    print_text $name "FAILED"  
     if {$nErr>=$maxErr} {puts "*** Giving up..."; finalize_testing}
   } else {
     puts " Ok"
-    print_text $name "OK"  
   }
   flush stdout
   if {[info exists ::tester_do_binarylog]} {