basis/hash-sets/identity/identity-tests.factor

   1 USING: hash-sets.identity kernel literals sets tools.test ;\r
   2 IN: hash-sets.identity.tests\r
   3 \r
   4 CONSTANT: the-real-slim-shady "marshall mathers"\r
   5 \r
   6 CONSTANT: will\r
   7     IHS{\r
   8         $ the-real-slim-shady\r
   9         "marshall mathers"\r
  10     }\r
  11 \r
  12 : please-stand-up ( set obj -- ? )\r
  13     swap in? ;\r
  14 \r
  15 [ t ] [ will the-real-slim-shady please-stand-up ] unit-test\r
  16 [ t ] [ will clone the-real-slim-shady please-stand-up ] unit-test\r
  17 \r
  18 [ 2 ] [ will cardinality ] unit-test\r
  19 [ { "marshall mathers" } ] [\r
  20     the-real-slim-shady will clone\r
  21     [ delete ] [ members ] bi\r
  22 ] unit-test\r
  23 \r
  24 CONSTANT: same-as-it-ever-was "same as it ever was"\r
  25 \r
  26 { IHS{ $ same-as-it-ever-was } }\r
  27 [ HS{ $ same-as-it-ever-was } IHS{ } set-like ] unit-test\r