basis/hashtables/identity/identity-tests.factor

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