Examples/test-suite/chicken/overload_extend_runme_proxy.ss

(load "./overload_extend.so")

(define f (make <Foo>))

(if (not (= (test f 3) 1))
  (error "test integer bad"))

(if (not (= (test f "hello") 2))
  (error "test string bad"))

(if (not (= (test f 3.5 2.5) 6.0))
  (error "test reals bad"))

(exit 0)