1375 lines
47 KiB
Plaintext
1375 lines
47 KiB
Plaintext
# This file tests the tclBinary.c file and the "binary" Tcl command.
|
|
#
|
|
# This file contains a collection of tests for one or more of the Tcl
|
|
# built-in commands. Sourcing this file into Tcl runs the tests and
|
|
# generates output for errors. No output means no errors were found.
|
|
#
|
|
# Copyright (c) 1997 by Sun Microsystems, Inc.
|
|
#
|
|
# See the file "license.terms" for information on usage and redistribution
|
|
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
|
#
|
|
# SCCS: @(#) binary.test 1.6 97/05/13 15:56:39
|
|
|
|
if {[string compare test [info procs test]] == 1} then {source defs}
|
|
|
|
test binary-1.1 {Tcl_BinaryObjCmd: bad args} {
|
|
list [catch {binary} msg] $msg
|
|
} {1 {wrong # args: should be "binary option ?arg arg ...?"}}
|
|
test binary-1.2 {Tcl_BinaryObjCmd: bad args} {
|
|
list [catch {binary foo} msg] $msg
|
|
} {1 {bad option "foo": must be format, or scan}}
|
|
|
|
test binary-1.3 {Tcl_BinaryObjCmd: format error} {
|
|
list [catch {binary f} msg] $msg
|
|
} {1 {wrong # args: should be "binary f formatString ?arg arg ...?"}}
|
|
test binary-1.4 {Tcl_BinaryObjCmd: format} {
|
|
binary format ""
|
|
} {}
|
|
|
|
|
|
|
|
test binary-2.1 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format a } msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-2.2 {Tcl_BinaryObjCmd: format} {
|
|
binary format a0 foo
|
|
} {}
|
|
test binary-2.3 {Tcl_BinaryObjCmd: format} {
|
|
binary format a f
|
|
} {f}
|
|
test binary-2.4 {Tcl_BinaryObjCmd: format} {
|
|
binary format a foo
|
|
} {f}
|
|
test binary-2.5 {Tcl_BinaryObjCmd: format} {
|
|
binary format a3 foo
|
|
} {foo}
|
|
test binary-2.6 {Tcl_BinaryObjCmd: format} {
|
|
binary format a5 foo
|
|
} foo\x00\x00
|
|
test binary-2.7 {Tcl_BinaryObjCmd: format} {
|
|
binary format a*a3 foobarbaz blat
|
|
} foobarbazbla
|
|
test binary-2.8 {Tcl_BinaryObjCmd: format} {
|
|
binary format a*X3a2 foobar x
|
|
} foox\x00r
|
|
|
|
test binary-3.1 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format A} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-3.2 {Tcl_BinaryObjCmd: format} {
|
|
binary format A0 f
|
|
} {}
|
|
test binary-3.3 {Tcl_BinaryObjCmd: format} {
|
|
binary format A f
|
|
} {f}
|
|
test binary-3.4 {Tcl_BinaryObjCmd: format} {
|
|
binary format A foo
|
|
} {f}
|
|
test binary-3.5 {Tcl_BinaryObjCmd: format} {
|
|
binary format A3 foo
|
|
} {foo}
|
|
test binary-3.6 {Tcl_BinaryObjCmd: format} {
|
|
binary format A5 foo
|
|
} {foo }
|
|
test binary-3.7 {Tcl_BinaryObjCmd: format} {
|
|
binary format A*A3 foobarbaz blat
|
|
} foobarbazbla
|
|
test binary-3.8 {Tcl_BinaryObjCmd: format} {
|
|
binary format A*X3A2 foobar x
|
|
} {foox r}
|
|
|
|
test binary-4.1 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format B} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-4.2 {Tcl_BinaryObjCmd: format} {
|
|
binary format B0 1
|
|
} {}
|
|
test binary-4.3 {Tcl_BinaryObjCmd: format} {
|
|
binary format B 1
|
|
} \x80
|
|
test binary-4.4 {Tcl_BinaryObjCmd: format} {
|
|
binary format B* 010011
|
|
} \x4c
|
|
test binary-4.5 {Tcl_BinaryObjCmd: format} {
|
|
binary format B8 01001101
|
|
} \x4d
|
|
test binary-4.6 {Tcl_BinaryObjCmd: format} {
|
|
binary format A2X2B9 oo 01001101
|
|
} \x4d\x00
|
|
test binary-4.7 {Tcl_BinaryObjCmd: format} {
|
|
binary format B9 010011011010
|
|
} \x4d\x80
|
|
test binary-4.8 {Tcl_BinaryObjCmd: format} {
|
|
binary format B2B3 10 010
|
|
} \x80\x40
|
|
test binary-4.9 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format B1B5 1 foo} msg] $msg
|
|
} {1 {expected binary string but got "foo" instead}}
|
|
|
|
test binary-5.1 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format b} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-5.2 {Tcl_BinaryObjCmd: format} {
|
|
binary format b0 1
|
|
} {}
|
|
test binary-5.3 {Tcl_BinaryObjCmd: format} {
|
|
binary format b 1
|
|
} \x01
|
|
test binary-5.4 {Tcl_BinaryObjCmd: format} {
|
|
binary format b* 010011
|
|
} 2
|
|
test binary-5.5 {Tcl_BinaryObjCmd: format} {
|
|
binary format b8 01001101
|
|
} \xb2
|
|
test binary-5.6 {Tcl_BinaryObjCmd: format} {
|
|
binary format A2X2b9 oo 01001101
|
|
} \xb2\x00
|
|
test binary-5.7 {Tcl_BinaryObjCmd: format} {
|
|
binary format b9 010011011010
|
|
} \xb2\x01
|
|
test binary-5.8 {Tcl_BinaryObjCmd: format} {
|
|
binary format b17 1
|
|
} \x01\00\00
|
|
test binary-5.9 {Tcl_BinaryObjCmd: format} {
|
|
binary format b2b3 10 010
|
|
} \x01\x02
|
|
test binary-5.10 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format b1b5 1 foo} msg] $msg
|
|
} {1 {expected binary string but got "foo" instead}}
|
|
|
|
test binary-6.1 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format h} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-6.2 {Tcl_BinaryObjCmd: format} {
|
|
binary format h0 1
|
|
} {}
|
|
test binary-6.3 {Tcl_BinaryObjCmd: format} {
|
|
binary format h 1
|
|
} \x01
|
|
test binary-6.4 {Tcl_BinaryObjCmd: format} {
|
|
binary format h c
|
|
} \x0c
|
|
test binary-6.5 {Tcl_BinaryObjCmd: format} {
|
|
binary format h* baadf00d
|
|
} \xab\xda\x0f\xd0
|
|
test binary-6.6 {Tcl_BinaryObjCmd: format} {
|
|
binary format h4 c410
|
|
} \x4c\x01
|
|
test binary-6.7 {Tcl_BinaryObjCmd: format} {
|
|
binary format h6 c4102
|
|
} \x4c\x01\x02
|
|
test binary-6.8 {Tcl_BinaryObjCmd: format} {
|
|
binary format h5 c41020304
|
|
} \x4c\x01\x02
|
|
test binary-6.9 {Tcl_BinaryObjCmd: format} {
|
|
binary format a3X3h5 foo 2
|
|
} \x02\x00\x00
|
|
test binary-6.10 {Tcl_BinaryObjCmd: format} {
|
|
binary format h2h3 23 456
|
|
} \x32\x54\x06
|
|
test binary-6.11 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format h2 foo} msg] $msg
|
|
} {1 {expected hexadecimal string but got "foo" instead}}
|
|
|
|
test binary-7.1 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format H} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-7.2 {Tcl_BinaryObjCmd: format} {
|
|
binary format H0 1
|
|
} {}
|
|
test binary-7.3 {Tcl_BinaryObjCmd: format} {
|
|
binary format H 1
|
|
} \x10
|
|
test binary-7.4 {Tcl_BinaryObjCmd: format} {
|
|
binary format H c
|
|
} \xc0
|
|
test binary-7.5 {Tcl_BinaryObjCmd: format} {
|
|
binary format H* baadf00d
|
|
} \xba\xad\xf0\x0d
|
|
test binary-7.6 {Tcl_BinaryObjCmd: format} {
|
|
binary format H4 c410
|
|
} \xc4\x10
|
|
test binary-7.7 {Tcl_BinaryObjCmd: format} {
|
|
binary format H6 c4102
|
|
} \xc4\x10\x20
|
|
test binary-7.8 {Tcl_BinaryObjCmd: format} {
|
|
binary format H5 c41023304
|
|
} \xc4\x10\x20
|
|
test binary-7.9 {Tcl_BinaryObjCmd: format} {
|
|
binary format a3X3H5 foo 2
|
|
} \x20\x00\x00
|
|
test binary-7.10 {Tcl_BinaryObjCmd: format} {
|
|
binary format H2H3 23 456
|
|
} \x23\x45\x60
|
|
test binary-7.11 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format H2 foo} msg] $msg
|
|
} {1 {expected hexadecimal string but got "foo" instead}}
|
|
|
|
test binary-8.1 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format c} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-8.2 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format c blat} msg] $msg
|
|
} {1 {expected integer but got "blat"}}
|
|
test binary-8.3 {Tcl_BinaryObjCmd: format} {
|
|
binary format c0 0x50
|
|
} {}
|
|
test binary-8.4 {Tcl_BinaryObjCmd: format} {
|
|
binary format c 0x50
|
|
} P
|
|
test binary-8.5 {Tcl_BinaryObjCmd: format} {
|
|
binary format c 0x5052
|
|
} R
|
|
test binary-8.6 {Tcl_BinaryObjCmd: format} {
|
|
binary format c2 {0x50 0x52}
|
|
} PR
|
|
test binary-8.7 {Tcl_BinaryObjCmd: format} {
|
|
binary format c2 {0x50 0x52 0x53}
|
|
} PR
|
|
test binary-8.8 {Tcl_BinaryObjCmd: format} {
|
|
binary format c* {0x50 0x52}
|
|
} PR
|
|
test binary-8.9 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format c2 {0x50}} msg] $msg
|
|
} {1 {number of elements in list does not match count}}
|
|
test binary-8.10 {Tcl_BinaryObjCmd: format} {
|
|
set a {0x50 0x51}
|
|
list [catch {binary format c $a} msg] $msg
|
|
} [list 1 "expected integer but got \"0x50 0x51\""]
|
|
test binary-8.11 {Tcl_BinaryObjCmd: format} {
|
|
set a {0x50 0x51}
|
|
binary format c1 $a
|
|
} P
|
|
|
|
test binary-9.1 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format s} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-9.2 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format s blat} msg] $msg
|
|
} {1 {expected integer but got "blat"}}
|
|
test binary-9.3 {Tcl_BinaryObjCmd: format} {
|
|
binary format s0 0x50
|
|
} {}
|
|
test binary-9.4 {Tcl_BinaryObjCmd: format} {
|
|
binary format s 0x50
|
|
} P\x00
|
|
test binary-9.5 {Tcl_BinaryObjCmd: format} {
|
|
binary format s 0x5052
|
|
} RP
|
|
test binary-9.6 {Tcl_BinaryObjCmd: format} {
|
|
binary format s 0x505251 0x53
|
|
} QR
|
|
test binary-9.7 {Tcl_BinaryObjCmd: format} {
|
|
binary format s2 {0x50 0x52}
|
|
} P\x00R\x00
|
|
test binary-9.8 {Tcl_BinaryObjCmd: format} {
|
|
binary format s* {0x5051 0x52}
|
|
} QPR\x00
|
|
test binary-9.9 {Tcl_BinaryObjCmd: format} {
|
|
binary format s2 {0x50 0x52 0x53} 0x54
|
|
} P\x00R\x00
|
|
test binary-9.10 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format s2 {0x50}} msg] $msg
|
|
} {1 {number of elements in list does not match count}}
|
|
test binary-9.11 {Tcl_BinaryObjCmd: format} {
|
|
set a {0x50 0x51}
|
|
list [catch {binary format s $a} msg] $msg
|
|
} [list 1 "expected integer but got \"0x50 0x51\""]
|
|
test binary-9.12 {Tcl_BinaryObjCmd: format} {
|
|
set a {0x50 0x51}
|
|
binary format s1 $a
|
|
} P\x00
|
|
|
|
test binary-10.1 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format S} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-10.2 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format S blat} msg] $msg
|
|
} {1 {expected integer but got "blat"}}
|
|
test binary-10.3 {Tcl_BinaryObjCmd: format} {
|
|
binary format S0 0x50
|
|
} {}
|
|
test binary-10.4 {Tcl_BinaryObjCmd: format} {
|
|
binary format S 0x50
|
|
} \x00P
|
|
test binary-10.5 {Tcl_BinaryObjCmd: format} {
|
|
binary format S 0x5052
|
|
} PR
|
|
test binary-10.6 {Tcl_BinaryObjCmd: format} {
|
|
binary format S 0x505251 0x53
|
|
} RQ
|
|
test binary-10.7 {Tcl_BinaryObjCmd: format} {
|
|
binary format S2 {0x50 0x52}
|
|
} \x00P\x00R
|
|
test binary-10.8 {Tcl_BinaryObjCmd: format} {
|
|
binary format S* {0x5051 0x52}
|
|
} PQ\x00R
|
|
test binary-10.9 {Tcl_BinaryObjCmd: format} {
|
|
binary format S2 {0x50 0x52 0x53} 0x54
|
|
} \x00P\x00R
|
|
test binary-10.10 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format S2 {0x50}} msg] $msg
|
|
} {1 {number of elements in list does not match count}}
|
|
test binary-10.11 {Tcl_BinaryObjCmd: format} {
|
|
set a {0x50 0x51}
|
|
list [catch {binary format S $a} msg] $msg
|
|
} [list 1 "expected integer but got \"0x50 0x51\""]
|
|
test binary-10.12 {Tcl_BinaryObjCmd: format} {
|
|
set a {0x50 0x51}
|
|
binary format S1 $a
|
|
} \x00P
|
|
|
|
test binary-11.1 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format i} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-11.2 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format i blat} msg] $msg
|
|
} {1 {expected integer but got "blat"}}
|
|
test binary-11.3 {Tcl_BinaryObjCmd: format} {
|
|
binary format i0 0x50
|
|
} {}
|
|
test binary-11.4 {Tcl_BinaryObjCmd: format} {
|
|
binary format i 0x50
|
|
} P\x00\x00\x00
|
|
test binary-11.5 {Tcl_BinaryObjCmd: format} {
|
|
binary format i 0x5052
|
|
} RP\x00\x00
|
|
test binary-11.6 {Tcl_BinaryObjCmd: format} {
|
|
binary format i 0x505251 0x53
|
|
} QRP\x00
|
|
test binary-11.7 {Tcl_BinaryObjCmd: format} {
|
|
binary format i1 {0x505251 0x53}
|
|
} QRP\x00
|
|
test binary-11.8 {Tcl_BinaryObjCmd: format} {
|
|
binary format i 0x53525150
|
|
} PQRS
|
|
test binary-11.9 {Tcl_BinaryObjCmd: format} {
|
|
binary format i2 {0x50 0x52}
|
|
} P\x00\x00\x00R\x00\x00\x00
|
|
test binary-11.10 {Tcl_BinaryObjCmd: format} {
|
|
binary format i* {0x50515253 0x52}
|
|
} SRQPR\x00\x00\x00
|
|
test binary-11.11 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format i2 {0x50}} msg] $msg
|
|
} {1 {number of elements in list does not match count}}
|
|
test binary-11.12 {Tcl_BinaryObjCmd: format} {
|
|
set a {0x50 0x51}
|
|
list [catch {binary format i $a} msg] $msg
|
|
} [list 1 "expected integer but got \"0x50 0x51\""]
|
|
test binary-11.13 {Tcl_BinaryObjCmd: format} {
|
|
set a {0x50 0x51}
|
|
binary format i1 $a
|
|
} P\x00\x00\x00
|
|
|
|
test binary-12.1 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format I} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-12.2 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format I blat} msg] $msg
|
|
} {1 {expected integer but got "blat"}}
|
|
test binary-12.3 {Tcl_BinaryObjCmd: format} {
|
|
binary format I0 0x50
|
|
} {}
|
|
test binary-12.4 {Tcl_BinaryObjCmd: format} {
|
|
binary format I 0x50
|
|
} \x00\x00\x00P
|
|
test binary-12.5 {Tcl_BinaryObjCmd: format} {
|
|
binary format I 0x5052
|
|
} \x00\x00PR
|
|
test binary-12.6 {Tcl_BinaryObjCmd: format} {
|
|
binary format I 0x505251 0x53
|
|
} \x00PRQ
|
|
test binary-12.7 {Tcl_BinaryObjCmd: format} {
|
|
binary format I1 {0x505251 0x53}
|
|
} \x00PRQ
|
|
test binary-12.8 {Tcl_BinaryObjCmd: format} {
|
|
binary format I 0x53525150
|
|
} SRQP
|
|
test binary-12.9 {Tcl_BinaryObjCmd: format} {
|
|
binary format I2 {0x50 0x52}
|
|
} \x00\x00\x00P\x00\x00\x00R
|
|
test binary-12.10 {Tcl_BinaryObjCmd: format} {
|
|
binary format I* {0x50515253 0x52}
|
|
} PQRS\x00\x00\x00R
|
|
test binary-12.11 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format i2 {0x50}} msg] $msg
|
|
} {1 {number of elements in list does not match count}}
|
|
test binary-12.12 {Tcl_BinaryObjCmd: format} {
|
|
set a {0x50 0x51}
|
|
list [catch {binary format I $a} msg] $msg
|
|
} [list 1 "expected integer but got \"0x50 0x51\""]
|
|
test binary-12.13 {Tcl_BinaryObjCmd: format} {
|
|
set a {0x50 0x51}
|
|
binary format I1 $a
|
|
} \x00\x00\x00P
|
|
|
|
test binary-13.1 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format f} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-13.2 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format f blat} msg] $msg
|
|
} {1 {expected floating-point number but got "blat"}}
|
|
test binary-13.3 {Tcl_BinaryObjCmd: format} {
|
|
binary format f0 1.6
|
|
} {}
|
|
test binary-13.4 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} {
|
|
binary format f 1.6
|
|
} \x3f\xcc\xcc\xcd
|
|
test binary-13.5 {Tcl_BinaryObjCmd: format} {nonPortable pcOnly} {
|
|
binary format f 1.6
|
|
} \xcd\xcc\xcc\x3f
|
|
test binary-13.6 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} {
|
|
binary format f* {1.6 3.4}
|
|
} \x3f\xcc\xcc\xcd\x40\x59\x99\x9a
|
|
test binary-13.7 {Tcl_BinaryObjCmd: format} {nonPortable pcOnly} {
|
|
binary format f* {1.6 3.4}
|
|
} \xcd\xcc\xcc\x3f\x9a\x99\x59\x40
|
|
test binary-13.8 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} {
|
|
binary format f2 {1.6 3.4}
|
|
} \x3f\xcc\xcc\xcd\x40\x59\x99\x9a
|
|
test binary-13.9 {Tcl_BinaryObjCmd: format} {nonPortable pcOnly} {
|
|
binary format f2 {1.6 3.4}
|
|
} \xcd\xcc\xcc\x3f\x9a\x99\x59\x40
|
|
test binary-13.10 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} {
|
|
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} {
|
|
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} {
|
|
binary format f -3.402825e+38
|
|
} \x00\x80\x00\x00
|
|
test binary-13.13 {Tcl_BinaryObjCmd: float overflow} {nonPortable pcOnly} {
|
|
binary format f -3.402825e+38
|
|
} \x00\x00\x80\x00
|
|
test binary-13.14 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format f2 {1.6}} msg] $msg
|
|
} {1 {number of elements in list does not match count}}
|
|
test binary-13.15 {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.16 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} {
|
|
set a {1.6 3.4}
|
|
binary format f1 $a
|
|
} \x3f\xcc\xcc\xcd
|
|
test binary-13.17 {Tcl_BinaryObjCmd: format} {nonPortable pcOnly} {
|
|
set a {1.6 3.4}
|
|
binary format f1 $a
|
|
} \xcd\xcc\xcc\x3f
|
|
|
|
test binary-14.1 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format d} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-14.2 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format d blat} msg] $msg
|
|
} {1 {expected floating-point number but got "blat"}}
|
|
test binary-14.3 {Tcl_BinaryObjCmd: format} {
|
|
binary format d0 1.6
|
|
} {}
|
|
test binary-14.4 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} {
|
|
binary format d 1.6
|
|
} \x3f\xf9\x99\x99\x99\x99\x99\x9a
|
|
test binary-14.5 {Tcl_BinaryObjCmd: format} {nonPortable pcOnly} {
|
|
binary format d 1.6
|
|
} \x9a\x99\x99\x99\x99\x99\xf9\x3f
|
|
test binary-14.6 {Tcl_BinaryObjCmd: format} {nonPortable macOrUnix} {
|
|
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} {
|
|
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} {
|
|
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} {
|
|
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} {
|
|
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} {
|
|
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}}
|
|
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} {
|
|
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} {
|
|
set a {1.6 3.4}
|
|
binary format d1 $a
|
|
} \x9a\x99\x99\x99\x99\x99\xf9\x3f
|
|
|
|
test binary-15.1 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format ax*a "y" "z"} msg] $msg
|
|
} {1 {cannot use "*" in format string with "x"}}
|
|
test binary-15.2 {Tcl_BinaryObjCmd: format} {
|
|
binary format axa "y" "z"
|
|
} y\x00z
|
|
test binary-15.3 {Tcl_BinaryObjCmd: format} {
|
|
binary format ax3a "y" "z"
|
|
} y\x00\x00\x00z
|
|
test binary-15.4 {Tcl_BinaryObjCmd: format} {
|
|
binary format a*X3x3a* "foo" "z"
|
|
} \x00\x00\x00z
|
|
|
|
test binary-16.1 {Tcl_BinaryObjCmd: format} {
|
|
binary format a*X*a "foo" "z"
|
|
} zoo
|
|
test binary-16.2 {Tcl_BinaryObjCmd: format} {
|
|
binary format aX3a "y" "z"
|
|
} z
|
|
test binary-16.3 {Tcl_BinaryObjCmd: format} {
|
|
binary format a*Xa* "foo" "zy"
|
|
} fozy
|
|
test binary-16.4 {Tcl_BinaryObjCmd: format} {
|
|
binary format a*X3a "foobar" "z"
|
|
} foozar
|
|
test binary-16.5 {Tcl_BinaryObjCmd: format} {
|
|
binary format a*X3aX2a "foobar" "z" "b"
|
|
} fobzar
|
|
|
|
test binary-17.1 {Tcl_BinaryObjCmd: format} {
|
|
binary format @1
|
|
} \x00
|
|
test binary-17.2 {Tcl_BinaryObjCmd: format} {
|
|
binary format @5a2 "ab"
|
|
} \x00\x00\x00\x00\x00\x61\x62
|
|
test binary-17.3 {Tcl_BinaryObjCmd: format} {
|
|
binary format {a* @0 a2 @* a*} "foobar" "ab" "blat"
|
|
} abobarblat
|
|
|
|
test binary-18.1 {Tcl_BinaryObjCmd: format} {
|
|
list [catch {binary format u0a3 abc abd} msg] $msg
|
|
} {1 {bad field specifier "u"}}
|
|
|
|
|
|
test binary-19.1 {Tcl_BinaryObjCmd: errors} {
|
|
list [catch {binary s} msg] $msg
|
|
} {1 {wrong # args: should be "binary s value formatString ?varName varName ...?"}}
|
|
test binary-19.2 {Tcl_BinaryObjCmd: errors} {
|
|
list [catch {binary scan foo} msg] $msg
|
|
} {1 {wrong # args: should be "binary scan value formatString ?varName varName ...?"}}
|
|
test binary-19.3 {Tcl_BinaryObjCmd: scan} {
|
|
binary scan {} {}
|
|
} 0
|
|
|
|
test binary-20.1 {Tcl_BinaryObjCmd: scan} {
|
|
list [catch {binary scan abc a} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-20.2 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 1
|
|
list [catch {binary scan abc a arg1(a)} msg] $msg
|
|
} {1 {can't set "arg1(a)": variable isn't array}}
|
|
test binary-20.3 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 abc
|
|
list [binary scan abc a0 arg1] $arg1
|
|
} {1 {}}
|
|
test binary-20.4 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abc a* arg1] $arg1
|
|
} {1 abc}
|
|
test binary-20.5 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abc a5 arg1] [info exist arg1]
|
|
} {0 0}
|
|
test binary-20.6 {Tcl_BinaryObjCmd: scan} {
|
|
set arg1 foo
|
|
list [binary scan abc a2 arg1] $arg1
|
|
} {1 ab}
|
|
test binary-20.7 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
catch {unset arg2}
|
|
list [binary scan abcdef a2a2 arg1 arg2] $arg1 $arg2
|
|
} {2 ab cd}
|
|
test binary-20.8 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abc a2 arg1(a)] $arg1(a)
|
|
} {1 ab}
|
|
test binary-20.9 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abc a arg1(a)] $arg1(a)
|
|
} {1 a}
|
|
|
|
test binary-21.1 {Tcl_BinaryObjCmd: scan} {
|
|
list [catch {binary scan abc A} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-21.2 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 1
|
|
list [catch {binary scan abc A arg1(a)} msg] $msg
|
|
} {1 {can't set "arg1(a)": variable isn't array}}
|
|
test binary-21.3 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 abc
|
|
list [binary scan abc A0 arg1] $arg1
|
|
} {1 {}}
|
|
test binary-21.4 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abc A* arg1] $arg1
|
|
} {1 abc}
|
|
test binary-21.5 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abc A5 arg1] [info exist arg1]
|
|
} {0 0}
|
|
test binary-21.6 {Tcl_BinaryObjCmd: scan} {
|
|
set arg1 foo
|
|
list [binary scan abc A2 arg1] $arg1
|
|
} {1 ab}
|
|
test binary-21.7 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
catch {unset arg2}
|
|
list [binary scan abcdef A2A2 arg1 arg2] $arg1 $arg2
|
|
} {2 ab cd}
|
|
test binary-21.8 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abc A2 arg1(a)] $arg1(a)
|
|
} {1 ab}
|
|
test binary-21.9 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abc A2 arg1(a)] $arg1(a)
|
|
} {1 ab}
|
|
test binary-21.10 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abc A arg1(a)] $arg1(a)
|
|
} {1 a}
|
|
test binary-21.11 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan "abc def \x00 " A* arg1] $arg1
|
|
} {1 {abc def}}
|
|
test binary-21.12 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan "abc def \x00ghi " A* arg1] $arg1
|
|
} [list 1 "abc def \x00ghi"]
|
|
|
|
test binary-22.1 {Tcl_BinaryObjCmd: scan} {
|
|
list [catch {binary scan abc b} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-22.2 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\x53 b* arg1] $arg1
|
|
} {1 0100101011001010}
|
|
test binary-22.3 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x82\x53 b arg1] $arg1
|
|
} {1 0}
|
|
test binary-22.4 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x82\x53 b1 arg1] $arg1
|
|
} {1 0}
|
|
test binary-22.5 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x82\x53 b0 arg1] $arg1
|
|
} {1 {}}
|
|
test binary-22.6 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\x53 b5 arg1] $arg1
|
|
} {1 01001}
|
|
test binary-22.7 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\x53 b8 arg1] $arg1
|
|
} {1 01001010}
|
|
test binary-22.8 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\x53 b14 arg1] $arg1
|
|
} {1 01001010110010}
|
|
test binary-22.9 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 foo
|
|
list [binary scan \x52 b14 arg1] $arg1
|
|
} {0 foo}
|
|
test binary-22.10 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 1
|
|
list [catch {binary scan \x52\x53 b1 arg1(a)} msg] $msg
|
|
} {1 {can't set "arg1(a)": variable isn't array}}
|
|
test binary-22.11 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1 arg2}
|
|
set arg1 foo
|
|
set arg2 bar
|
|
list [binary scan \x07\x87\x05 b5b* arg1 arg2] $arg1 $arg2
|
|
} {2 11100 1110000110100000}
|
|
|
|
|
|
test binary-23.1 {Tcl_BinaryObjCmd: scan} {
|
|
list [catch {binary scan abc B} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-23.2 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\x53 B* arg1] $arg1
|
|
} {1 0101001001010011}
|
|
test binary-23.3 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x82\x53 B arg1] $arg1
|
|
} {1 1}
|
|
test binary-23.4 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x82\x53 B1 arg1] $arg1
|
|
} {1 1}
|
|
test binary-23.5 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\x53 B0 arg1] $arg1
|
|
} {1 {}}
|
|
test binary-23.6 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\x53 B5 arg1] $arg1
|
|
} {1 01010}
|
|
test binary-23.7 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\x53 B8 arg1] $arg1
|
|
} {1 01010010}
|
|
test binary-23.8 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\x53 B14 arg1] $arg1
|
|
} {1 01010010010100}
|
|
test binary-23.9 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 foo
|
|
list [binary scan \x52 B14 arg1] $arg1
|
|
} {0 foo}
|
|
test binary-23.10 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 1
|
|
list [catch {binary scan \x52\x53 B1 arg1(a)} msg] $msg
|
|
} {1 {can't set "arg1(a)": variable isn't array}}
|
|
test binary-23.11 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1 arg2}
|
|
set arg1 foo
|
|
set arg2 bar
|
|
list [binary scan \x70\x87\x05 B5B* arg1 arg2] $arg1 $arg2
|
|
} {2 01110 1000011100000101}
|
|
|
|
test binary-24.1 {Tcl_BinaryObjCmd: scan} {
|
|
list [catch {binary scan abc h} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-24.2 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3 h* arg1] $arg1
|
|
} {1 253a}
|
|
test binary-24.3 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \xc2\xa3 h arg1] $arg1
|
|
} {1 2}
|
|
test binary-24.4 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x82\x53 h1 arg1] $arg1
|
|
} {1 2}
|
|
test binary-24.5 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\x53 h0 arg1] $arg1
|
|
} {1 {}}
|
|
test binary-24.6 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \xf2\x53 h2 arg1] $arg1
|
|
} {1 2f}
|
|
test binary-24.7 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\x53 h3 arg1] $arg1
|
|
} {1 253}
|
|
test binary-24.8 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 foo
|
|
list [binary scan \x52 h3 arg1] $arg1
|
|
} {0 foo}
|
|
test binary-24.9 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 1
|
|
list [catch {binary scan \x52\x53 h1 arg1(a)} msg] $msg
|
|
} {1 {can't set "arg1(a)": variable isn't array}}
|
|
test binary-24.10 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1 arg2}
|
|
set arg1 foo
|
|
set arg2 bar
|
|
list [binary scan \x70\x87\x05 h2h* arg1 arg2] $arg1 $arg2
|
|
} {2 07 7850}
|
|
|
|
test binary-25.1 {Tcl_BinaryObjCmd: scan} {
|
|
list [catch {binary scan abc H} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-25.2 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3 H* arg1] $arg1
|
|
} {1 52a3}
|
|
test binary-25.3 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \xc2\xa3 H arg1] $arg1
|
|
} {1 c}
|
|
test binary-25.4 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x82\x53 H1 arg1] $arg1
|
|
} {1 8}
|
|
test binary-25.5 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\x53 H0 arg1] $arg1
|
|
} {1 {}}
|
|
test binary-25.6 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \xf2\x53 H2 arg1] $arg1
|
|
} {1 f2}
|
|
test binary-25.7 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\x53 H3 arg1] $arg1
|
|
} {1 525}
|
|
test binary-25.8 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 foo
|
|
list [binary scan \x52 H3 arg1] $arg1
|
|
} {0 foo}
|
|
test binary-25.9 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 1
|
|
list [catch {binary scan \x52\x53 H1 arg1(a)} msg] $msg
|
|
} {1 {can't set "arg1(a)": variable isn't array}}
|
|
test binary-25.10 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1 arg2}
|
|
set arg1 foo
|
|
set arg2 bar
|
|
list [binary scan \x70\x87\x05 H2H* arg1 arg2] $arg1 $arg2
|
|
} {2 70 8705}
|
|
|
|
test binary-26.1 {Tcl_BinaryObjCmd: scan} {
|
|
list [catch {binary scan abc c} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-26.2 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3 c* arg1] $arg1
|
|
} {1 {82 -93}}
|
|
test binary-26.3 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3 c arg1] $arg1
|
|
} {1 82}
|
|
test binary-26.4 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3 c1 arg1] $arg1
|
|
} {1 82}
|
|
test binary-26.5 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3 c0 arg1] $arg1
|
|
} {1 {}}
|
|
test binary-26.6 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3 c2 arg1] $arg1
|
|
} {1 {82 -93}}
|
|
test binary-26.7 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \xff c arg1] $arg1
|
|
} {1 -1}
|
|
test binary-26.8 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 foo
|
|
list [binary scan \x52 c3 arg1] $arg1
|
|
} {0 foo}
|
|
test binary-26.9 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 1
|
|
list [catch {binary scan \x52\x53 c1 arg1(a)} msg] $msg
|
|
} {1 {can't set "arg1(a)": variable isn't array}}
|
|
test binary-26.10 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1 arg2}
|
|
set arg1 foo
|
|
set arg2 bar
|
|
list [binary scan \x70\x87\x05 c2c* arg1 arg2] $arg1 $arg2
|
|
} {2 {112 -121} 5}
|
|
|
|
test binary-27.1 {Tcl_BinaryObjCmd: scan} {
|
|
list [catch {binary scan abc s} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-27.2 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3\x53\x54 s* arg1] $arg1
|
|
} {1 {-23726 21587}}
|
|
test binary-27.3 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3\x53\x54 s arg1] $arg1
|
|
} {1 -23726}
|
|
test binary-27.4 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3 s1 arg1] $arg1
|
|
} {1 -23726}
|
|
test binary-27.5 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3 s0 arg1] $arg1
|
|
} {1 {}}
|
|
test binary-27.6 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3\x53\x54 s2 arg1] $arg1
|
|
} {1 {-23726 21587}}
|
|
test binary-27.7 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 foo
|
|
list [binary scan \x52 s1 arg1] $arg1
|
|
} {0 foo}
|
|
test binary-27.8 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 1
|
|
list [catch {binary scan \x52\x53 s1 arg1(a)} msg] $msg
|
|
} {1 {can't set "arg1(a)": variable isn't array}}
|
|
test binary-27.9 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1 arg2}
|
|
set arg1 foo
|
|
set arg2 bar
|
|
list [binary scan \x52\xa3\x53\x54\x05 s2c* arg1 arg2] $arg1 $arg2
|
|
} {2 {-23726 21587} 5}
|
|
|
|
test binary-28.1 {Tcl_BinaryObjCmd: scan} {
|
|
list [catch {binary scan abc S} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-28.2 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3\x53\x54 S* arg1] $arg1
|
|
} {1 {21155 21332}}
|
|
test binary-28.3 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3\x53\x54 S arg1] $arg1
|
|
} {1 21155}
|
|
test binary-28.4 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3 S1 arg1] $arg1
|
|
} {1 21155}
|
|
test binary-28.5 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3 S0 arg1] $arg1
|
|
} {1 {}}
|
|
test binary-28.6 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3\x53\x54 S2 arg1] $arg1
|
|
} {1 {21155 21332}}
|
|
test binary-28.7 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 foo
|
|
list [binary scan \x52 S1 arg1] $arg1
|
|
} {0 foo}
|
|
test binary-28.8 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 1
|
|
list [catch {binary scan \x52\x53 S1 arg1(a)} msg] $msg
|
|
} {1 {can't set "arg1(a)": variable isn't array}}
|
|
test binary-28.9 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1 arg2}
|
|
set arg1 foo
|
|
set arg2 bar
|
|
list [binary scan \x52\xa3\x53\x54\x05 S2c* arg1 arg2] $arg1 $arg2
|
|
} {2 {21155 21332} 5}
|
|
|
|
test binary-29.1 {Tcl_BinaryObjCmd: scan} {
|
|
list [catch {binary scan abc i} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-29.2 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04 i* arg1] $arg1
|
|
} {1 {1414767442 67305985}}
|
|
test binary-29.3 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04 i arg1] $arg1
|
|
} {1 1414767442}
|
|
test binary-29.4 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3\x53\x54 i1 arg1] $arg1
|
|
} {1 1414767442}
|
|
test binary-29.5 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3\x53 i0 arg1] $arg1
|
|
} {1 {}}
|
|
test binary-29.6 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04 i2 arg1] $arg1
|
|
} {1 {1414767442 67305985}}
|
|
test binary-29.7 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 foo
|
|
list [binary scan \x52 i1 arg1] $arg1
|
|
} {0 foo}
|
|
test binary-29.8 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 1
|
|
list [catch {binary scan \x52\x53\x53\x54 i1 arg1(a)} msg] $msg
|
|
} {1 {can't set "arg1(a)": variable isn't array}}
|
|
test binary-29.9 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1 arg2}
|
|
set arg1 foo
|
|
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-30.1 {Tcl_BinaryObjCmd: scan} {
|
|
list [catch {binary scan abc I} msg] $msg
|
|
} {1 {not enough arguments for all format specifiers}}
|
|
test binary-30.2 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04 I* arg1] $arg1
|
|
} {1 {1386435412 16909060}}
|
|
test binary-30.3 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04 I arg1] $arg1
|
|
} {1 1386435412}
|
|
test binary-30.4 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3\x53\x54 I1 arg1] $arg1
|
|
} {1 1386435412}
|
|
test binary-30.5 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3\x53 I0 arg1] $arg1
|
|
} {1 {}}
|
|
test binary-30.6 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04 I2 arg1] $arg1
|
|
} {1 {1386435412 16909060}}
|
|
test binary-30.7 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 foo
|
|
list [binary scan \x52 I1 arg1] $arg1
|
|
} {0 foo}
|
|
test binary-30.8 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 1
|
|
list [catch {binary scan \x52\x53\x53\x54 I1 arg1(a)} msg] $msg
|
|
} {1 {can't set "arg1(a)": variable isn't array}}
|
|
test binary-30.9 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1 arg2}
|
|
set arg1 foo
|
|
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-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} {
|
|
catch {unset arg1}
|
|
list [binary scan \x3f\xcc\xcc\xcd\x40\x59\x99\x9a f* arg1] $arg1
|
|
} {1 {1.6000000238418579 3.4000000953674316}}
|
|
test binary-31.3 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} {
|
|
catch {unset arg1}
|
|
list [binary scan \xcd\xcc\xcc\x3f\x9a\x99\x59\x40 f* arg1] $arg1
|
|
} {1 {1.6000000238418579 3.4000000953674316}}
|
|
test binary-31.4 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} {
|
|
catch {unset arg1}
|
|
list [binary scan \x3f\xcc\xcc\xcd\x40\x59\x99\x9a f arg1] $arg1
|
|
} {1 1.6000000238418579}
|
|
test binary-31.5 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} {
|
|
catch {unset arg1}
|
|
list [binary scan \xcd\xcc\xcc\x3f\x9a\x99\x59\x40 f arg1] $arg1
|
|
} {1 1.6000000238418579}
|
|
test binary-31.6 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} {
|
|
catch {unset arg1}
|
|
list [binary scan \x3f\xcc\xcc\xcd f1 arg1] $arg1
|
|
} {1 1.6000000238418579}
|
|
test binary-31.7 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} {
|
|
catch {unset arg1}
|
|
list [binary scan \xcd\xcc\xcc\x3f f1 arg1] $arg1
|
|
} {1 1.6000000238418579}
|
|
test binary-31.8 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} {
|
|
catch {unset arg1}
|
|
list [binary scan \x3f\xcc\xcc\xcd f0 arg1] $arg1
|
|
} {1 {}}
|
|
test binary-31.9 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} {
|
|
catch {unset arg1}
|
|
list [binary scan \xcd\xcc\xcc\x3f f0 arg1] $arg1
|
|
} {1 {}}
|
|
test binary-31.10 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} {
|
|
catch {unset arg1}
|
|
list [binary scan \x3f\xcc\xcc\xcd\x40\x59\x99\x9a f2 arg1] $arg1
|
|
} {1 {1.6000000238418579 3.4000000953674316}}
|
|
test binary-31.11 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} {
|
|
catch {unset arg1}
|
|
list [binary scan \xcd\xcc\xcc\x3f\x9a\x99\x59\x40 f2 arg1] $arg1
|
|
} {1 {1.6000000238418579 3.4000000953674316}}
|
|
test binary-31.12 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 foo
|
|
list [binary scan \x52 f1 arg1] $arg1
|
|
} {0 foo}
|
|
test binary-31.13 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
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} {
|
|
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.6000000238418579 3.4000000953674316} 5}
|
|
test binary-31.15 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} {
|
|
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.6000000238418579 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} {
|
|
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.6000000000000001 3.3999999999999999}}
|
|
test binary-32.3 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} {
|
|
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.6000000000000001 3.3999999999999999}}
|
|
test binary-32.4 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} {
|
|
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.6000000000000001}
|
|
test binary-32.5 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} {
|
|
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.6000000000000001}
|
|
test binary-32.6 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} {
|
|
catch {unset arg1}
|
|
list [binary scan \x3f\xf9\x99\x99\x99\x99\x99\x9a d1 arg1] $arg1
|
|
} {1 1.6000000000000001}
|
|
test binary-32.7 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} {
|
|
catch {unset arg1}
|
|
list [binary scan \x9a\x99\x99\x99\x99\x99\xf9\x3f d1 arg1] $arg1
|
|
} {1 1.6000000000000001}
|
|
test binary-32.8 {Tcl_BinaryObjCmd: scan} {nonPortable macOrUnix} {
|
|
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} {
|
|
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} {
|
|
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.6000000000000001 3.3999999999999999}}
|
|
test binary-32.11 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} {
|
|
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.6000000000000001 3.3999999999999999}}
|
|
test binary-32.12 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
set arg1 foo
|
|
list [binary scan \x52 d1 arg1] $arg1
|
|
} {0 foo}
|
|
test binary-32.13 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
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} {
|
|
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.6000000000000001 3.3999999999999999} 5}
|
|
test binary-32.15 {Tcl_BinaryObjCmd: scan} {nonPortable pcOnly} {
|
|
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 d2c* arg1 arg2] $arg1 $arg2
|
|
} {2 {1.6000000000000001 3.3999999999999999} 5}
|
|
|
|
test binary-33.1 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
catch {unset arg2}
|
|
list [binary scan abcdefg a2xa3 arg1 arg2] $arg1 $arg2
|
|
} {2 ab def}
|
|
test binary-33.2 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
catch {unset arg2}
|
|
set arg2 foo
|
|
list [binary scan abcdefg a3x*a3 arg1 arg2] $arg1 $arg2
|
|
} {1 abc foo}
|
|
test binary-33.3 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
catch {unset arg2}
|
|
set arg2 foo
|
|
list [binary scan abcdefg a3x20a3 arg1 arg2] $arg1 $arg2
|
|
} {1 abc foo}
|
|
test binary-33.4 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
catch {unset arg2}
|
|
set arg2 foo
|
|
list [binary scan abc a3x20a3 arg1 arg2] $arg1 $arg2
|
|
} {1 abc foo}
|
|
test binary-33.5 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abcdef x1a1 arg1] $arg1
|
|
} {1 b}
|
|
test binary-33.6 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abcdef x5a1 arg1] $arg1
|
|
} {1 f}
|
|
test binary-33.7 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abcdef x0a1 arg1] $arg1
|
|
} {1 a}
|
|
|
|
test binary-34.1 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
catch {unset arg2}
|
|
list [binary scan abcdefg a2Xa3 arg1 arg2] $arg1 $arg2
|
|
} {2 ab bcd}
|
|
test binary-34.2 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
catch {unset arg2}
|
|
set arg2 foo
|
|
list [binary scan abcdefg a3X*a3 arg1 arg2] $arg1 $arg2
|
|
} {2 abc abc}
|
|
test binary-34.3 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
catch {unset arg2}
|
|
set arg2 foo
|
|
list [binary scan abcdefg a3X20a3 arg1 arg2] $arg1 $arg2
|
|
} {2 abc abc}
|
|
test binary-34.4 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abc X20a3 arg1] $arg1
|
|
} {1 abc}
|
|
test binary-34.5 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abcdef x*X1a1 arg1] $arg1
|
|
} {1 f}
|
|
test binary-34.6 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abcdef x*X5a1 arg1] $arg1
|
|
} {1 b}
|
|
test binary-34.7 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abcdef x3X0a1 arg1] $arg1
|
|
} {1 d}
|
|
|
|
test binary-35.1 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
catch {unset arg2}
|
|
list [catch {binary scan abcdefg a2@a3 arg1 arg2} msg] $msg
|
|
} {1 {missing count for "@" field specifier}}
|
|
test binary-35.2 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
catch {unset arg2}
|
|
set arg2 foo
|
|
list [binary scan abcdefg a3@*a3 arg1 arg2] $arg1 $arg2
|
|
} {1 abc foo}
|
|
test binary-35.3 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
catch {unset arg2}
|
|
set arg2 foo
|
|
list [binary scan abcdefg a3@20a3 arg1 arg2] $arg1 $arg2
|
|
} {1 abc foo}
|
|
test binary-35.4 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abcdef @2a3 arg1] $arg1
|
|
} {1 cde}
|
|
test binary-35.5 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abcdef x*@1a1 arg1] $arg1
|
|
} {1 b}
|
|
test binary-35.6 {Tcl_BinaryObjCmd: scan} {
|
|
catch {unset arg1}
|
|
list [binary scan abcdef x*@0a1 arg1] $arg1
|
|
} {1 a}
|
|
|
|
test binary-36.1 {Tcl_BinaryObjCmd: scan} {
|
|
list [catch {binary scan abcdef u0a3} msg] $msg
|
|
} {1 {bad field specifier "u"}}
|
|
|
|
# GetFormatSpec is pretty thoroughly tested above, but there are a few
|
|
# cases we should text explicitly
|
|
|
|
test binary-37.1 {GetFormatSpec: whitespace} {
|
|
binary format "a3 a5 a3" foo barblat baz
|
|
} foobarblbaz
|
|
test binary-37.2 {GetFormatSpec: whitespace} {
|
|
binary format " " foo
|
|
} {}
|
|
test binary-37.3 {GetFormatSpec: whitespace} {
|
|
binary format " a3" foo
|
|
} foo
|
|
test binary-37.4 {GetFormatSpec: whitespace} {
|
|
binary format "" foo
|
|
} {}
|
|
test binary-37.5 {GetFormatSpec: whitespace} {
|
|
binary format "" foo
|
|
} {}
|
|
test binary-37.6 {GetFormatSpec: whitespace} {
|
|
binary format " a3 " foo
|
|
} foo
|
|
test binary-37.7 {GetFormatSpec: numbers} {
|
|
list [catch {binary scan abcdef "x-1" foo} msg] $msg
|
|
} {1 {bad field specifier "-"}}
|
|
test binary-37.8 {GetFormatSpec: numbers} {
|
|
catch {unset arg1}
|
|
set arg1 foo
|
|
list [binary scan abcdef "a0x3" arg1] $arg1
|
|
} {1 {}}
|
|
|
|
# FormatNumber is thoroughly tested above, so we don't have any explicit tests
|
|
|
|
test binary-38.1 {ScanNumber: sign extension} {
|
|
catch {unset arg1}
|
|
list [binary scan \x52\xa3 c2 arg1] $arg1
|
|
} {1 {82 -93}}
|
|
test binary-38.2 {ScanNumber: sign extension} {
|
|
catch {unset arg1}
|
|
list [binary scan \x01\x02\x01\x81\x82\x01\x81\x82 s4 arg1] $arg1
|
|
} {1 {513 -32511 386 -32127}}
|
|
test binary-38.3 {ScanNumber: sign extension} {
|
|
catch {unset arg1}
|
|
list [binary scan \x01\x02\x01\x81\x82\x01\x81\x82 S4 arg1] $arg1
|
|
} {1 {258 385 -32255 -32382}}
|
|
test binary-38.4 {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 {33620225 16843137 16876033 25297153 -2130640639}}
|
|
test binary-38.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-39.1 {ScanNumber: floating point overflow} {nonPortable unixOnly} {
|
|
catch {unset arg1}
|
|
list [binary scan \xff\xff\xff\xff f1 arg1] $arg1
|
|
} {1 -NaN}
|
|
test binary-39.2 {ScanNumber: floating point overflow} {nonPortable macOnly} {
|
|
catch {unset arg1}
|
|
list [binary scan \xff\xff\xff\xff f1 arg1] $arg1
|
|
} {1 -NAN(255)}
|
|
test binary-39.3 {ScanNumber: floating point overflow} {nonPortable pcOnly} {
|
|
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-39.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-39.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-39.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}
|