]> gitweb.factorcode.org Git - factor.git/blobdiff - core/byte-arrays/byte-arrays-tests.factor
core, basis, extra: Remove DOS line endings from files.
[factor.git] / core / byte-arrays / byte-arrays-tests.factor
index 985df28460990d5bff6cc3033170f65fd48007e2..09f9b927f244a6d9ab04fa3ab13d00762e7ebe28 100644 (file)
@@ -1,21 +1,21 @@
-USING: byte-arrays kernel math sequences sequences.private\r
-tools.test ;\r
-IN: byte-arrays.tests\r
-\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
-\r
-[ B{ 123 } ] [ 123 0 B{ 0 } [ set-nth ] keep ] unit-test\r
-\r
-[ B{ 123 } ] [ 123 >bignum 0 B{ 0 } [ set-nth ] keep ] unit-test\r
-\r
-[ 1.5 B{ 1 2 3 } nth-unsafe ] must-fail\r
-[ 0 1.5 B{ 1 2 3 } set-nth-unsafe ] must-fail\r
+USING: byte-arrays kernel math sequences sequences.private
+tools.test ;
+IN: byte-arrays.tests
+
+[ 6 B{ 1 2 3 } ] [
+    6 B{ 1 2 3 } resize-byte-array
+    [ length ] [ 3 head ] bi
+] unit-test
+
+[ B{ 1 2 } ] [ 2 B{ 1 2 3 4 5 6 7 8 9 } resize-byte-array ] unit-test
+
+[ -10 B{ } resize-byte-array ] must-fail
+
+[ B{ 123 } ] [ 123 1byte-array ] unit-test
+
+[ B{ 123 } ] [ 123 0 B{ 0 } [ set-nth ] keep ] unit-test
+
+[ B{ 123 } ] [ 123 >bignum 0 B{ 0 } [ set-nth ] keep ] unit-test
+
+[ 1.5 B{ 1 2 3 } nth-unsafe ] must-fail
+[ 0 1.5 B{ 1 2 3 } set-nth-unsafe ] must-fail