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

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

diff --git a/basis/models/product/product-tests.factor b/basis/models/product/product-tests.factor
index c26866e83b41630c9311ca14921e9bb368520bc7..29ee20235099b2dfc3b2d8e83da279636c45aaaa 100644 (file)
--- a/basis/models/product/product-tests.factor
+++ b/basis/models/product/product-tests.factor
@@ -1,46 +1,46 @@
-USING: arrays generic kernel math models namespaces sequences assocs\r
-tools.test models.product accessors locals ;\r
-IN: models.product.tests\r
-\r
-[ ] [\r
-    1 <model> "a" set\r
-    2 <model> "b" set\r
-    "a" get "b" get 2array <product> "c" set\r
-] unit-test\r
-\r
-[ ] [ "c" get activate-model ] unit-test\r
-\r
-[ { 1 2 } ] [ "c" get value>> ] unit-test\r
-\r
-[ ] [ 3 "b" get set-model ] unit-test\r
-\r
-[ { 1 3 } ] [ "c" get value>> ] unit-test\r
-\r
-[ ] [ { 4 5 } "c" get set-model ] unit-test\r
-\r
-[ { 4 5 } ] [ "c" get value>> ] unit-test\r
-\r
-[ ] [ "c" get deactivate-model ] unit-test\r
-\r
-TUPLE: an-observer { i integer } ;\r
-\r
-M: an-observer model-changed nip [ 1 + ] change-i drop ;\r
-\r
-[ 1 0 ] [\r
-    [let\r
-        1 <model> :> m1\r
-        2 <model> :> m2\r
-        { m1 m2 } <product> :> c\r
-        an-observer new :> o1\r
-        an-observer new :> o2\r
-        \r
-        o1 m1 add-connection\r
-        o2 m2 add-connection\r
-\r
-        c activate-model\r
-    \r
-        "OH HAI" m1 set-model\r
-        o1 i>>\r
-        o2 i>>\r
-    ]\r
-] unit-test\r
+USING: arrays generic kernel math models namespaces sequences assocs
+tools.test models.product accessors locals ;
+IN: models.product.tests
+
+[ ] [
+    1 <model> "a" set
+    2 <model> "b" set
+    "a" get "b" get 2array <product> "c" set
+] unit-test
+
+[ ] [ "c" get activate-model ] unit-test
+
+[ { 1 2 } ] [ "c" get value>> ] unit-test
+
+[ ] [ 3 "b" get set-model ] unit-test
+
+[ { 1 3 } ] [ "c" get value>> ] unit-test
+
+[ ] [ { 4 5 } "c" get set-model ] unit-test
+
+[ { 4 5 } ] [ "c" get value>> ] unit-test
+
+[ ] [ "c" get deactivate-model ] unit-test
+
+TUPLE: an-observer { i integer } ;
+
+M: an-observer model-changed nip [ 1 + ] change-i drop ;
+
+[ 1 0 ] [
+    [let
+        1 <model> :> m1
+        2 <model> :> m2
+        { m1 m2 } <product> :> c
+        an-observer new :> o1
+        an-observer new :> o2
+        
+        o1 m1 add-connection
+        o2 m2 add-connection
+
+        c activate-model
+    
+        "OH HAI" m1 set-model
+        o1 i>>
+        o2 i>>
+    ]
+] unit-test