basis/hashtables/identity/identity-tests.factor

   1 ! (c)2010 Joe Groff bsd license\r
   2 USING: assocs hashtables.identity kernel literals tools.test ;\r
   3 IN: hashtables.identity.tests\r
   4 \r
   5 CONSTANT: the-real-slim-shady "marshall mathers"\r
   6 \r
   7 CONSTANT: will\r
   8     IH{\r
   9         { $ the-real-slim-shady t }\r
  10         { "marshall mathers"    f }\r
  11     }\r
  12 \r
  13 : please-stand-up ( assoc key -- value )\r
  14     of ;\r
  15 \r
  16 [ t ] [ will the-real-slim-shady please-stand-up ] unit-test\r
  17 [ t ] [ will clone the-real-slim-shady please-stand-up ] unit-test\r
  18 \r
  19 [ 2 ] [ will assoc-size ] unit-test\r
  20 [ { { "marshall mathers" f } } ] [\r
  21     the-real-slim-shady will clone\r
  22     [ delete-at ] [ >alist ] bi\r
  23 ] unit-test\r
  24 [ t ] [\r
  25     t the-real-slim-shady identity-associate\r
  26     t the-real-slim-shady identity-associate =\r
  27 ] unit-test\r
  28 [ f ] [\r
  29     t the-real-slim-shady identity-associate\r
  30     t "marshall mathers"  identity-associate =\r
  31 ] unit-test\r
  32 \r
  33 CONSTANT: same-as-it-ever-was "same as it ever was"\r
  34 \r
  35 { IH{ { $ same-as-it-ever-was $ same-as-it-ever-was } } }\r
  36 [ H{ { $ same-as-it-ever-was $ same-as-it-ever-was } } IH{ } assoc-like ] unit-test\r