-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