Add test case for bug discovered by erg

2009-01-28 23:35:41 -06:00 · 2009-01-28 23:35:41 -06:00 · 3e685b2eb4
parent 87e0110ff1
commit 3e685b2eb4
1 changed files with 6 additions and 0 deletions
--- a/basis/compiler/tests/codegen.factor
+++ b/basis/compiler/tests/codegen.factor
@ -276,3 +276,9 @@ TUPLE: id obj ;

 [ 4 ] [ 2 [ dup fixnum* ] compile-call ] unit-test
 [ 7 ] [ 2 [ dup fixnum* 3 fixnum+fast ] compile-call ] unit-test
+
+SINGLETON: cucumber
+
+M: cucumber equal? "The cucumber has no equal" throw ;
+
+[ t ] [ [ cucumber ] compile-call cucumber eq? ] unit-test