]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/hash-sets/identity/identity-tests.factor
core, basis, extra: Remove DOS line endings from files.
[factor.git] / basis / hash-sets / identity / identity-tests.factor
index a9752b53bdfb5dca045ca3de88bb8096380ee305..22405132c332a45884a7780302173aa2e0429b26 100644 (file)
@@ -1,27 +1,27 @@
-USING: hash-sets.identity kernel literals sets tools.test ;\r
-IN: hash-sets.identity.tests\r
-\r
-CONSTANT: the-real-slim-shady "marshall mathers"\r
-\r
-CONSTANT: will\r
-    IHS{\r
-        $ the-real-slim-shady\r
-        "marshall mathers"\r
-    }\r
-\r
-: please-stand-up ( set obj -- ? )\r
-    swap in? ;\r
-\r
-[ t ] [ will the-real-slim-shady please-stand-up ] unit-test\r
-[ t ] [ will clone the-real-slim-shady please-stand-up ] unit-test\r
-\r
-[ 2 ] [ will cardinality ] unit-test\r
-[ { "marshall mathers" } ] [\r
-    the-real-slim-shady will clone\r
-    [ delete ] [ members ] bi\r
-] unit-test\r
-\r
-CONSTANT: same-as-it-ever-was "same as it ever was"\r
-\r
-{ IHS{ $ same-as-it-ever-was } }\r
-[ HS{ $ same-as-it-ever-was } IHS{ } set-like ] unit-test\r
+USING: hash-sets.identity kernel literals sets tools.test ;
+IN: hash-sets.identity.tests
+
+CONSTANT: the-real-slim-shady "marshall mathers"
+
+CONSTANT: will
+    IHS{
+        $ the-real-slim-shady
+        "marshall mathers"
+    }
+
+: please-stand-up ( set obj -- ? )
+    swap in? ;
+
+[ t ] [ will the-real-slim-shady please-stand-up ] unit-test
+[ t ] [ will clone the-real-slim-shady please-stand-up ] unit-test
+
+[ 2 ] [ will cardinality ] unit-test
+[ { "marshall mathers" } ] [
+    the-real-slim-shady will clone
+    [ delete ] [ members ] bi
+] unit-test
+
+CONSTANT: same-as-it-ever-was "same as it ever was"
+
+{ IHS{ $ same-as-it-ever-was } }
+[ HS{ $ same-as-it-ever-was } IHS{ } set-like ] unit-test