# 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 © 1997 Sun Microsystems, Inc.

# Copyright © 1998-1999 Scriptics Corporation.

#

# See the file "license.terms" for information on usage and redistribution of

# this file, and for a DISCLAIMER OF ALL WARRANTIES.

if {"::tcltest" ni [namespace children]} {

package require tcltest 2.5

namespace import -force ::tcltest::*

}

::tcltest::loadTestedCommands

source [file join [file dirname [info script]] tcltests.tcl]

catch [list package require -exact tcl::test [info patchlevel]]

testConstraint bigEndian [expr {$tcl_platform(byteOrder) eq "bigEndian"}]

testConstraint littleEndian [expr {$tcl_platform(byteOrder) eq "littleEndian"}]

testConstraint testbytestring [llength [info commands testbytestring]]

testConstraint pointerIs64bit [expr {$tcl_platform(pointerSize) >= 8}]

# 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]



# ----------------------------------------------------------------------

test binary-0.1 {DupByteArrayInternalRep} {

set hdr [binary format cc 0 0316]

set buf hellomatt

set data $hdr

append data $buf

string length $data

} 11

test binary-1.1 {Tcl_BinaryObjCmd: bad args} -body {

binary

} -returnCodes error -match glob -result {wrong # args: *}

test binary-1.2 {Tcl_BinaryObjCmd: bad args} -returnCodes error -body {

binary foo

} -match glob -result {unknown or ambiguous subcommand "foo": *}

test binary-1.3 {Tcl_BinaryObjCmd: format error} -returnCodes error -body {

binary f

} -result {wrong # args: should be "binary format formatString ?arg ...?"}

test binary-1.4 {Tcl_BinaryObjCmd: format} -body {

binary format ""

} -result {}

test binary-2.1 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format a

} -result {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} -returnCodes error -body {

binary format A

} -result {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} -returnCodes error -body {

binary format B

} -result {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} -returnCodes error -body {

binary format B1B5 1 foo

} -result {expected binary string but got "foo" instead}

test binary-5.1 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format b

} -result {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\x00\x00

test binary-5.9 {Tcl_BinaryObjCmd: format} {

binary format b2b3 10 010

} \x01\x02

test binary-5.10 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format b1b5 1 foo

} -result {expected binary string but got "foo" instead}

test binary-6.1 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format h

} -result {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} -returnCodes error -body {

binary format h2 foo

} -result {expected hexadecimal string but got "foo" instead}

test binary-7.1 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format H

} -result {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} -returnCodes error -body {

binary format H2 foo

} -result {expected hexadecimal string but got "foo" instead}

test binary-8.1 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format c

} -result {not enough arguments for all format specifiers}

test binary-8.2 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format c blat

} -result {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} -returnCodes error -body {

binary format c2 {0x50}

} -result {number of elements in list does not match count}

test binary-8.10 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

set a {0x50 0x51}

binary format c $a

} -result "expected integer but got a list"

test binary-8.11 {Tcl_BinaryObjCmd: format} {

set a {0x50 0x51}

binary format c1 $a

} P

test binary-9.1 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format s

} -result {not enough arguments for all format specifiers}

test binary-9.2 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format s blat

} -result {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} -returnCodes error -body {

binary format s2 {0x50}

} -result {number of elements in list does not match count}

test binary-9.11 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

set a {0x50 0x51}

binary format s $a

} -result "expected integer but got a list"

test binary-9.12 {Tcl_BinaryObjCmd: format} {

set a {0x50 0x51}

binary format s1 $a

} P\x00

test binary-10.1 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format S

} -result {not enough arguments for all format specifiers}

test binary-10.2 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format S blat

} -result {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} -returnCodes error -body {

binary format S2 {0x50}

} -result {number of elements in list does not match count}

test binary-10.11 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

set a {0x50 0x51}

binary format S $a

} -result "expected integer but got a list"

test binary-10.12 {Tcl_BinaryObjCmd: format} {

set a {0x50 0x51}

binary format S1 $a

} \x00P

test binary-11.1 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format i

} -result {not enough arguments for all format specifiers}

test binary-11.2 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format i blat

} -result {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} -returnCodes error -body {

binary format i2 {0x50}

} -result {number of elements in list does not match count}

test binary-11.12 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

set a {0x50 0x51}

binary format i $a

} -result "expected integer but got a list"

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} -returnCodes error -body {

binary format I

} -result {not enough arguments for all format specifiers}

test binary-12.2 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format I blat

} -result {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} -returnCodes error -body {

binary format i2 {0x50}

} -result {number of elements in list does not match count}

test binary-12.12 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

set a {0x50 0x51}

binary format I $a

} -result "expected integer but got a list"

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} -returnCodes error -body {

binary format f

} -result {not enough arguments for all format specifiers}

test binary-13.2 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format f blat

} -result {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} bigEndian {

binary format f 1.6

} \x3F\xCC\xCC\xCD

test binary-13.5 {Tcl_BinaryObjCmd: format} littleEndian {

binary format f 1.6

} \xCD\xCC\xCC\x3F

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} littleEndian {

binary format f* {1.6 3.4}

} \xCD\xCC\xCC\x3F\x9A\x99\x59\x40

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} littleEndian {

binary format f2 {1.6 3.4}

} \xCD\xCC\xCC\x3F\x9A\x99\x59\x40

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} 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} bigEndian {

binary format f -3.402825e+38

} \xFF\x80\x00\x00

test binary-13.13 {Tcl_BinaryObjCmd: float overflow} littleEndian {

binary format f -3.402825e+38

} \x00\x00\x80\xFF

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} littleEndian {

binary format f -3.402825e-100

} \x00\x00\x00\x80

test binary-13.16 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format f2 {1.6}

} -result {number of elements in list does not match count}

test binary-13.17 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

set a {1.6 3.4}

binary format f $a

} -result "expected floating-point number but got a list"

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} littleEndian {

set a {1.6 3.4}

binary format f1 $a

} \xCD\xCC\xCC\x3F

test binary-13.20 {Tcl_BinaryObjCmd: format float Inf} bigEndian {

binary format f Inf

} \x7F\x80\x00\x00

test binary-13.21 {Tcl_BinaryObjCmd: format float Inf} littleEndian {

binary format f Inf

} \x00\x00\x80\x7F

test binary-13.22 {Tcl_BinaryObjCmd: format float -Inf} bigEndian {

binary format f -Inf

} \xFF\x80\x00\x00

test binary-13.23 {Tcl_BinaryObjCmd: format float -Inf} littleEndian {

binary format f -Inf

} \x00\x00\x80\xFF

test binary-14.1 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format d

} -result {not enough arguments for all format specifiers}

test binary-14.2 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format d blat

} -result {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} bigEndian {

binary format d 1.6

} \x3F\xF9\x99\x99\x99\x99\x99\x9A

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} 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} 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} 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} 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} 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} 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.14 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format d2 {1.6}

} -result {number of elements in list does not match count}

test binary-14.15 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

set a {1.6 3.4}

binary format d $a

} -result "expected floating-point number but got a list"

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} littleEndian {

set a {1.6 3.4}

binary format d1 $a

} \x9A\x99\x99\x99\x99\x99\xF9\x3F

test binary-14.18 {FormatNumber: Bug 1116542} {

binary scan [binary format d 1.25] d w

set w

} 1.25

test binary-15.1 {Tcl_BinaryObjCmd: format} -returnCodes error -body {

binary format ax*a "y" "z"

} -result {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-15.5 {Tcl_BinaryObjCmd: format - bug #1923966} {

binary format x0s 1

} \x01\x00

test binary-15.6 {Tcl_BinaryObjCmd: format - bug #1923966} {

binary format x0ss 1 1

} \x01\x00\x01\x00

test binary-15.7 {Tcl_BinaryObjCmd: format - bug #1923966} {

binary format x1s 1

} \x00\x01\x00

test binary-15.8 {Tcl_BinaryObjCmd: format - bug #1923966} {

binary format x1ss 1 1

} \x00\x01\x00\x01\x00

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} -returnCodes error -body {

binary format u0a3 abc abd

} -result {bad field specifier "u"}

test binary-19.1 {Tcl_BinaryObjCmd: errors} -returnCodes error -body {

binary s

} -result {wrong # args: should be "binary scan value formatString ?varName ...?"}

test binary-19.2 {Tcl_BinaryObjCmd: errors} -returnCodes error -body {

binary scan foo

} -result {wrong # args: should be "binary scan value formatString ?varName ...?"}

test binary-19.3 {Tcl_BinaryObjCmd: scan} {

binary scan {} {}

} 0

test binary-20.1 {Tcl_BinaryObjCmd: scan} -returnCodes error -body {

binary scan abc a

} -result {not enough arguments for all format specifiers}

test binary-20.2 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -returnCodes error -body {

set arg1 1

binary scan abc a arg1(a)

} -result {can't set "arg1(a)": variable isn't array}

test binary-20.3 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -body {

set arg1 abc

list [binary scan abc a0 arg1] $arg1

} -result {1 {}}

test binary-20.4 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -body {

list [binary scan abc a* arg1] $arg1

} -result {1 abc}

test binary-20.5 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -body {

list [binary scan abc a5 arg1] [info exists arg1]

} -result {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} -setup {

unset -nocomplain arg1

unset -nocomplain arg2

} -body {

list [binary scan abcdef a2a2 arg1 arg2] $arg1 $arg2

} -result {2 ab cd}

test binary-20.8 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -body {

list [binary scan abc a2 arg1(a)] $arg1(a)

} -result {1 ab}

test binary-20.9 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -body {

list [binary scan abc a arg1(a)] $arg1(a)

} -result {1 a}

test binary-21.1 {Tcl_BinaryObjCmd: scan} -returnCodes error -body {

binary scan abc A

} -result {not enough arguments for all format specifiers}

test binary-21.2 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -returnCodes error -body {

set arg1 1

binary scan abc A arg1(a)

} -result {can't set "arg1(a)": variable isn't array}

test binary-21.3 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -body {

set arg1 abc

list [binary scan abc A0 arg1] $arg1

} -result {1 {}}

test binary-21.4 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -body {

list [binary scan abc A* arg1] $arg1

} -result {1 abc}

test binary-21.5 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -body {

list [binary scan abc A5 arg1] [info exists arg1]

} -result {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} -setup {

unset -nocomplain arg1

unset -nocomplain arg2

} -body {

list [binary scan abcdef A2A2 arg1 arg2] $arg1 $arg2

} -result {2 ab cd}

test binary-21.8 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -body {

list [binary scan abc A2 arg1(a)] $arg1(a)

} -result {1 ab}

test binary-21.9 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -body {

list [binary scan abc A2 arg1(a)] $arg1(a)

} -result {1 ab}

test binary-21.10 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -body {

list [binary scan abc A arg1(a)] $arg1(a)

} -result {1 a}

test binary-21.11 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -body {

list [binary scan "abc def \x00 " A* arg1] $arg1

} -result {1 {abc def}}

test binary-21.12 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -body {

list [binary scan "abc def \x00ghi " A* arg1] $arg1

} -result [list 1 "abc def \x00ghi"]

test binary-21.13 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -body {

list [binary scan "abc def \x00 " C* arg1] $arg1

} -result {1 {abc def }}

test binary-21.14 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -body {

list [binary scan "abc def \x00ghi" C* arg1] $arg1

} -result {1 {abc def }}

test binary-22.1 {Tcl_BinaryObjCmd: scan} -returnCodes error -body {

binary scan abc b

} -result {not enough arguments for all format specifiers}

test binary-22.2 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\x53 b* arg1] $arg1

} {1 0100101011001010}

test binary-22.3 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x82\x53 b arg1] $arg1

} {1 0}

test binary-22.4 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x82\x53 b1 arg1] $arg1

} {1 0}

test binary-22.5 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x82\x53 b0 arg1] $arg1

} {1 {}}

test binary-22.6 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\x53 b5 arg1] $arg1

} {1 01001}

test binary-22.7 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\x53 b8 arg1] $arg1

} {1 01001010}

test binary-22.8 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\x53 b14 arg1] $arg1

} {1 01001010110010}

test binary-22.9 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

set arg1 foo

list [binary scan \x52 b14 arg1] $arg1

} {0 foo}

test binary-22.10 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -returnCodes error -body {

set arg1 1

binary scan \x52\x53 b1 arg1(a)

} -result {can't set "arg1(a)": variable isn't array}

test binary-22.11 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1 arg2

} -body {

set arg1 foo

set arg2 bar

list [binary scan \x07\x87\x05 b5b* arg1 arg2] $arg1 $arg2

} -result {2 11100 1110000110100000}

test binary-23.1 {Tcl_BinaryObjCmd: scan} -returnCodes error -body {

binary scan abc B

} -result {not enough arguments for all format specifiers}

test binary-23.2 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\x53 B* arg1] $arg1

} {1 0101001001010011}

test binary-23.3 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x82\x53 B arg1] $arg1

} {1 1}

test binary-23.4 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x82\x53 B1 arg1] $arg1

} {1 1}

test binary-23.5 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\x53 B0 arg1] $arg1

} {1 {}}

test binary-23.6 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\x53 B5 arg1] $arg1

} {1 01010}

test binary-23.7 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\x53 B8 arg1] $arg1

} {1 01010010}

test binary-23.8 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\x53 B14 arg1] $arg1

} {1 01010010010100}

test binary-23.9 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

set arg1 foo

list [binary scan \x52 B14 arg1] $arg1

} {0 foo}

test binary-23.10 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -returnCodes error -body {

set arg1 1

binary scan \x52\x53 B1 arg1(a)

} -result {can't set "arg1(a)": variable isn't array}

test binary-23.11 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1 arg2

} -body {

set arg1 foo

set arg2 bar

list [binary scan \x70\x87\x05 B5B* arg1 arg2] $arg1 $arg2

} -result {2 01110 1000011100000101}

test binary-24.1 {Tcl_BinaryObjCmd: scan} -returnCodes error -body {

binary scan abc h

} -result {not enough arguments for all format specifiers}

test binary-24.2 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\xA3 h* arg1] $arg1

} {1 253a}

test binary-24.3 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \xC2\xA3 h arg1] $arg1

} {1 2}

test binary-24.4 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x82\x53 h1 arg1] $arg1

} {1 2}

test binary-24.5 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\x53 h0 arg1] $arg1

} {1 {}}

test binary-24.6 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \xF2\x53 h2 arg1] $arg1

} {1 2f}

test binary-24.7 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\x53 h3 arg1] $arg1

} {1 253}

test binary-24.8 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

set arg1 foo

list [binary scan \x52 h3 arg1] $arg1

} {0 foo}

test binary-24.9 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -returnCodes error -body {

set arg1 1

binary scan \x52\x53 h1 arg1(a)

} -result {can't set "arg1(a)": variable isn't array}

test binary-24.10 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1 arg2

} -body {

set arg1 foo

set arg2 bar

list [binary scan \x70\x87\x05 h2h* arg1 arg2] $arg1 $arg2

} -result {2 07 7850}

test binary-25.1 {Tcl_BinaryObjCmd: scan} -returnCodes error -body {

binary scan abc H

} -result {not enough arguments for all format specifiers}

test binary-25.2 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\xA3 H* arg1] $arg1

} {1 52a3}

test binary-25.3 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \xC2\xA3 H arg1] $arg1

} {1 c}

test binary-25.4 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x82\x53 H1 arg1] $arg1

} {1 8}

test binary-25.5 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\x53 H0 arg1] $arg1

} {1 {}}

test binary-25.6 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \xF2\x53 H2 arg1] $arg1

} {1 f2}

test binary-25.7 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\x53 H3 arg1] $arg1

} {1 525}

test binary-25.8 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

set arg1 foo

list [binary scan \x52 H3 arg1] $arg1

} {0 foo}

test binary-25.9 {Tcl_BinaryObjCmd: scan} -setup {

unset -nocomplain arg1

} -returnCodes error -body {

set arg1 1

binary scan \x52\x53 H1 arg1(a)

} -result {can't set "arg1(a)": variable isn't array}

test binary-25.10 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain 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} -returnCodes error -body {

binary scan abc c

} -result {not enough arguments for all format specifiers}

test binary-26.2 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\xA3 c* arg1] $arg1

} {1 {82 -93}}

test binary-26.3 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\xA3 c arg1] $arg1

} {1 82}

test binary-26.4 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\xA3 c1 arg1] $arg1

} {1 82}

test binary-26.5 {Tcl_BinaryObjCmd: scan} {

unset -nocomplain arg1

list [binary scan \x52\xA3 c0 arg1] $arg1

} {1 {}}

test binary-26.6 {Tcl_BinaryObjCmd: scan} {