Jim Tcl
Check-in [00ead1b118]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:tests: binary tests require pack on jim

Avoid failing many tests if binary.tcl is available put pack isn't enabled.

Signed-off-by: Steve Bennett <steveb@workware.net.au>

Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:00ead1b118b2b030edd33382ca42e076bbd6f62c
User & Date: steveb@workware.net.au 2017-08-31 23:01:20
Context
2017-09-13
11:25
docs: Remove Last Modified footer

For reproducible builds

Reported-by: Bernhard M. Wiedemann <bwiedemann@suse.de> Signed-off-by: Steve Bennett <steveb@workware.net.au> check-in: 47c657f7b0 user: steveb@workware.net.au tags: trunk

2017-08-31
23:01
tests: binary tests require pack on jim

Avoid failing many tests if binary.tcl is available put pack isn't enabled.

Signed-off-by: Steve Bennett <steveb@workware.net.au> check-in: 00ead1b118 user: steveb@workware.net.au tags: trunk

23:01
Support lambda even if references are disabled

It's convenient to support a non-gc lambda, even if references are disabled.

Signed-off-by: Steve Bennett <steveb@workware.net.au> check-in: 013bf547ba user: steveb@workware.net.au tags: trunk

Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/binary.test.

9
10
11
12
13
14
15



16
17
18
19
20
21
22
#
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.

source [file dirname [info script]]/testing.tcl

needs cmd binary



testConstraint bigEndian [expr {$tcl_platform(byteOrder) eq "bigEndian"}]
testConstraint littleEndian [expr {$tcl_platform(byteOrder) eq "littleEndian"}]
testConstraint maxCompatibility 0
testConstraint notImplemented 0

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








>
>
>







9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.

source [file dirname [info script]]/testing.tcl

needs cmd binary
if {[testConstraint jim]} {
    needs cmd pack
}
testConstraint bigEndian [expr {$tcl_platform(byteOrder) eq "bigEndian"}]
testConstraint littleEndian [expr {$tcl_platform(byteOrder) eq "littleEndian"}]
testConstraint maxCompatibility 0
testConstraint notImplemented 0

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