From 7de62e8dbb6431c470e309d89a8c51b2ceb7de7c Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Tue, 1 Nov 2011 21:09:23 -0700 Subject: [PATCH] hashtables.identity: test assoc-like --- basis/hashtables/identity/identity-tests.factor | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/basis/hashtables/identity/identity-tests.factor b/basis/hashtables/identity/identity-tests.factor index 871d8e3d32..36640388ea 100644 --- 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