-IN: temporary\r
-USING: tools.test byte-arrays ;\r
+USING: tools.test byte-arrays sequences kernel ;\r
+IN: byte-arrays.tests\r
\r
-[ B{ 1 2 3 0 0 0 } ] [ 6 B{ 1 2 3 } resize-byte-array ] unit-test\r
+[ 6 B{ 1 2 3 } ] [\r
+ 6 B{ 1 2 3 } resize-byte-array\r
+ [ length ] [ 3 head ] bi\r
+] unit-test\r
\r
[ B{ 1 2 } ] [ 2 B{ 1 2 3 4 5 6 7 8 9 } resize-byte-array ] unit-test\r
\r
[ -10 B{ } resize-byte-array ] must-fail\r
+\r
+[ B{ 123 } ] [ 123 1byte-array ] unit-test\r