Changeset 98b2d1b in tol

Timestamp:

Jan 7, 2009, 5:57:34 PM (18 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

f6b0bd0

Parents:

52c2486

Message:

removing puts

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@398 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/stdlib/general/tol_tests/_toltclTester.tcl (modified) (3 diffs)

tol/stdlib/general/tol_tests/_toltclTester.tcl

@@ -21 +21 @@
   puts $fd "tt_result;$E;$W;$quality;\"$desc\";"
   close $fd
-  puts "toltcl test ended with: [HowE $E], [HowW $W] and quality [expr {$quality*100}] %"
+  #puts "toltcl test ended with: [HowE $E], [HowW $W] and quality [expr {$quality*100}] %"
 }
 
@@ -44 +44 @@
 set version "1.1.7"
 
-puts "Loading Toltcl $version ... "
+#puts "Loading Toltcl $version ... "
 if {[catch {
   package require -exact Toltcl $version
@@ -58 +58 @@
   return
 }
-puts "Toltcl $version loaded"
+#puts "Toltcl $version loaded"
 
 set tol_E0 [GetTolValue NError]
 set tol_W0 [GetTolValue NWarning]
 namespace eval _toltcl_test {
-  puts "Running Toltcl test $test_file ...."
+  #puts "Running Toltcl test $test_file ...."
   if {[catch {source $test_file} msg]} {
     WriteTestBst $result_bst 0 "fail while sourcing $test_file : $msg"