added a test case for sys::pack
This commit is contained in:
@ -572,8 +572,8 @@ function main()
|
|||||||
sys::pack(a, ">hhl", 1, 2, 3);
|
sys::pack(a, ">hhl", 1, 2, 3);
|
||||||
tap_ensure (a === @b"\x00\x01\x00\x02\x00\x00\x00\x00\x00\x00\x00\x03", 1, @SCRIPTNAME, @SCRIPTLINE);
|
tap_ensure (a === @b"\x00\x01\x00\x02\x00\x00\x00\x00\x00\x00\x00\x03", 1, @SCRIPTNAME, @SCRIPTLINE);
|
||||||
|
|
||||||
sys::pack(a, ">ci", @b'*', 0x12131415);
|
sys::pack(a, ">ciI", @b'*', 0x12131415, 0x22334455);
|
||||||
tap_ensure (a === @b"*\x12\x13\x14\x15", 1, @SCRIPTNAME, @SCRIPTLINE);
|
tap_ensure (a === @b"*\x12\x13\x14\x15\x22\x33\x44\x55", 1, @SCRIPTNAME, @SCRIPTLINE);
|
||||||
|
|
||||||
sys::pack(a, ">ic", 0x12131415, @b"*+-");
|
sys::pack(a, ">ic", 0x12131415, @b"*+-");
|
||||||
tap_ensure (a === @b"\x12\x13\x14\x15*", 1, @SCRIPTNAME, @SCRIPTLINE);
|
tap_ensure (a === @b"\x12\x13\x14\x15*", 1, @SCRIPTNAME, @SCRIPTLINE);
|
||||||
|
Reference in New Issue
Block a user