]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/boxes/boxes-tests.factor
core, basis, extra: Remove DOS line endings from files.
[factor.git] / basis / boxes / boxes-tests.factor
index 3bcb735217f9a79e2295c0af32c919d56bb32171..a89c3f172ef6b859bfe926a0e7d584a64b7923c3 100644 (file)
@@ -1,24 +1,24 @@
-USING: boxes namespaces tools.test accessors ;\r
-IN: boxes.tests\r
-\r
-[ ] [ <box> "b" set ] unit-test\r
-\r
-[ ] [ 3 "b" get >box ] unit-test\r
-\r
-[ t ] [ "b" get occupied>> ] unit-test\r
-\r
-[ 4 "b" >box ] must-fail\r
-\r
-[ 3 ] [ "b" get box> ] unit-test\r
-\r
-[ f ] [ "b" get occupied>> ] unit-test\r
-\r
-[ "b" get box> ] must-fail\r
-\r
-[ f f ] [ "b" get ?box ] unit-test\r
-\r
-[ ] [ 12 "b" get >box ] unit-test\r
-\r
-[ 12 t ] [ "b" get ?box ] unit-test\r
-\r
-[ f ] [ "b" get occupied>> ] unit-test\r
+USING: boxes namespaces tools.test accessors ;
+IN: boxes.tests
+
+[ ] [ <box> "b" set ] unit-test
+
+[ ] [ 3 "b" get >box ] unit-test
+
+[ t ] [ "b" get occupied>> ] unit-test
+
+[ 4 "b" >box ] must-fail
+
+[ 3 ] [ "b" get box> ] unit-test
+
+[ f ] [ "b" get occupied>> ] unit-test
+
+[ "b" get box> ] must-fail
+
+[ f f ] [ "b" get ?box ] unit-test
+
+[ ] [ 12 "b" get >box ] unit-test
+
+[ 12 t ] [ "b" get ?box ] unit-test
+
+[ f ] [ "b" get occupied>> ] unit-test