Add failing unit test

diff --git a/core/test/collections/hashtables.factor b/core/test/collections/hashtables.factor
index 276bf876ae0482a64715b96324b0a71e0fca929c..ff2039fb5182e8bcbb19e518e7e5f36a5b3db406 100644 (file)
--- a/core/test/collections/hashtables.factor
+++ b/core/test/collections/hashtables.factor
@@ -205,3 +205,11 @@ H{ } "x" set
 
 ! Crash discovered by erg
 [ t ] [ 3/4 <hashtable> dup clone = ] unit-test
+
+! Another crash discovered by erg
+[ ] [
+    H{ } clone
+    [ 1 swap set-hash ] catch drop
+    [ 2 swap set-hash ] catch drop
+    [ 3 swap set-hash ] catch drop
+] unit-test