core, basis, extra: Remove DOS line endings from files.

[factor.git] / basis / models / mapping / mapping-tests.factor

diff --git a/basis/models/mapping/mapping-tests.factor b/basis/models/mapping/mapping-tests.factor
index eeae10ae2af9434ab44b11e601edb0c4735e2690..710ff4e086b157c8247c035827058bd245d6d0f1 100644 (file)
--- a/basis/models/mapping/mapping-tests.factor
+++ b/basis/models/mapping/mapping-tests.factor
@@ -1,34 +1,34 @@
-USING: arrays generic kernel math models namespaces sequences assocs\r
-tools.test models.mapping accessors make ;\r
-IN: models.mapping.tests\r
-\r
-! Test mapping\r
-[ ] [\r
-    [\r
-        1 <model> "one" ,,\r
-        2 <model> "two" ,,\r
-    ] H{ } make\r
-    <mapping> "m" set\r
-] unit-test\r
-\r
-[ ] [ "m" get activate-model ] unit-test\r
-\r
-[ H{ { "one" 1 } { "two" 2 } } ] [\r
-    "m" get value>>\r
-] unit-test\r
-\r
-[ ] [\r
-    H{ { "one" 3 } { "two" 4 } } \r
-    "m" get set-model\r
-] unit-test\r
-\r
-[ H{ { "one" 3 } { "two" 4 } } ] [\r
-    "m" get value>>\r
-] unit-test\r
-\r
-[ H{ { "one" 5 } { "two" 4 } } ] [\r
-    5 "one" "m" get assoc>> at set-model\r
-    "m" get value>>\r
-] unit-test\r
-\r
-[ ] [ "m" get deactivate-model ] unit-test\r
+USING: arrays generic kernel math models namespaces sequences assocs
+tools.test models.mapping accessors make ;
+IN: models.mapping.tests
+
+! Test mapping
+[ ] [
+    [
+        1 <model> "one" ,,
+        2 <model> "two" ,,
+    ] H{ } make
+    <mapping> "m" set
+] unit-test
+
+[ ] [ "m" get activate-model ] unit-test
+
+[ H{ { "one" 1 } { "two" 2 } } ] [
+    "m" get value>>
+] unit-test
+
+[ ] [
+    H{ { "one" 3 } { "two" 4 } } 
+    "m" get set-model
+] unit-test
+
+[ H{ { "one" 3 } { "two" 4 } } ] [
+    "m" get value>>
+] unit-test
+
+[ H{ { "one" 5 } { "two" 4 } } ] [
+    5 "one" "m" get assoc>> at set-model
+    "m" get value>>
+] unit-test
+
+[ ] [ "m" get deactivate-model ] unit-test