aboutsummaryrefslogtreecommitdiff
path: root/tests/pack.test
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2020-05-03 12:27:54 +1000
committerSteve Bennett <steveb@workware.net.au>2020-05-04 21:57:37 +1000
commit93cadfb21511c29366ae8754fe09bd17ef12b9da (patch)
tree24d61c1d6ba2bbd29dbc9904f8c69baaff17ab2d /tests/pack.test
parentcf5e532c69ddafda91c25e6f58aedfc3ae0a2058 (diff)
downloadjimtcl-93cadfb21511c29366ae8754fe09bd17ef12b9da.zip
jimtcl-93cadfb21511c29366ae8754fe09bd17ef12b9da.tar.gz
jimtcl-93cadfb21511c29366ae8754fe09bd17ef12b9da.tar.bz2
unpack: consistent error messages
between pack and unpack Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/pack.test')
-rw-r--r--tests/pack.test12
1 files changed, 5 insertions, 7 deletions
diff --git a/tests/pack.test b/tests/pack.test
index a01669a..0ce16cd 100644
--- a/tests/pack.test
+++ b/tests/pack.test
@@ -81,26 +81,24 @@ test unpack-1.3 {unpack bad width} -body {
} -returnCodes error -result {expected integer but got "badint"}
test unpack-1.4 {unpack bad width} -body {
- # Poor message
unpack abc -intle 0 -5
-} -returnCodes error -result {int field is too wide: -5}
+} -returnCodes error -result {bad bitwidth: -5}
test unpack-1.5 {unpack bad offset} -body {
unpack abc -intle badint 8
} -returnCodes error -result {expected integer but got "badint"}
-test unpack-1.6 {unpack bad offset} {
- # Should be an error
+test unpack-1.6 {unpack bad offset} -body {
unpack abc -intle -6 8
-} 0
+} -returnCodes error -result {bad bitoffset: -6}
test unpack-1.7 {unpack str not on byte boundary offset} -body {
unpack abc -str 5 8
-} -returnCodes error -result {string field is not on a byte boundary}
+} -returnCodes error -result {bad bitoffset: 5}
test unpack-1.8 {unpack float bad width} -body {
unpack abc -floatbe 0 24
-} -returnCodes error -result {float field has bad bitwidth: 24}
+} -returnCodes error -result {bad bitwidth: 24}
test unpack-2.1 {unpack str width past end} -body {
unpack abc -str 16 16