diff options
author | Steve Bennett <steveb@workware.net.au> | 2020-05-03 12:27:54 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2020-05-04 21:57:37 +1000 |
commit | 93cadfb21511c29366ae8754fe09bd17ef12b9da (patch) | |
tree | 24d61c1d6ba2bbd29dbc9904f8c69baaff17ab2d /tests | |
parent | cf5e532c69ddafda91c25e6f58aedfc3ae0a2058 (diff) | |
download | jimtcl-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')
-rw-r--r-- | tests/pack.test | 12 |
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 |