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: |
a96fdd0411b64cc43a9860c662719903 |
| 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
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:
|