hashtables.identity: test assoc-like

diff --git a/basis/hashtables/identity/identity-tests.factor b/basis/hashtables/identity/identity-tests.factor
index 871d8e3d32acb15faa2ee83b78bf9971479a2780..36640388ea190bddc4aa66e8c988ea173ca8c1fa 100644 (file)
--- 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\r
     t "marshall mathers"  identity-associate =\r
 ] unit-test\r
+\r
+CONSTANT: same-as-it-ever-was "same as it ever was"\r
+\r
+{ IH{ { $ same-as-it-ever-was $ same-as-it-ever-was } } }\r
+[ H{ { $ same-as-it-ever-was $ same-as-it-ever-was } } IH{ } assoc-like ] unit-test\r