-USING: tools.test byte-vectors vectors sequences kernel\r
-prettyprint math ;\r
-IN: byte-vectors.tests\r
-\r
-[ 0 ] [ 123 <byte-vector> length ] unit-test\r
-\r
-: do-it ( seq -- seq )\r
- 123 [ suffix! ] each-integer ;\r
-\r
-[ t ] [\r
- 3 <byte-vector> do-it\r
- 3 <vector> do-it sequence=\r
-] unit-test\r
-\r
-[ t ] [ BV{ } byte-vector? ] unit-test\r
-\r
-[ "BV{ }" ] [ BV{ } unparse ] unit-test\r
+USING: tools.test byte-vectors vectors sequences kernel
+prettyprint math ;
+IN: byte-vectors.tests
+
+[ 0 ] [ 123 <byte-vector> length ] unit-test
+
+: do-it ( seq -- seq )
+ 123 [ suffix! ] each-integer ;
+
+[ t ] [
+ 3 <byte-vector> do-it
+ 3 <vector> do-it sequence=
+] unit-test
+
+[ t ] [ BV{ } byte-vector? ] unit-test
+
+[ "BV{ }" ] [ BV{ } unparse ] unit-test