-USING: io io.streams.string kernel namespaces make
-pack strings tools.test pack.private ;
-IN: pack.tests
+USING: alien.c-types io io.streams.string kernel make namespaces
+pack pack.private strings tools.test ;
{ B{ 1 0 2 0 0 3 0 0 0 4 0 0 0 0 0 0 0 5 } } [
{ 1 2 3 4 5 }
[ "iii" pack ] must-infer
[ "iii" unpack ] must-infer
-: test-pack ( str -- ba )
- "iii" pack ;
-
-[ test-pack ] must-infer
+[ "iii" pack ] must-infer
{ "c" } [ "1c" expand-pack-format ] unit-test
{ "cccc" } [ "4c" expand-pack-format ] unit-test
{ "cccccccccccc" } [ "12c" expand-pack-format ] unit-test
{ "iccqqq" } [ "1i2c3q" expand-pack-format ] unit-test
+
+{ B{ 1 0 0 0 } } [ 1 int32_t >n-byte-array ] unit-test