/tags/rel-1-3-25/SWIG/Examples/test-suite/schemerunme/overload_extend.scm

# · Lisp · 12 lines · 8 code · 4 blank · 0 comment · 0 complexity · 8d7a83c5179f49e2b8d3b488b7352624 MD5 · raw file 

    

  1. (define f (new-Foo))
    2. 

  2. 

  3. (if (not (= (Foo-test f 3) 1))
    4. 

  4.     (error "test integer bad"))
    5. 

  5. 

  6. (if (not (= (Foo-test f "hello") 2))
    7. 

  7.     (error "test string bad"))
    8. 

  8. 

  9. (if (not (= (Foo-test f 3.5 2.5) 6.0))
    10. 

  10.     (error "test reals bad"))
    11. 

  11. 

  12. (exit 0)
    13.