Changeset 424 for trunk/src/tcl/tests/isa.test

Timestamp:

May 1, 2006 11:16:11 PM (18 years ago)

Author:

dkearney

Message:

added some changes for tcl bindings that i've been holding onto for the last few weeks, still testing and changing.

File:

• trunk/src/tcl/tests/isa.test (modified) (2 diffs)

trunk/src/tcl/tests/isa.test

@@ -19 +19 @@
 }
 catch {unset lib}
+set lib [Rappture::library rplib_test.xml]
 
 #----------------------------------------------------------
@@ -25 +26 @@
 #----------------------------------------------------------
 test library-7.0.1 {isa command 0 arg} {
-    catch {unset lib}
-    set lib [Rappture::library rplib_test.xml]
     list [catch {$lib isa} msg] $msg
-} {1 {wrong # args: should be "::libraryObj0 isa <objType>"}}
+} {1 {wrong # args: should be "::libraryObj0 isa objType"}}
 test library-7.1.1 {isa command 1 valid arg} {
-    catch {unset lib}
-    set lib [Rappture::library rplib_test.xml]
     $lib isa ::Rappture::LibraryObj
 } {1}
 test library-7.1.2 {isa command 1 invalid arg} {
-    catch {unset lib}
-    set lib [Rappture::library rplib_test.xml]
     $lib isa ::Rappture::Curve
 } {0}
 test library-7.1.3 {isa command 1 invalid arg} {
-    catch {unset lib}
-    set lib [Rappture::library rplib_test.xml]
     $lib isa sdfsdf
 } {0}
 test library-7.2.1 {isa command 2 args} {
-    catch {unset lib}
-    set lib [Rappture::library rplib_test.xml]
     list [catch {$lib isa ::Rappture::LibraryObj ::Rappture::LibraryObj} msg] $msg
-} {1 {wrong # args: should be "::libraryObj4 isa <objType>"}}
+} {1 {wrong # args: should be "::libraryObj0 isa objType"}}