Examples/test-suite/schemerunme/overload_extend.scm

   1 (define f (new-Foo))
   2
   3 (if (not (= (Foo-test f 3) 1))
   4     (error "test integer bad"))
   5
   6 (if (not (= (Foo-test f "hello") 2))
   7     (error "test string bad"))
   8
   9 (if (not (= (Foo-test f 3.5 2.5) 6.0))
  10     (error "test reals bad"))
  11
  12 (exit 0)