diff options
Diffstat (limited to 'tests/binary.test')
-rw-r--r-- | tests/binary.test | 1108 |
1 files changed, 1000 insertions, 108 deletions
diff --git a/tests/binary.test b/tests/binary.test index 122fcdf..e43b9f4 100644 --- a/tests/binary.test +++ b/tests/binary.test @@ -14,6 +14,8 @@ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest namespace import -force ::tcltest::* } +testConstraint bigEndian [expr {$tcl_platform(byteOrder) eq "bigEndian"}] +testConstraint littleEndian [expr {$tcl_platform(byteOrder) eq "littleEndian"}] test binary-0.1 {DupByteArrayInternalRep} { set hdr [binary format cc 0 0316] @@ -424,40 +426,40 @@ test binary-13.2 {Tcl_BinaryObjCmd: format} { test binary-13.3 {Tcl_BinaryObjCmd: format} { binary format f0 1.6 } {} -test binary-13.4 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} { +test binary-13.4 {Tcl_BinaryObjCmd: format} bigEndian { binary format f 1.6 } \x3f\xcc\xcc\xcd -test binary-13.5 {Tcl_BinaryObjCmd: format} {nonPortable pcOnly} { +test binary-13.5 {Tcl_BinaryObjCmd: format} littleEndian { binary format f 1.6 } \xcd\xcc\xcc\x3f -test binary-13.6 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} { +test binary-13.6 {Tcl_BinaryObjCmd: format} bigEndian { binary format f* {1.6 3.4} } \x3f\xcc\xcc\xcd\x40\x59\x99\x9a -test binary-13.7 {Tcl_BinaryObjCmd: format} {nonPortable pcOnly} { +test binary-13.7 {Tcl_BinaryObjCmd: format} littleEndian { binary format f* {1.6 3.4} } \xcd\xcc\xcc\x3f\x9a\x99\x59\x40 -test binary-13.8 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} { +test binary-13.8 {Tcl_BinaryObjCmd: format} bigEndian { binary format f2 {1.6 3.4} } \x3f\xcc\xcc\xcd\x40\x59\x99\x9a -test binary-13.9 {Tcl_BinaryObjCmd: format} {nonPortable pcOnly} { +test binary-13.9 {Tcl_BinaryObjCmd: format} littleEndian { binary format f2 {1.6 3.4} } \xcd\xcc\xcc\x3f\x9a\x99\x59\x40 -test binary-13.10 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} { +test binary-13.10 {Tcl_BinaryObjCmd: format} bigEndian { binary format f2 {1.6 3.4 5.6} } \x3f\xcc\xcc\xcd\x40\x59\x99\x9a -test binary-13.11 {Tcl_BinaryObjCmd: format} {nonPortable pcOnly} { +test binary-13.11 {Tcl_BinaryObjCmd: format} littleEndian { binary format f2 {1.6 3.4 5.6} } \xcd\xcc\xcc\x3f\x9a\x99\x59\x40 -test binary-13.12 {Tcl_BinaryObjCmd: float overflow} {nonPortable macOrUnix} { +test binary-13.12 {Tcl_BinaryObjCmd: float overflow} bigEndian { binary format f -3.402825e+38 } \xff\x7f\xff\xff -test binary-13.13 {Tcl_BinaryObjCmd: float overflow} {nonPortable pcOnly} { +test binary-13.13 {Tcl_BinaryObjCmd: float overflow} littleEndian { binary format f -3.402825e+38 } \xff\xff\x7f\xff -test binary-13.14 {Tcl_BinaryObjCmd: float underflow} {nonPortable macOrUnix} { +test binary-13.14 {Tcl_BinaryObjCmd: float underflow} bigEndian { binary format f -3.402825e-100 } \x80\x00\x00\x00 -test binary-13.15 {Tcl_BinaryObjCmd: float underflow} {nonPortable pcOnly} { +test binary-13.15 {Tcl_BinaryObjCmd: float underflow} littleEndian { binary format f -3.402825e-100 } \x00\x00\x00\x80 test binary-13.16 {Tcl_BinaryObjCmd: format} { @@ -467,11 +469,11 @@ test binary-13.17 {Tcl_BinaryObjCmd: format} { set a {1.6 3.4} list [catch {binary format f $a} msg] $msg } [list 1 "expected floating-point number but got \"1.6 3.4\""] -test binary-13.18 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} { +test binary-13.18 {Tcl_BinaryObjCmd: format} bigEndian { set a {1.6 3.4} binary format f1 $a } \x3f\xcc\xcc\xcd -test binary-13.19 {Tcl_BinaryObjCmd: format} {nonPortable pcOnly} { +test binary-13.19 {Tcl_BinaryObjCmd: format} littleEndian { set a {1.6 3.4} binary format f1 $a } \xcd\xcc\xcc\x3f @@ -485,36 +487,30 @@ test binary-14.2 {Tcl_BinaryObjCmd: format} { test binary-14.3 {Tcl_BinaryObjCmd: format} { binary format d0 1.6 } {} -test binary-14.4 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} { +test binary-14.4 {Tcl_BinaryObjCmd: format} bigEndian { binary format d 1.6 } \x3f\xf9\x99\x99\x99\x99\x99\x9a -test binary-14.5 {Tcl_BinaryObjCmd: format} {nonPortable pcOnly} { +test binary-14.5 {Tcl_BinaryObjCmd: format} littleEndian { binary format d 1.6 } \x9a\x99\x99\x99\x99\x99\xf9\x3f -test binary-14.6 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} { +test binary-14.6 {Tcl_BinaryObjCmd: format} bigEndian { binary format d* {1.6 3.4} } \x3f\xf9\x99\x99\x99\x99\x99\x9a\x40\x0b\x33\x33\x33\x33\x33\x33 -test binary-14.7 {Tcl_BinaryObjCmd: format} {nonPortable pcOnly} { +test binary-14.7 {Tcl_BinaryObjCmd: format} littleEndian { binary format d* {1.6 3.4} } \x9a\x99\x99\x99\x99\x99\xf9\x3f\x33\x33\x33\x33\x33\x33\x0b\x40 -test binary-14.8 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} { +test binary-14.8 {Tcl_BinaryObjCmd: format} bigEndian { binary format d2 {1.6 3.4} } \x3f\xf9\x99\x99\x99\x99\x99\x9a\x40\x0b\x33\x33\x33\x33\x33\x33 -test binary-14.9 {Tcl_BinaryObjCmd: format} {nonPortable pcOnly} { +test binary-14.9 {Tcl_BinaryObjCmd: format} littleEndian { binary format d2 {1.6 3.4} } \x9a\x99\x99\x99\x99\x99\xf9\x3f\x33\x33\x33\x33\x33\x33\x0b\x40 -test binary-14.10 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} { +test binary-14.10 {Tcl_BinaryObjCmd: format} bigEndian { binary format d2 {1.6 3.4 5.6} } \x3f\xf9\x99\x99\x99\x99\x99\x9a\x40\x0b\x33\x33\x33\x33\x33\x33 -test binary-14.11 {Tcl_BinaryObjCmd: format} {nonPortable pcOnly} { +test binary-14.11 {Tcl_BinaryObjCmd: format} littleEndian { binary format d2 {1.6 3.4 5.6} } \x9a\x99\x99\x99\x99\x99\xf9\x3f\x33\x33\x33\x33\x33\x33\x0b\x40 -test binary-14.12 {Tcl_BinaryObjCmd: float overflow} {nonPortable unixOnly} { - binary format d NaN -} \x7f\xff\xff\xff\xff\xff\xff\xff -test binary-14.13 {Tcl_BinaryObjCmd: float overflow} {nonPortable macOnly} { - binary format d NaN -} \x7f\xf8\x02\xa0\x00\x00\x00\x00 test binary-14.14 {Tcl_BinaryObjCmd: format} { list [catch {binary format d2 {1.6}} msg] $msg } {1 {number of elements in list does not match count}} @@ -522,11 +518,11 @@ test binary-14.15 {Tcl_BinaryObjCmd: format} { set a {1.6 3.4} list [catch {binary format d $a} msg] $msg } [list 1 "expected floating-point number but got \"1.6 3.4\""] -test binary-14.16 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} { +test binary-14.16 {Tcl_BinaryObjCmd: format} bigEndian { set a {1.6 3.4} binary format d1 $a } \x3f\xf9\x99\x99\x99\x99\x99\x9a -test binary-14.17 {Tcl_BinaryObjCmd: format} {nonPortable pcOnly} { +test binary-14.17 {Tcl_BinaryObjCmd: format} littleEndian { set a {1.6 3.4} binary format d1 $a } \x9a\x99\x99\x99\x99\x99\xf9\x3f @@ -919,6 +915,30 @@ test binary-26.10 {Tcl_BinaryObjCmd: scan} { set arg2 bar list [binary scan \x70\x87\x05 c2c* arg1 arg2] $arg1 $arg2 } {2 {112 -121} 5} +test binary-26.11 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1} + list [binary scan \x52\xa3 cu* arg1] $arg1 +} {1 {82 163}} +test binary-26.12 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1} + list [binary scan \x52\xa3 cu arg1] $arg1 +} {1 82} +test binary-26.13 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1} + list [binary scan \xff cu arg1] $arg1 +} {1 255} +test binary-26.14 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x80\x80 cuc arg1 arg2] $arg1 $arg2 +} {2 128 -128} +test binary-26.15 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x80\x80 ccu arg1 arg2] $arg1 $arg2 +} {2 -128 128} test binary-27.1 {Tcl_BinaryObjCmd: scan} { list [catch {binary scan abc s} msg] $msg @@ -959,6 +979,22 @@ test binary-27.9 {Tcl_BinaryObjCmd: scan} { set arg2 bar list [binary scan \x52\xa3\x53\x54\x05 s2c* arg1 arg2] $arg1 $arg2 } {2 {-23726 21587} 5} +test binary-27.10 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1} + list [binary scan \x52\xa3\x53\x54 su* arg1] $arg1 +} {1 {41810 21587}} +test binary-27.11 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \xff\xff\xff\xff sus arg1 arg2] $arg1 $arg2 +} {2 65535 -1} +test binary-27.12 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \xff\xff\xff\xff ssu arg1 arg2] $arg1 $arg2 +} {2 -1 65535} test binary-28.1 {Tcl_BinaryObjCmd: scan} { list [catch {binary scan abc S} msg] $msg @@ -999,6 +1035,14 @@ test binary-28.9 {Tcl_BinaryObjCmd: scan} { set arg2 bar list [binary scan \x52\xa3\x53\x54\x05 S2c* arg1 arg2] $arg1 $arg2 } {2 {21155 21332} 5} +test binary-28.10 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1} + list [binary scan \x52\xa3\x53\x54 Su* arg1] $arg1 +} {1 {21155 21332}} +test binary-28.11 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1} + list [binary scan \xa3\x52\x54\x53 Su* arg1] $arg1 +} {1 {41810 21587}} test binary-29.1 {Tcl_BinaryObjCmd: scan} { list [catch {binary scan abc i} msg] $msg @@ -1039,6 +1083,18 @@ test binary-29.9 {Tcl_BinaryObjCmd: scan} { set arg2 bar list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04\x05 i2c* arg1 arg2] $arg1 $arg2 } {2 {1414767442 67305985} 5} +test binary-29.10 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1 arg2} + list [binary scan \xff\xff\xff\xff\xff\xff\xff\xff iui arg1 arg2] $arg1 $arg2 +} {2 4294967295 -1} +test binary-29.11 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1 arg2} + list [binary scan \xff\xff\xff\xff\xff\xff\xff\xff iiu arg1 arg2] $arg1 $arg2 +} {2 -1 4294967295} +test binary-29.12 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1 arg2} + list [binary scan \x80\x00\x00\x00\x00\x00\x00\x80 iuiu arg1 arg2] $arg1 $arg2 +} {2 128 2147483648} test binary-30.1 {Tcl_BinaryObjCmd: scan} { list [catch {binary scan abc I} msg] $msg @@ -1079,50 +1135,62 @@ test binary-30.9 {Tcl_BinaryObjCmd: scan} { set arg2 bar list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04\x05 I2c* arg1 arg2] $arg1 $arg2 } {2 {1386435412 16909060} 5} +test binary-30.10 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1 arg2} + list [binary scan \xff\xff\xff\xff\xff\xff\xff\xff IuI arg1 arg2] $arg1 $arg2 +} {2 4294967295 -1} +test binary-30.11 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1 arg2} + list [binary scan \xff\xff\xff\xff\xff\xff\xff\xff IIu arg1 arg2] $arg1 $arg2 +} {2 -1 4294967295} +test binary-30.12 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1 arg2} + list [binary scan \x80\x00\x00\x00\x00\x00\x00\x80 IuIu arg1 arg2] $arg1 $arg2 +} {2 2147483648 128} test binary-31.1 {Tcl_BinaryObjCmd: scan} { list [catch {binary scan abc f} msg] $msg } {1 {not enough arguments for all format specifiers}} -test binary-31.2 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} { +test binary-31.2 {Tcl_BinaryObjCmd: scan} bigEndian { catch {unset arg1} list [binary scan \x3f\xcc\xcc\xcd\x40\x59\x99\x9a f* arg1] $arg1 -} {1 {1.60000002384 3.40000009537}} -test binary-31.3 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} { +} {1 {1.600000023841858 3.4000000953674316}} +test binary-31.3 {Tcl_BinaryObjCmd: scan} littleEndian { catch {unset arg1} list [binary scan \xcd\xcc\xcc\x3f\x9a\x99\x59\x40 f* arg1] $arg1 -} {1 {1.60000002384 3.40000009537}} -test binary-31.4 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} { +} {1 {1.600000023841858 3.4000000953674316}} +test binary-31.4 {Tcl_BinaryObjCmd: scan} bigEndian { catch {unset arg1} list [binary scan \x3f\xcc\xcc\xcd\x40\x59\x99\x9a f arg1] $arg1 -} {1 1.60000002384} -test binary-31.5 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} { +} {1 1.600000023841858} +test binary-31.5 {Tcl_BinaryObjCmd: scan} littleEndian { catch {unset arg1} list [binary scan \xcd\xcc\xcc\x3f\x9a\x99\x59\x40 f arg1] $arg1 -} {1 1.60000002384} -test binary-31.6 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} { +} {1 1.600000023841858} +test binary-31.6 {Tcl_BinaryObjCmd: scan} bigEndian { catch {unset arg1} list [binary scan \x3f\xcc\xcc\xcd f1 arg1] $arg1 -} {1 1.60000002384} -test binary-31.7 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} { +} {1 1.600000023841858} +test binary-31.7 {Tcl_BinaryObjCmd: scan} littleEndian { catch {unset arg1} list [binary scan \xcd\xcc\xcc\x3f f1 arg1] $arg1 -} {1 1.60000002384} -test binary-31.8 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} { +} {1 1.600000023841858} +test binary-31.8 {Tcl_BinaryObjCmd: scan} bigEndian { catch {unset arg1} list [binary scan \x3f\xcc\xcc\xcd f0 arg1] $arg1 } {1 {}} -test binary-31.9 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} { +test binary-31.9 {Tcl_BinaryObjCmd: scan} littleEndian { catch {unset arg1} list [binary scan \xcd\xcc\xcc\x3f f0 arg1] $arg1 } {1 {}} -test binary-31.10 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} { +test binary-31.10 {Tcl_BinaryObjCmd: scan} bigEndian { catch {unset arg1} list [binary scan \x3f\xcc\xcc\xcd\x40\x59\x99\x9a f2 arg1] $arg1 -} {1 {1.60000002384 3.40000009537}} -test binary-31.11 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} { +} {1 {1.600000023841858 3.4000000953674316}} +test binary-31.11 {Tcl_BinaryObjCmd: scan} littleEndian { catch {unset arg1} list [binary scan \xcd\xcc\xcc\x3f\x9a\x99\x59\x40 f2 arg1] $arg1 -} {1 {1.60000002384 3.40000009537}} +} {1 {1.600000023841858 3.4000000953674316}} test binary-31.12 {Tcl_BinaryObjCmd: scan} { catch {unset arg1} set arg1 foo @@ -1133,59 +1201,59 @@ test binary-31.13 {Tcl_BinaryObjCmd: scan} { set arg1 1 list [catch {binary scan \x3f\xcc\xcc\xcd f1 arg1(a)} msg] $msg } {1 {can't set "arg1(a)": variable isn't array}} -test binary-31.14 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} { +test binary-31.14 {Tcl_BinaryObjCmd: scan} bigEndian { catch {unset arg1 arg2} set arg1 foo set arg2 bar list [binary scan \x3f\xcc\xcc\xcd\x40\x59\x99\x9a\x05 f2c* arg1 arg2] $arg1 $arg2 -} {2 {1.60000002384 3.40000009537} 5} -test binary-31.15 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} { +} {2 {1.600000023841858 3.4000000953674316} 5} +test binary-31.15 {Tcl_BinaryObjCmd: scan} littleEndian { catch {unset arg1 arg2} set arg1 foo set arg2 bar list [binary scan \xcd\xcc\xcc\x3f\x9a\x99\x59\x40\x05 f2c* arg1 arg2] $arg1 $arg2 -} {2 {1.60000002384 3.40000009537} 5} +} {2 {1.600000023841858 3.4000000953674316} 5} test binary-32.1 {Tcl_BinaryObjCmd: scan} { list [catch {binary scan abc d} msg] $msg } {1 {not enough arguments for all format specifiers}} -test binary-32.2 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} { +test binary-32.2 {Tcl_BinaryObjCmd: scan} bigEndian { catch {unset arg1} list [binary scan \x3f\xf9\x99\x99\x99\x99\x99\x9a\x40\x0b\x33\x33\x33\x33\x33\x33 d* arg1] $arg1 } {1 {1.6 3.4}} -test binary-32.3 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} { +test binary-32.3 {Tcl_BinaryObjCmd: scan} littleEndian { catch {unset arg1} list [binary scan \x9a\x99\x99\x99\x99\x99\xf9\x3f\x33\x33\x33\x33\x33\x33\x0b\x40 d* arg1] $arg1 } {1 {1.6 3.4}} -test binary-32.4 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} { +test binary-32.4 {Tcl_BinaryObjCmd: scan} bigEndian { catch {unset arg1} list [binary scan \x3f\xf9\x99\x99\x99\x99\x99\x9a\x40\x0b\x33\x33\x33\x33\x33\x33 d arg1] $arg1 } {1 1.6} -test binary-32.5 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} { +test binary-32.5 {Tcl_BinaryObjCmd: scan} littleEndian { catch {unset arg1} list [binary scan \x9a\x99\x99\x99\x99\x99\xf9\x3f\x33\x33\x33\x33\x33\x33\x0b\x40 d arg1] $arg1 } {1 1.6} -test binary-32.6 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} { +test binary-32.6 {Tcl_BinaryObjCmd: scan} bigEndian { catch {unset arg1} list [binary scan \x3f\xf9\x99\x99\x99\x99\x99\x9a d1 arg1] $arg1 } {1 1.6} -test binary-32.7 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} { +test binary-32.7 {Tcl_BinaryObjCmd: scan} littleEndian { catch {unset arg1} list [binary scan \x9a\x99\x99\x99\x99\x99\xf9\x3f d1 arg1] $arg1 } {1 1.6} -test binary-32.8 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} { +test binary-32.8 {Tcl_BinaryObjCmd: scan} bigEndian { catch {unset arg1} list [binary scan \x3f\xf9\x99\x99\x99\x99\x99\x9a d0 arg1] $arg1 } {1 {}} -test binary-32.9 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} { +test binary-32.9 {Tcl_BinaryObjCmd: scan} littleEndian { catch {unset arg1} list [binary scan \x9a\x99\x99\x99\x99\x99\xf9\x3f d0 arg1] $arg1 } {1 {}} -test binary-32.10 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} { +test binary-32.10 {Tcl_BinaryObjCmd: scan} bigEndian { catch {unset arg1} list [binary scan \x3f\xf9\x99\x99\x99\x99\x99\x9a\x40\x0b\x33\x33\x33\x33\x33\x33 d2 arg1] $arg1 } {1 {1.6 3.4}} -test binary-32.11 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} { +test binary-32.11 {Tcl_BinaryObjCmd: scan} littleEndian { catch {unset arg1} list [binary scan \x9a\x99\x99\x99\x99\x99\xf9\x3f\x33\x33\x33\x33\x33\x33\x0b\x40 d2 arg1] $arg1 } {1 {1.6 3.4}} @@ -1199,13 +1267,13 @@ test binary-32.13 {Tcl_BinaryObjCmd: scan} { set arg1 1 list [catch {binary scan \x3f\xf9\x99\x99\x99\x99\x99\x9a d1 arg1(a)} msg] $msg } {1 {can't set "arg1(a)": variable isn't array}} -test binary-32.14 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} { +test binary-32.14 {Tcl_BinaryObjCmd: scan} bigEndian { catch {unset arg1 arg2} set arg1 foo set arg2 bar list [binary scan \x3f\xf9\x99\x99\x99\x99\x99\x9a\x40\x0b\x33\x33\x33\x33\x33\x33\x05 d2c* arg1 arg2] $arg1 $arg2 } {2 {1.6 3.4} 5} -test binary-32.15 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} { +test binary-32.15 {Tcl_BinaryObjCmd: scan} littleEndian { catch {unset arg1 arg2} set arg1 foo set arg2 bar @@ -1365,16 +1433,16 @@ test binary-38.3 {FormatNumber: word alignment} { test binary-38.4 {FormatNumber: word alignment} { set x [binary format c1I1 1 1] } \x01\x00\x00\x00\x01 -test binary-38.5 {FormatNumber: word alignment} {nonPortable macOrUnix} { +test binary-38.5 {FormatNumber: word alignment} bigEndian { set x [binary format c1d1 1 1.6] } \x01\x3f\xf9\x99\x99\x99\x99\x99\x9a -test binary-38.6 {FormatNumber: word alignment} {nonPortable pcOnly} { +test binary-38.6 {FormatNumber: word alignment} littleEndian { set x [binary format c1d1 1 1.6] } \x01\x9a\x99\x99\x99\x99\x99\xf9\x3f -test binary-38.7 {FormatNumber: word alignment} {nonPortable macOrUnix} { +test binary-38.7 {FormatNumber: word alignment} bigEndian { set x [binary format c1f1 1 1.6] } \x01\x3f\xcc\xcc\xcd -test binary-38.8 {FormatNumber: word alignment} {nonPortable pcOnly} { +test binary-38.8 {FormatNumber: word alignment} littleEndian { set x [binary format c1f1 1 1.6] } \x01\xcd\xcc\xcc\x3f @@ -1398,43 +1466,42 @@ test binary-39.5 {ScanNumber: sign extension} { catch {unset arg1} list [binary scan \x01\x01\x01\x02\x81\x01\x01\x01\x01\x82\x01\x01\x01\x01\x82\x01\x01\x01\x01\x81 I5 arg1] $arg1 } {1 {16843010 -2130640639 25297153 16876033 16843137}} - -test binary-40.1 {ScanNumber: floating point overflow} {nonPortable unixOnly} { +test binary-39.6 {ScanNumber: no sign extension} { catch {unset arg1} - list [binary scan \xff\xff\xff\xff f1 arg1] $arg1 -} {1 -NaN} -test binary-40.2 {ScanNumber: floating point overflow} {nonPortable macOnly} { + list [binary scan \x52\xa3 cu2 arg1] $arg1 +} {1 {82 163}} +test binary-39.7 {ScanNumber: no sign extension} { catch {unset arg1} - list [binary scan \xff\xff\xff\xff f1 arg1] $arg1 -} {1 -NAN(255)} -test binary-40.3 {ScanNumber: floating point overflow} {nonPortable pcOnly} { + list [binary scan \x01\x02\x01\x81\x82\x01\x81\x82 su4 arg1] $arg1 +} {1 {513 33025 386 33409}} +test binary-39.8 {ScanNumber: no sign extension} { catch {unset arg1} - set result [binary scan \xff\xff\xff\xff f1 arg1] - if {([string compare $arg1 -1.\#QNAN] == 0) - || ([string compare $arg1 -NAN] == 0)} { - lappend result success - } else { - lappend result failure - } -} {1 success} -test binary-40.4 {ScanNumber: floating point overflow} {nonPortable unixOnly} { - catch {unset arg1} - list [binary scan \xff\xff\xff\xff\xff\xff\xff\xff d1 arg1] $arg1 -} {1 -NaN} -test binary-40.5 {ScanNumber: floating point overflow} {nonPortable macOnly} { - catch {unset arg1} - list [binary scan \xff\xff\xff\xff\xff\xff\xff\xff d1 arg1] $arg1 -} {1 -NAN(255)} -test binary-40.6 {ScanNumber: floating point overflow} {nonPortable pcOnly} { - catch {unset arg1} - set result [binary scan \xff\xff\xff\xff\xff\xff\xff\xff d1 arg1] - if {([string compare $arg1 -1.\#QNAN] == 0) - || ([string compare $arg1 -NAN] == 0)} { - lappend result success - } else { - lappend result failure - } -} {1 success} + list [binary scan \x01\x02\x01\x81\x82\x01\x81\x82 Su4 arg1] $arg1 +} {1 {258 385 33281 33154}} +test binary-39.9 {ScanNumber: no sign extension} { + catch {unset arg1} + list [binary scan \x01\x01\x01\x02\x81\x01\x01\x01\x01\x82\x01\x01\x01\x01\x82\x01\x01\x01\x01\x81 iu5 arg1] $arg1 +} {1 {33620225 16843137 16876033 25297153 2164326657}} +test binary-39.10 {ScanNumber: no sign extension} { + catch {unset arg1} + list [binary scan \x01\x01\x01\x02\x81\x01\x01\x01\x01\x82\x01\x01\x01\x01\x82\x01\x01\x01\x01\x81 Iu5 arg1] $arg1 +} {1 {16843010 2164326657 25297153 16876033 16843137}} + +test binary-40.3 {ScanNumber: NaN} \ + -body { + catch {unset arg1} + list [binary scan \xff\xff\xff\xff f1 arg1] $arg1 + } \ + -match glob \ + -result {1 -NaN*} + +test binary-40.4 {ScanNumber: NaN} \ + -body { + catch {unset 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} { catch {unset arg1; unset arg2} @@ -1452,19 +1519,19 @@ test binary-41.4 {ScanNumber: word alignment} { catch {unset arg1; unset arg2} list [binary scan \x01\x00\x00\x00\x01 c1I1 arg1 arg2] $arg1 $arg2 } {2 1 1} -test binary-41.5 {ScanNumber: word alignment} {nonPortable macOrUnix} { +test binary-41.5 {ScanNumber: word alignment} bigEndian { catch {unset arg1; unset arg2} list [binary scan \x01\x3f\xcc\xcc\xcd c1f1 arg1 arg2] $arg1 $arg2 -} {2 1 1.60000002384} -test binary-41.6 {ScanNumber: word alignment} {nonPortable pcOnly} { +} {2 1 1.600000023841858} +test binary-41.6 {ScanNumber: word alignment} littleEndian { catch {unset arg1; unset arg2} list [binary scan \x01\xcd\xcc\xcc\x3f c1f1 arg1 arg2] $arg1 $arg2 -} {2 1 1.60000002384} -test binary-41.7 {ScanNumber: word alignment} {nonPortable macOrUnix} { +} {2 1 1.600000023841858} +test binary-41.7 {ScanNumber: word alignment} bigEndian { catch {unset arg1; unset 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} {nonPortable pcOnly} { +test binary-41.8 {ScanNumber: word alignment} littleEndian { catch {unset arg1; unset arg2} list [binary scan \x01\x9a\x99\x99\x99\x99\x99\xf9\x3f c1d1 arg1 arg2] $arg1 $arg2 } {2 1 1.6} @@ -1498,6 +1565,26 @@ test binary-44.4 {Tcl_BinaryObjCmd: scan wide int with bit 31 set} {} { binary scan [binary format W [expr {wide(3) << 31}]] W x set x } 6442450944 +test binary-43.5 {Tcl_BinaryObjCmd: scan wide int} {} { + catch {unset arg1} + list [binary scan \x80[string repeat \x00 7] W arg1] $arg1 +} {1 -9223372036854775808} +test binary-43.6 {Tcl_BinaryObjCmd: scan unsigned wide int} {} { + catch {unset arg1} + list [binary scan \x80[string repeat \x00 7] Wu arg1] $arg1 +} {1 9223372036854775808} +test binary-43.7 {Tcl_BinaryObjCmd: scan unsigned wide int} {} { + catch {unset arg1} + list [binary scan [string repeat \x00 7]\x80 wu arg1] $arg1 +} {1 9223372036854775808} +test binary-43.8 {Tcl_BinaryObjCmd: scan unsigned wide int} {} { + catch {unset arg1 arg2} + list [binary scan \x80[string repeat \x00 7]\x80[string repeat \x00 7] WuW arg1 arg2] $arg1 $arg2 +} {2 9223372036854775808 -9223372036854775808} +test binary-43.9 {Tcl_BinaryObjCmd: scan unsigned wide int} {} { + catch {unset arg1 arg2} + list [binary scan [string repeat \x00 7]\x80[string repeat \x00 7]\x80 wuw arg1 arg2] $arg1 $arg2 +} {2 9223372036854775808 -9223372036854775808} test binary-45.1 {Tcl_BinaryObjCmd: combined wide int handling} { binary scan [binary format sws 16450 -1 19521] c* x @@ -1538,6 +1625,811 @@ test binary-47.1 {Tcl_BinaryObjCmd: number cache reference count handling} { list [binary scan aba ccc x x x] $x } {3 97} +### TIP#129: endian specifiers ---- + +# format t +test binary-48.1 {Tcl_BinaryObjCmd: format} { + list [catch {binary format t} msg] $msg +} {1 {not enough arguments for all format specifiers}} +test binary-48.2 {Tcl_BinaryObjCmd: format} { + list [catch {binary format t blat} msg] $msg +} {1 {expected integer but got "blat"}} +test binary-48.3 {Tcl_BinaryObjCmd: format} { + binary format S0 0x50 +} {} +test binary-48.4 {Tcl_BinaryObjCmd: format} bigEndian { + binary format t 0x50 +} \x00P +test binary-48.5 {Tcl_BinaryObjCmd: format} littleEndian { + binary format t 0x50 +} P\x00 +test binary-48.6 {Tcl_BinaryObjCmd: format} bigEndian { + binary format t 0x5052 +} PR +test binary-48.7 {Tcl_BinaryObjCmd: format} littleEndian { + binary format t 0x5052 +} RP +test binary-48.8 {Tcl_BinaryObjCmd: format} bigEndian { + binary format t 0x505251 0x53 +} RQ +test binary-48.9 {Tcl_BinaryObjCmd: format} littleEndian { + binary format t 0x505251 0x53 +} QR +test binary-48.10 {Tcl_BinaryObjCmd: format} bigEndian { + binary format t2 {0x50 0x52} +} \x00P\x00R +test binary-48.11 {Tcl_BinaryObjCmd: format} littleEndian { + binary format t2 {0x50 0x52} +} P\x00R\x00 +test binary-48.12 {Tcl_BinaryObjCmd: format} bigEndian { + binary format t* {0x5051 0x52} +} PQ\x00R +test binary-48.13 {Tcl_BinaryObjCmd: format} littleEndian { + binary format t* {0x5051 0x52} +} QPR\x00 +test binary-48.14 {Tcl_BinaryObjCmd: format} bigEndian { + binary format t2 {0x50 0x52 0x53} 0x54 +} \x00P\x00R +test binary-48.15 {Tcl_BinaryObjCmd: format} littleEndian { + binary format t2 {0x50 0x52 0x53} 0x54 +} P\x00R\x00 +test binary-48.16 {Tcl_BinaryObjCmd: format} { + list [catch {binary format t2 {0x50}} msg] $msg +} {1 {number of elements in list does not match count}} +test binary-48.17 {Tcl_BinaryObjCmd: format} { + set a {0x50 0x51} + list [catch {binary format t $a} msg] $msg +} [list 1 "expected integer but got \"0x50 0x51\""] +test binary-48.18 {Tcl_BinaryObjCmd: format} bigEndian { + set a {0x50 0x51} + binary format t1 $a +} \x00P +test binary-48.19 {Tcl_BinaryObjCmd: format} littleEndian { + set a {0x50 0x51} + binary format t1 $a +} P\x00 + +# format n +test binary-49.1 {Tcl_BinaryObjCmd: format} { + list [catch {binary format n} msg] $msg +} {1 {not enough arguments for all format specifiers}} +test binary-49.2 {Tcl_BinaryObjCmd: format} { + list [catch {binary format n blat} msg] $msg +} {1 {expected integer but got "blat"}} +test binary-49.3 {Tcl_BinaryObjCmd: format} { + binary format n0 0x50 +} {} +test binary-49.4 {Tcl_BinaryObjCmd: format} littleEndian { + binary format n 0x50 +} P\x00\x00\x00 +test binary-49.5 {Tcl_BinaryObjCmd: format} littleEndian { + binary format n 0x5052 +} RP\x00\x00 +test binary-49.6 {Tcl_BinaryObjCmd: format} littleEndian { + binary format n 0x505251 0x53 +} QRP\x00 +test binary-49.7 {Tcl_BinaryObjCmd: format} littleEndian { + binary format i1 {0x505251 0x53} +} QRP\x00 +test binary-49.8 {Tcl_BinaryObjCmd: format} littleEndian { + binary format n 0x53525150 +} PQRS +test binary-49.9 {Tcl_BinaryObjCmd: format} littleEndian { + binary format n2 {0x50 0x52} +} P\x00\x00\x00R\x00\x00\x00 +test binary-49.10 {Tcl_BinaryObjCmd: format} littleEndian { + binary format n* {0x50515253 0x52} +} SRQPR\x00\x00\x00 +test binary-49.11 {Tcl_BinaryObjCmd: format} { + list [catch {binary format n2 {0x50}} msg] $msg +} {1 {number of elements in list does not match count}} +test binary-49.12 {Tcl_BinaryObjCmd: format} { + set a {0x50 0x51} + list [catch {binary format n $a} msg] $msg +} [list 1 "expected integer but got \"0x50 0x51\""] +test binary-49.13 {Tcl_BinaryObjCmd: format} littleEndian { + set a {0x50 0x51} + binary format n1 $a +} P\x00\x00\x00 +test binary-49.14 {Tcl_BinaryObjCmd: format} bigEndian { + binary format n 0x50 +} \x00\x00\x00P +test binary-49.15 {Tcl_BinaryObjCmd: format} bigEndian { + binary format n 0x5052 +} \x00\x00PR +test binary-49.16 {Tcl_BinaryObjCmd: format} bigEndian { + binary format n 0x505251 0x53 +} \x00PRQ +test binary-49.17 {Tcl_BinaryObjCmd: format} bigEndian { + binary format i1 {0x505251 0x53} +} QRP\x00 +test binary-49.18 {Tcl_BinaryObjCmd: format} bigEndian { + binary format n 0x53525150 +} SRQP +test binary-49.19 {Tcl_BinaryObjCmd: format} bigEndian { + binary format n2 {0x50 0x52} +} \x00\x00\x00P\x00\x00\x00R +test binary-49.20 {Tcl_BinaryObjCmd: format} bigEndian { + binary format n* {0x50515253 0x52} +} PQRS\x00\x00\x00R + +# format m +test binary-50.1 {Tcl_BinaryObjCmd: format wide int} littleEndian { + binary format m 7810179016327718216 +} HelloTcl +test binary-50.2 {Tcl_BinaryObjCmd: format wide int} bigEndian { + binary format m 7810179016327718216 +} lcTolleH +test binary-50.3 {Tcl_BinaryObjCmd: scan wide int with bit 31 set} littleEndian { + binary scan [binary format m [expr {wide(3) << 31}]] w x + set x +} 6442450944 +test binary-50.4 {Tcl_BinaryObjCmd: scan wide int with bit 31 set} bigEndian { + binary scan [binary format m [expr {wide(3) << 31}]] W x + set x +} 6442450944 + + +# format Q/q +test binary-51.1 {Tcl_BinaryObjCmd: format} { + list [catch {binary format Q} msg] $msg +} {1 {not enough arguments for all format specifiers}} +test binary-51.2 {Tcl_BinaryObjCmd: format} { + list [catch {binary format q blat} msg] $msg +} {1 {expected floating-point number but got "blat"}} +test binary-51.3 {Tcl_BinaryObjCmd: format} { + binary format q0 1.6 +} {} +test binary-51.4 {Tcl_BinaryObjCmd: format} {} { + binary format Q 1.6 +} \x3f\xf9\x99\x99\x99\x99\x99\x9a +test binary-51.5 {Tcl_BinaryObjCmd: format} {} { + binary format q 1.6 +} \x9a\x99\x99\x99\x99\x99\xf9\x3f +test binary-51.6 {Tcl_BinaryObjCmd: format} {} { + binary format Q* {1.6 3.4} +} \x3f\xf9\x99\x99\x99\x99\x99\x9a\x40\x0b\x33\x33\x33\x33\x33\x33 +test binary-51.7 {Tcl_BinaryObjCmd: format} {} { + binary format q* {1.6 3.4} +} \x9a\x99\x99\x99\x99\x99\xf9\x3f\x33\x33\x33\x33\x33\x33\x0b\x40 +test binary-51.8 {Tcl_BinaryObjCmd: format} {} { + binary format Q2 {1.6 3.4} +} \x3f\xf9\x99\x99\x99\x99\x99\x9a\x40\x0b\x33\x33\x33\x33\x33\x33 +test binary-51.9 {Tcl_BinaryObjCmd: format} {} { + binary format q2 {1.6 3.4} +} \x9a\x99\x99\x99\x99\x99\xf9\x3f\x33\x33\x33\x33\x33\x33\x0b\x40 +test binary-51.10 {Tcl_BinaryObjCmd: format} {} { + binary format Q2 {1.6 3.4 5.6} +} \x3f\xf9\x99\x99\x99\x99\x99\x9a\x40\x0b\x33\x33\x33\x33\x33\x33 +test binary-51.11 {Tcl_BinaryObjCmd: format} {} { + binary format q2 {1.6 3.4 5.6} +} \x9a\x99\x99\x99\x99\x99\xf9\x3f\x33\x33\x33\x33\x33\x33\x0b\x40 +test binary-51.14 {Tcl_BinaryObjCmd: format} { + list [catch {binary format q2 {1.6}} msg] $msg +} {1 {number of elements in list does not match count}} +test binary-51.15 {Tcl_BinaryObjCmd: format} { + set a {1.6 3.4} + list [catch {binary format q $a} msg] $msg +} [list 1 "expected floating-point number but got \"1.6 3.4\""] +test binary-51.16 {Tcl_BinaryObjCmd: format} {} { + set a {1.6 3.4} + binary format Q1 $a +} \x3f\xf9\x99\x99\x99\x99\x99\x9a +test binary-51.17 {Tcl_BinaryObjCmd: format} {} { + set a {1.6 3.4} + binary format q1 $a +} \x9a\x99\x99\x99\x99\x99\xf9\x3f + +# format R/r +test binary-53.1 {Tcl_BinaryObjCmd: format} { + list [catch {binary format r} msg] $msg +} {1 {not enough arguments for all format specifiers}} +test binary-53.2 {Tcl_BinaryObjCmd: format} { + list [catch {binary format r blat} msg] $msg +} {1 {expected floating-point number but got "blat"}} +test binary-53.3 {Tcl_BinaryObjCmd: format} { + binary format f0 1.6 +} {} +test binary-53.4 {Tcl_BinaryObjCmd: format} {} { + binary format R 1.6 +} \x3f\xcc\xcc\xcd +test binary-53.5 {Tcl_BinaryObjCmd: format} {} { + binary format r 1.6 +} \xcd\xcc\xcc\x3f +test binary-53.6 {Tcl_BinaryObjCmd: format} {} { + binary format R* {1.6 3.4} +} \x3f\xcc\xcc\xcd\x40\x59\x99\x9a +test binary-53.7 {Tcl_BinaryObjCmd: format} {} { + binary format r* {1.6 3.4} +} \xcd\xcc\xcc\x3f\x9a\x99\x59\x40 +test binary-53.8 {Tcl_BinaryObjCmd: format} {} { + binary format R2 {1.6 3.4} +} \x3f\xcc\xcc\xcd\x40\x59\x99\x9a +test binary-53.9 {Tcl_BinaryObjCmd: format} {} { + binary format r2 {1.6 3.4} +} \xcd\xcc\xcc\x3f\x9a\x99\x59\x40 +test binary-53.10 {Tcl_BinaryObjCmd: format} {} { + binary format R2 {1.6 3.4 5.6} +} \x3f\xcc\xcc\xcd\x40\x59\x99\x9a +test binary-53.11 {Tcl_BinaryObjCmd: format} {} { + binary format r2 {1.6 3.4 5.6} +} \xcd\xcc\xcc\x3f\x9a\x99\x59\x40 +test binary-53.12 {Tcl_BinaryObjCmd: float overflow} {} { + binary format R -3.402825e+38 +} \xff\x7f\xff\xff +test binary-53.13 {Tcl_BinaryObjCmd: float overflow} {} { + binary format r -3.402825e+38 +} \xff\xff\x7f\xff +test binary-53.14 {Tcl_BinaryObjCmd: float underflow} {} { + binary format R -3.402825e-100 +} \x80\x00\x00\x00 +test binary-53.15 {Tcl_BinaryObjCmd: float underflow} {} { + binary format r -3.402825e-100 +} \x00\x00\x00\x80 +test binary-53.16 {Tcl_BinaryObjCmd: format} { + list [catch {binary format r2 {1.6}} msg] $msg +} {1 {number of elements in list does not match count}} +test binary-53.17 {Tcl_BinaryObjCmd: format} { + set a {1.6 3.4} + list [catch {binary format r $a} msg] $msg +} [list 1 "expected floating-point number but got \"1.6 3.4\""] +test binary-53.18 {Tcl_BinaryObjCmd: format} {} { + set a {1.6 3.4} + binary format R1 $a +} \x3f\xcc\xcc\xcd +test binary-53.19 {Tcl_BinaryObjCmd: format} {} { + set a {1.6 3.4} + binary format r1 $a +} \xcd\xcc\xcc\x3f + +# scan t (s) +test binary-54.1 {Tcl_BinaryObjCmd: scan} { + list [catch {binary scan abc t} msg] $msg +} {1 {not enough arguments for all format specifiers}} +test binary-54.2 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \x52\xa3\x53\x54 t* arg1] $arg1 +} {1 {-23726 21587}} +test binary-54.3 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \x52\xa3\x53\x54 t arg1] $arg1 +} {1 -23726} +test binary-54.4 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \x52\xa3 t1 arg1] $arg1 +} {1 -23726} +test binary-54.5 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \x52\xa3 t0 arg1] $arg1 +} {1 {}} +test binary-54.6 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \x52\xa3\x53\x54 t2 arg1] $arg1 +} {1 {-23726 21587}} +test binary-54.7 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + set arg1 foo + list [binary scan \x52 t1 arg1] $arg1 +} {0 foo} +test binary-54.8 {Tcl_BinaryObjCmd: scan} {} { + catch {unset arg1} + set arg1 1 + list [catch {binary scan \x52\x53 t1 arg1(a)} msg] $msg +} {1 {can't set "arg1(a)": variable isn't array}} +test binary-54.9 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x52\xa3\x53\x54\x05 t2c* arg1 arg2] $arg1 $arg2 +} {2 {-23726 21587} 5} +test binary-54.10 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x00\x80\x00\x80 tut arg1 arg2] $arg1 $arg2 +} {2 32768 -32768} +test binary-54.11 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x00\x80\x00\x80 ttu arg1 arg2] $arg1 $arg2 +} {2 -32768 32768} + +# scan t (b) +test binary-55.1 {Tcl_BinaryObjCmd: scan} { + list [catch {binary scan abc t} msg] $msg +} {1 {not enough arguments for all format specifiers}} +test binary-55.2 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x52\xa3\x53\x54 t* arg1] $arg1 +} {1 {21155 21332}} +test binary-55.3 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x52\xa3\x53\x54 t arg1] $arg1 +} {1 21155} +test binary-55.4 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x52\xa3 t1 arg1] $arg1 +} {1 21155} +test binary-55.5 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x52\xa3 t0 arg1] $arg1 +} {1 {}} +test binary-55.6 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x52\xa3\x53\x54 t2 arg1] $arg1 +} {1 {21155 21332}} +test binary-55.7 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + set arg1 foo + list [binary scan \x52 t1 arg1] $arg1 +} {0 foo} +test binary-55.8 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1} + set arg1 1 + list [catch {binary scan \x52\x53 t1 arg1(a)} msg] $msg +} {1 {can't set "arg1(a)": variable isn't array}} +test binary-55.9 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x52\xa3\x53\x54\x05 t2c* arg1 arg2] $arg1 $arg2 +} {2 {21155 21332} 5} +test binary-55.10 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x80\x00\x80\x00 tut arg1 arg2] $arg1 $arg2 +} {2 32768 -32768} +test binary-55.11 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x80\x00\x80\x00 ttu arg1 arg2] $arg1 $arg2 +} {2 -32768 32768} + +# scan n (s) +test binary-56.1 {Tcl_BinaryObjCmd: scan} { + list [catch {binary scan abc n} msg] $msg +} {1 {not enough arguments for all format specifiers}} +test binary-56.2 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04 n* arg1] $arg1 +} {1 {1414767442 67305985}} +test binary-56.3 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04 n arg1] $arg1 +} {1 1414767442} +test binary-56.4 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \x52\xa3\x53\x54 n1 arg1] $arg1 +} {1 1414767442} +test binary-56.5 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \x52\xa3\x53 n0 arg1] $arg1 +} {1 {}} +test binary-56.6 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04 n2 arg1] $arg1 +} {1 {1414767442 67305985}} +test binary-56.7 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + set arg1 foo + list [binary scan \x52 n1 arg1] $arg1 +} {0 foo} +test binary-56.8 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1} + set arg1 1 + list [catch {binary scan \x52\x53\x53\x54 n1 arg1(a)} msg] $msg +} {1 {can't set "arg1(a)": variable isn't array}} +test binary-56.9 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04\x05 n2c* arg1 arg2] $arg1 $arg2 +} {2 {1414767442 67305985} 5} +test binary-56.10 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x80\x00\x00\x00\x80\x00\x00\x00 nun arg1 arg2] $arg1 $arg2 +} {2 128 128} +test binary-56.11 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x00\x00\x00\x80\x00\x00\x00\x80 nun arg1 arg2] $arg1 $arg2 +} {2 2147483648 -2147483648} + +# scan n (b) +test binary-57.1 {Tcl_BinaryObjCmd: scan} { + list [catch {binary scan abc n} msg] $msg +} {1 {not enough arguments for all format specifiers}} +test binary-57.2 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04 n* arg1] $arg1 +} {1 {1386435412 16909060}} +test binary-57.3 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04 n arg1] $arg1 +} {1 1386435412} +test binary-57.4 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x52\xa3\x53\x54 n1 arg1] $arg1 +} {1 1386435412} +test binary-57.5 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x52\xa3\x53 n0 arg1] $arg1 +} {1 {}} +test binary-57.6 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04 n2 arg1] $arg1 +} {1 {1386435412 16909060}} +test binary-57.7 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + set arg1 foo + list [binary scan \x52 n1 arg1] $arg1 +} {0 foo} +test binary-57.8 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1} + set arg1 1 + list [catch {binary scan \x52\x53\x53\x54 n1 arg1(a)} msg] $msg +} {1 {can't set "arg1(a)": variable isn't array}} +test binary-57.9 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04\x05 n2c* arg1 arg2] $arg1 $arg2 +} {2 {1386435412 16909060} 5} +test binary-57.10 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x80\x00\x00\x00\x80\x00\x00\x00 nun arg1 arg2] $arg1 $arg2 +} {2 2147483648 -2147483648} +test binary-57.11 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x00\x00\x00\x80\x00\x00\x00\x80 nun arg1 arg2] $arg1 $arg2 +} {2 128 128} + +# scan Q/q +test binary-58.1 {Tcl_BinaryObjCmd: scan} { + list [catch {binary scan abc q} msg] $msg +} {1 {not enough arguments for all format specifiers}} +test binary-58.2 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x3f\xf9\x99\x99\x99\x99\x99\x9a\x40\x0b\x33\x33\x33\x33\x33\x33 Q* arg1] $arg1 +} {1 {1.6 3.4}} +test binary-58.3 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \x9a\x99\x99\x99\x99\x99\xf9\x3f\x33\x33\x33\x33\x33\x33\x0b\x40 q* arg1] $arg1 +} {1 {1.6 3.4}} +test binary-58.4 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x3f\xf9\x99\x99\x99\x99\x99\x9a\x40\x0b\x33\x33\x33\x33\x33\x33 Q arg1] $arg1 +} {1 1.6} +test binary-58.5 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \x9a\x99\x99\x99\x99\x99\xf9\x3f\x33\x33\x33\x33\x33\x33\x0b\x40 q arg1] $arg1 +} {1 1.6} +test binary-58.6 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x3f\xf9\x99\x99\x99\x99\x99\x9a Q1 arg1] $arg1 +} {1 1.6} +test binary-58.7 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \x9a\x99\x99\x99\x99\x99\xf9\x3f q1 arg1] $arg1 +} {1 1.6} +test binary-58.8 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x3f\xf9\x99\x99\x99\x99\x99\x9a Q0 arg1] $arg1 +} {1 {}} +test binary-58.9 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \x9a\x99\x99\x99\x99\x99\xf9\x3f q0 arg1] $arg1 +} {1 {}} +test binary-58.10 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x3f\xf9\x99\x99\x99\x99\x99\x9a\x40\x0b\x33\x33\x33\x33\x33\x33 Q2 arg1] $arg1 +} {1 {1.6 3.4}} +test binary-58.11 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \x9a\x99\x99\x99\x99\x99\xf9\x3f\x33\x33\x33\x33\x33\x33\x0b\x40 q2 arg1] $arg1 +} {1 {1.6 3.4}} +test binary-58.12 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1} + set arg1 foo + list [binary scan \x52 q1 arg1] $arg1 +} {0 foo} +test binary-58.13 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1} + set arg1 1 + list [catch {binary scan \x3f\xf9\x99\x99\x99\x99\x99\x9a q1 arg1(a)} msg] $msg +} {1 {can't set "arg1(a)": variable isn't array}} +test binary-58.14 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x3f\xf9\x99\x99\x99\x99\x99\x9a\x40\x0b\x33\x33\x33\x33\x33\x33\x05 Q2c* arg1 arg2] $arg1 $arg2 +} {2 {1.6 3.4} 5} +test binary-58.15 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x9a\x99\x99\x99\x99\x99\xf9\x3f\x33\x33\x33\x33\x33\x33\x0b\x40\x05 q2c* arg1 arg2] $arg1 $arg2 +} {2 {1.6 3.4} 5} + +# scan R/r +test binary-59.1 {Tcl_BinaryObjCmd: scan} { + list [catch {binary scan abc r} msg] $msg +} {1 {not enough arguments for all format specifiers}} +test binary-59.2 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x3f\xcc\xcc\xcd\x40\x59\x99\x9a R* arg1] $arg1 +} {1 {1.600000023841858 3.4000000953674316}} +test binary-59.3 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \xcd\xcc\xcc\x3f\x9a\x99\x59\x40 r* arg1] $arg1 +} {1 {1.600000023841858 3.4000000953674316}} +test binary-59.4 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x3f\xcc\xcc\xcd\x40\x59\x99\x9a R arg1] $arg1 +} {1 1.600000023841858} +test binary-59.5 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \xcd\xcc\xcc\x3f\x9a\x99\x59\x40 r arg1] $arg1 +} {1 1.600000023841858} +test binary-59.6 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x3f\xcc\xcc\xcd R1 arg1] $arg1 +} {1 1.600000023841858} +test binary-59.7 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \xcd\xcc\xcc\x3f r1 arg1] $arg1 +} {1 1.600000023841858} +test binary-59.8 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x3f\xcc\xcc\xcd R0 arg1] $arg1 +} {1 {}} +test binary-59.9 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \xcd\xcc\xcc\x3f r0 arg1] $arg1 +} {1 {}} +test binary-59.10 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1} + list [binary scan \x3f\xcc\xcc\xcd\x40\x59\x99\x9a R2 arg1] $arg1 +} {1 {1.600000023841858 3.4000000953674316}} +test binary-59.11 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1} + list [binary scan \xcd\xcc\xcc\x3f\x9a\x99\x59\x40 r2 arg1] $arg1 +} {1 {1.600000023841858 3.4000000953674316}} +test binary-59.12 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1} + set arg1 foo + list [binary scan \x52 r1 arg1] $arg1 +} {0 foo} +test binary-59.13 {Tcl_BinaryObjCmd: scan} { + catch {unset arg1} + set arg1 1 + list [catch {binary scan \x3f\xcc\xcc\xcd r1 arg1(a)} msg] $msg +} {1 {can't set "arg1(a)": variable isn't array}} +test binary-59.14 {Tcl_BinaryObjCmd: scan} bigEndian { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \x3f\xcc\xcc\xcd\x40\x59\x99\x9a\x05 R2c* arg1 arg2] $arg1 $arg2 +} {2 {1.600000023841858 3.4000000953674316} 5} +test binary-59.15 {Tcl_BinaryObjCmd: scan} littleEndian { + catch {unset arg1 arg2} + set arg1 foo + set arg2 bar + list [binary scan \xcd\xcc\xcc\x3f\x9a\x99\x59\x40\x05 r2c* arg1 arg2] $arg1 $arg2 +} {2 {1.600000023841858 3.4000000953674316} 5} + +test binary-60.1 {[binary format] with NaN} -body { + binary scan [binary format dqQfrR NaN NaN NaN NaN NaN NaN] dqQfrR \ + v1 v2 v3 v4 v5 v6 + list $v1 $v2 $v3 $v4 $v5 $v6 +} -match regexp -result {NaN(\([[:xdigit:]]+\))? NaN(\([[:xdigit:]]+\))? NaN(\([[:xdigit:]]+\))? NaN(\([[:xdigit:]]+\))? NaN(\([[:xdigit:]]+\))? NaN(\([[:xdigit:]]+\))?} + +# scan m +test binary-61.1 {Tcl_BinaryObjCmd: scan wide int} bigEndian { + binary scan HelloTcl m x + set x +} 5216694956358656876 +test binary-61.2 {Tcl_BinaryObjCmd: scan wide int} littleEndian { + binary scan lcTolleH m x + set x +} 5216694956358656876 +test binary-61.3 {Tcl_BinaryObjCmd: scan wide int with bit 31 set} littleEndian { + binary scan [binary format w [expr {wide(3) << 31}]] m x + set x +} 6442450944 +test binary-61.4 {Tcl_BinaryObjCmd: scan wide int with bit 31 set} bigEndian { + binary scan [binary format W [expr {wide(3) << 31}]] m x + set x +} 6442450944 + +# Big test for correct ordering of data in [expr] + +proc testIEEE {} { + variable ieeeValues + binary scan [binary format dd -1.0 1.0] c* c + switch -exact -- $c { + {0 0 0 0 0 0 -16 -65 0 0 0 0 0 0 -16 63} { + # little endian + binary scan \x00\x00\x00\x00\x00\x00\xf0\xff d \ + ieeeValues(-Infinity) + binary scan \x00\x00\x00\x00\x00\x00\xf0\xbf d \ + ieeeValues(-Normal) + binary scan \x00\x00\x00\x00\x00\x00\x08\x80 d \ + ieeeValues(-Subnormal) + binary scan \x00\x00\x00\x00\x00\x00\x00\x80 d \ + ieeeValues(-0) + binary scan \x00\x00\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(+0) + binary scan \x00\x00\x00\x00\x00\x00\x08\x00 d \ + ieeeValues(+Subnormal) + binary scan \x00\x00\x00\x00\x00\x00\xf0\x3f d \ + ieeeValues(+Normal) + binary scan \x00\x00\x00\x00\x00\x00\xf0\x7f d \ + ieeeValues(+Infinity) + binary scan \x00\x00\x00\x00\x00\x00\xf8\x7f d \ + ieeeValues(NaN) + set ieeeValues(littleEndian) 1 + return 1 + } + {-65 -16 0 0 0 0 0 0 63 -16 0 0 0 0 0 0} { + binary scan \xff\xf0\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(-Infinity) + binary scan \xbf\xf0\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(-Normal) + binary scan \x80\x08\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(-Subnormal) + binary scan \x80\x00\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(-0) + binary scan \x00\x00\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(+0) + binary scan \x00\x08\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(+Subnormal) + binary scan \x3f\xf0\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(+Normal) + binary scan \x7f\xf0\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(+Infinity) + binary scan \x7f\xf8\x00\x00\x00\x00\x00\x00 d \ + ieeeValues(NaN) + set ieeeValues(littleEndian) 0 + return 1 + } + default { + return 0 + } + } +} + +testConstraint ieeeFloatingPoint [testIEEE] + +# scan/format infinities + +test binary-62.1 {infinity} ieeeFloatingPoint { + binary scan [binary format q Infinity] w w + format 0x%016lx $w +} 0x7ff0000000000000 +test binary-62.2 {infinity} ieeeFloatingPoint { + binary scan [binary format q -Infinity] w w + format 0x%016lx $w +} 0xfff0000000000000 +test binary-62.3 {infinity} ieeeFloatingPoint { + binary scan [binary format q Inf] w w + format 0x%016lx $w +} 0x7ff0000000000000 +test binary-62.4 {infinity} ieeeFloatingPoint { + binary scan [binary format q -Infinity] w w + format 0x%016lx $w +} 0xfff0000000000000 +test binary-62.5 {infinity} ieeeFloatingPoint { + binary scan [binary format w 0x7ff0000000000000] q d + set d +} Inf +test binary-62.6 {infinity} ieeeFloatingPoint { + binary scan [binary format w 0xfff0000000000000] q d + set d +} -Inf + +# scan/format Not-a-Number + +test binary-63.1 {NaN} ieeeFloatingPoint { + binary scan [binary format q NaN] w w + format 0x%016lx [expr {$w & 0xfff3ffffffffffff}] +} 0x7ff0000000000000 +test binary-63.2 {NaN} ieeeFloatingPoint { + binary scan [binary format q -NaN] w w + format 0x%016lx [expr {$w & 0xfff3ffffffffffff}] +} 0xfff0000000000000 +test binary-63.3 {NaN} ieeeFloatingPoint { + binary scan [binary format q NaN(3123456789aBc)] w w + format 0x%016lx [expr {$w & 0xfff3ffffffffffff}] +} 0x7ff3123456789abc +test binary-63.4 {NaN} ieeeFloatingPoint { + binary scan [binary format q {NaN( 3123456789aBc)}] w w + format 0x%016lx [expr {$w & 0xfff3ffffffffffff}] +} 0x7ff3123456789abc + +# Make sure TclParseNumber() rejects invalid nan-hex formats [Bug 3402540] +test binary-63.5 {NaN} -constraints ieeeFloatingPoint -body { + binary format q Nan( +} -returnCodes error -match glob -result {expected floating-point number*} +test binary-63.6 {NaN} -constraints ieeeFloatingPoint -body { + binary format q Nan() +} -returnCodes error -match glob -result {expected floating-point number*} +test binary-63.7 {NaN} -constraints ieeeFloatingPoint -body { + binary format q Nan(g) +} -returnCodes error -match glob -result {expected floating-point number*} +test binary-63.8 {NaN} -constraints ieeeFloatingPoint -body { + binary format q Nan(1,2) +} -returnCodes error -match glob -result {expected floating-point number*} +test binary-63.9 {NaN} -constraints ieeeFloatingPoint -body { + binary format q Nan(1234567890abcd) +} -returnCodes error -match glob -result {expected floating-point number*} + +test binary-64.1 {NaN} \ + -constraints ieeeFloatingPoint \ + -body { + binary scan [binary format w 0x7ff8000000000000] q d + set d + } \ + -match glob -result NaN* +test binary-64.2 {NaN} \ + -constraints ieeeFloatingPoint \ + -body { + binary scan [binary format w 0x7ff0123456789aBc] q d + set d + } \ + -match glob -result NaN(*123456789abc) + +test binary-65.1 {largest significand} ieeeFloatingPoint { + binary scan [binary format w 0x3fcfffffffffffff] q d + set d +} 0.24999999999999997 +test binary-65.2 {smallest significand} ieeeFloatingPoint { + binary scan [binary format w 0x3fd0000000000000] q d + set d +} 0.25 +test binary-65.3 {largest significand} ieeeFloatingPoint { + binary scan [binary format w 0x3fdfffffffffffff] q d + set d +} 0.49999999999999994 +test binary-65.4 {smallest significand} ieeeFloatingPoint { + binary scan [binary format w 0x3fe0000000000000] q d + set d +} 0.5 +test binary-65.5 {largest significand} ieeeFloatingPoint { + binary scan [binary format w 0x3fffffffffffffff] q d + set d +} 1.9999999999999998 +test binary-65.6 {smallest significand} ieeeFloatingPoint { + binary scan [binary format w 0x4000000000000000] q d + set d +} 2.0 +test binary-65.7 {smallest significand} ieeeFloatingPoint { + binary scan [binary format w 0x434fffffffffffff] q d + set d +} 18014398509481982.0 +test binary-65.8 {largest significand} ieeeFloatingPoint { + binary scan [binary format w 0x4350000000000000] q d + set d +} 18014398509481984.0 +test binary-65.9 {largest significand} ieeeFloatingPoint { + binary scan [binary format w 0x4350000000000001] q d + set d +} 18014398509481988.0 + # cleanup ::tcltest::cleanupTests return + +# Local Variables: +# mode: tcl +# End: |