instanceof test

svn: r1317
2005-11-14 22:34:58 +00:00 · 2005-11-14 22:34:58 +00:00 · e27d64ed8d
commit e27d64ed8d
parent d79eea8f37
1 changed files with 11 additions and 3 deletions
--- a/collects/tests/profj/intermediate-tests.ss
+++ b/collects/tests/profj/intermediate-tests.ss
@ -242,6 +242,14 @@
     }"
    'intermediate #f "Abstract method implemented, class subclassed")

+  (execute-test
+   "class X {
+     boolean equals( Object o ) {
+      return o instanceof X;
+    }
+  }"
+   'intermediate #f "Correct instanceof usage")
+  
  ;;Execute tests with errors

  (execute-test