Changeset 3b484b8 in tol for tol_tests/toltcl

Timestamp:

Jan 7, 2009, 6:31:16 PM (18 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

c2c4041

Parents:

f6b0bd0

Message:

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

Location:

tol_tests/toltcl/Bugzilla

Files:

• bug_000252/test.tcl (modified) (1 diff)
• bug_000394/test.tcl (modified) (1 diff)
• bug_000407/test.tcl (modified) (1 diff)
• bug_000432/test.tcl (modified) (1 diff)
• bug_000594/test.tcl (modified) (1 diff)

tol_tests/toltcl/Bugzilla/bug_000252/test.tcl

@@ -2 +2 @@
 tol::decompile binormal_MH.tol
 tol::include binormal_MH.tol
-set d1 [lindex [tol::info variable Real d1] 0]
-set d2 [lindex [tol::info variable Real d2] 0]
+set d1 [lindex [tol::info variable [list Real d1] ] 0]
+set d2 [lindex [tol::info variable [list Real d2] ] 0]
 set quality 1.0
 set partial "d1 = $d1, d2 = $d2"

tol_tests/toltcl/Bugzilla/bug_000394/test.tcl

@@ -3 +3 @@
 tol::include bug_394.tol
 set quality 1.0
-set partial "[tol::info variable TimeSet SegSemPV]"
+set partial "[tol::info variable [list TimeSet SegSemPV ] ]"

tol_tests/toltcl/Bugzilla/bug_000407/test.tcl

@@ -9 +9 @@
 }
 set quality 1.0
-set partial "[tol::info variable TimeSet tms2]"
+set partial "[tol::info variable [list TimeSet tms2] ]"

tol_tests/toltcl/Bugzilla/bug_000432/test.tcl

@@ -5 +5 @@
 
 set quality 1.0
-set partial [tol::info variable Set a_]
+set partial [tol::info variable [list Set a_ ] ]

tol_tests/toltcl/Bugzilla/bug_000594/test.tcl

@@ -10 +10 @@
 tol::console stack release
 
-if {[catch {tol::info var Serie b}]} {
+if {[catch {tol::info var [list Serie b] }]} {
   set quality 1.0
   set partial "Serie b does not exist, as it should be"