Changeset 1042 for trunk/lang/tcl/tests/diff.test

Timestamp:

Jun 10, 2008 6:52:04 PM (16 years ago)

Author:

mmc

Message:

Fixed the Rappture::encoding::encode and decode operations to honor "--".
This is handy when the string may start with a dash, as in:

Rappture::encoding::encode -- -hi

Fixed the library.tcl code to guard against encode/decode problem by
using the "--" in front of strings obtained from the xml.

Cleaned up the tests for the Rappture::LibraryObj? class. Everything
works properly now, except for units. Some of the tests are failing
because the units code reports "length" instead of "area" (test finds
this problem). This should be fixed in the units code.

File:

• trunk/lang/tcl/tests/diff.test (modified) (2 diffs)

trunk/lang/tcl/tests/diff.test

@@ -34 +34 @@
 set libFromGet [$libDefault element -as object "input.number(max)"]
 
-# this test works for old tcl bindings, different error message
-#test library-10.0.1.1 {diff command, no arguments} {
-#    list [catch {$lib diff} msg] $msg
-#} {1 {wrong # args: should be "libraryObj0 diff libobj"}}
-# this test works for new tcl bindings, different error message
-test library-10.0.1.2 {diff command, no arguments} {
+test library-10.0.1.1 {diff command, no arguments} {
     list [catch {$lib diff} msg] $msg
-} {1 {wrong # args: should be "::libraryObj0 diff xmlobj"}}
+} {1 {wrong # args: should be "libraryObj0 diff libobj"}}
 test library-10.1.1 {diff command, one argument, no difference} {
     $lib diff $libnew
@@ -67 +62 @@
 test library-10.3.1 {diff command, two arguments, returns error} {
     list [catch {$lib diff $libnew $libnew} msg] $msg
-} {1 {wrong # args: should be "::libraryObj0 diff xmlobj"}}
+} {1 {wrong # args: should be "libraryObj0 diff libobj"}}
 test library-10.3.2 {diff command, bad second arg, returns error} {
     list [catch {$lib diff slfd} msg] $msg