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

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