Tcl Source Code

Check-in [a96fdd0411]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:start of conversion tests
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-450
Files: files | file ages | folders
SHA3-256: a96fdd0411b64cc43a9860c662719903c950ee923b11f60fb856d725931ca6bd
User & Date: dkf 2019-06-12 07:33:52
Context
2019-06-14
09:11
Test cases. One failure... check-in: e4a8d48058 user: dkf tags: tip-450
2019-06-12
07:33
start of conversion tests check-in: a96fdd0411 user: dkf tags: tip-450
2019-06-11
12:25
Don't create variable on error check-in: 1d3ff9a0e1 user: dkf tags: tip-450
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/binary.test.

2954
2955
2956
2957
2958
2959
2960









































































2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
} -body {
    list [catch {binary set nosuchvar ci 70 gorp} msg] $msg \
	[info exist nosuchvar]
} -cleanup {
    unset -nocomplain x
} -result {1 {expected integer but got "gorp"} 0}










































































 
# ----------------------------------------------------------------------
# cleanup

::tcltest::cleanupTests
return

# Local Variables:
# mode: tcl
# End:






>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>










2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
} -body {
    list [catch {binary set nosuchvar ci 70 gorp} msg] $msg \
	[info exist nosuchvar]
} -cleanup {
    unset -nocomplain x
} -result {1 {expected integer but got "gorp"} 0}

test binary-80.1 {binary set: a} {
    set x abc
    binary set x a A
    return $x
} Abc
test binary-80.2 {binary set: a} {
    set x abc
    binary set x a* AB
    return $x
} ABc
test binary-80.3 {binary set: a} {
    set x abc
    binary set x a1 AB
    return $x
} Abc
test binary-80.4 {binary set: a} {
    set x abc
    binary set x a2 A
    scan $x %c%c%c
} {65 0 99}

test binary-81.1 {binary set: A} {
    set x abc
    binary set x A A
    return $x
} Abc
test binary-81.2 {binary set: A} {
    set x abc
    binary set x A* AB
    return $x
} ABc
test binary-81.3 {binary set: A} {
    set x abc
    binary set x A1 AB
    return $x
} Abc
test binary-81.4 {binary set: A} {
    set x abc
    binary set x A2 A
    scan $x %c%c%c
} {65 32 99}

test binary-82.1 {binary set: b} {
    set x abc
    binary set x b 10101010
    scan $x %c%c%c
} {1 98 99}
test binary-82.2 {binary set: b} {
    set x abc
    binary set x b* 1010101011011010
    return $x
} "U\[c"
test binary-82.3 {binary set: b} {
    set x abc
    binary set x b4 1010101010101010
    scan $x %c%c%c
} {5 98 99}

test binary-83.1 {binary set: B} {
    set x abc
    binary set x B 10101010
    scan $x %c%c%c
} {128 98 99}
test binary-83.2 {binary set: B} {
    set x abc
    binary set x B* 0101010101101101
    return $x
} Umc
test binary-83.3 {binary set: B} {
    set x abc
    binary set x B4 1010101010101010
    scan $x %c%c%c
} {160 98 99}
 
# ----------------------------------------------------------------------
# cleanup

::tcltest::cleanupTests
return

# Local Variables:
# mode: tcl
# End: