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