-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