Tcl Source Code

Artifact fdb0ac933d78eefe750cde84e5d5053fd81872a2:

Attachment "binary.patch" to ticket [3605721fff] added by pointsman 2013-02-23 08:23:38.

---

--- tests/binary.test
+++ tests/binary.test
@@ -1581,39 +1581,39 @@
     unset -nocomplain arg1
     list [binary scan \xff\xff\xff\xff\xff\xff\xff\xff d arg1] $arg1
 } -match glob -result {1 -NaN*}
 
 test binary-41.1 {ScanNumber: word alignment} {
-    unset -nocomplain arg1; unset arg2
+    unset -nocomplain arg1; unset -nocomplain arg2
     list [binary scan \x01\x01\x00 c1s1 arg1 arg2] $arg1 $arg2
 } {2 1 1}
 test binary-41.2 {ScanNumber: word alignment} {
-    unset -nocomplain arg1; unset arg2
+    unset -nocomplain arg1; unset -nocomplain arg2
     list [binary scan \x01\x00\x01 c1S1 arg1 arg2] $arg1 $arg2
 } {2 1 1}
 test binary-41.3 {ScanNumber: word alignment} {
-    unset -nocomplain arg1; unset arg2
+    unset -nocomplain arg1; unset -nocomplain arg2
     list [binary scan \x01\x01\x00\x00\x00 c1i1 arg1 arg2] $arg1 $arg2
 } {2 1 1}
 test binary-41.4 {ScanNumber: word alignment} {
-    unset -nocomplain arg1; unset arg2
+    unset -nocomplain arg1; unset -nocomplain arg2
     list [binary scan \x01\x00\x00\x00\x01 c1I1 arg1 arg2] $arg1 $arg2
 } {2 1 1}
 test binary-41.5 {ScanNumber: word alignment} bigEndian {
-    unset -nocomplain arg1; unset arg2
+    unset -nocomplain arg1; unset -nocomplain arg2
     list [binary scan \x01\x3f\xcc\xcc\xcd c1f1 arg1 arg2] $arg1 $arg2
 } {2 1 1.600000023841858}
 test binary-41.6 {ScanNumber: word alignment} littleEndian {
-    unset -nocomplain arg1; unset arg2
+    unset -nocomplain arg1; unset -nocomplain arg2
     list [binary scan \x01\xcd\xcc\xcc\x3f c1f1 arg1 arg2] $arg1 $arg2
 } {2 1 1.600000023841858}
 test binary-41.7 {ScanNumber: word alignment} bigEndian {
-    unset -nocomplain arg1; unset arg2
+    unset -nocomplain arg1; unset -nocomplain arg2
     list [binary scan \x01\x3f\xf9\x99\x99\x99\x99\x99\x9a c1d1 arg1 arg2] $arg1 $arg2
 } {2 1 1.6}
 test binary-41.8 {ScanNumber: word alignment} littleEndian {
-    unset -nocomplain arg1; unset arg2
+    unset -nocomplain arg1; unset -nocomplain arg2
     list [binary scan \x01\x9a\x99\x99\x99\x99\x99\xf9\x3f c1d1 arg1 arg2] $arg1 $arg2
 } {2 1 1.6}
 
 test binary-42.1 {Tcl_BinaryObjCmd: bad arguments} -constraints {} -body {
     binary ?