Merge branch 'master' of git://factorcode.org/git/factor

[factor.git] / core / generic / generic-tests.factor

diff --git a/core/generic/generic-tests.factor b/core/generic/generic-tests.factor
index ca43cd237267aeefb267fc7c86238defa265242f..9d6721c44bbcb4acaf53155c004db281d676c47e 100755 (executable)
--- a/core/generic/generic-tests.factor
+++ b/core/generic/generic-tests.factor
@@ -179,3 +179,20 @@ GENERIC: move-method-generic ( a -- b )
 [ ] [ "IN: generic.tests.a" <string-reader> "move-method-test-1" parse-stream drop ] unit-test
 
 [ { string } ] [ \ move-method-generic order ] unit-test
+
+GENERIC: foozul ( a -- b )
+M: reversed foozul ;
+M: integer foozul ;
+M: slice foozul ;
+
+[ t ] [
+    reversed \ foozul method-for-class
+    reversed \ foozul method
+    eq?
+] unit-test
+
+[ t ] [
+    fixnum \ <=> method-for-class
+    real \ <=> method
+    eq?
+] unit-test
\ No newline at end of file