Examples/test-suite/chicken/overload_extend_runme_proxy.ss

   1 (load "./overload_extend.so")
   2
   3 (define f (make <Foo>))
   4
   5 (if (not (= (test f 3) 1))
   6   (error "test integer bad"))
   7
   8 (if (not (= (test f "hello") 2))
   9   (error "test string bad"))
  10
  11 (if (not (= (test f 3.5 2.5) 6.0))
  12   (error "test reals bad"))
  13
  14 (exit 0)