pack: add some tests for expand-pack-format.

diff --git a/basis/pack/pack-tests.factor b/basis/pack/pack-tests.factor
index b9137f77fc6f621044499c46b50adab2ca453fcc..5c8f8e3371efa981c1a3d2b12973ed73da8b757d 100644 (file)
--- a/basis/pack/pack-tests.factor
+++ b/basis/pack/pack-tests.factor
@@ -53,3 +53,8 @@ IN: pack.tests
     "iii" pack ;
 
 [ test-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