hashtables.identity: test assoc-like

2011-11-01 21:09:23 -07:00 · 2011-11-01 21:09:23 -07:00 · 7de62e8dbb
parent 73845fdad9
commit 7de62e8dbb
1 changed files with 5 additions and 0 deletions
--- a/basis/hashtables/identity/identity-tests.factor
+++ b/basis/hashtables/identity/identity-tests.factor
@ -29,3 +29,8 @@ CONSTANT: will
    t the-real-slim-shady identity-associate
    t "marshall mathers"  identity-associate =
 ] unit-test
+
+CONSTANT: same-as-it-ever-was "same as it ever was"
+
+{ IH{ { $ same-as-it-ever-was $ same-as-it-ever-was } } }
+[ H{ { $ same-as-it-ever-was $ same-as-it-ever-was } } IH{ } assoc-like ] unit-test