PageRenderTime 27ms CodeModel.GetById 0ms RepoModel.GetById 0ms app.codeStats 0ms

/trunk/Examples/test-suite/schemerunme/typedef_inherit.scm

#
Lisp | 19 lines | 13 code | 6 blank | 0 comment | 0 complexity | bdf5daf9754eda278ad756cc069c4fe4 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

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

  2. (define b (new-Bar))
    3. 

  3. 

  4. (if (not (string=? (do-blah a) "Foo::blah"))
    5. 

  5.     (error "bad return"))
    6. 

  6. 

  7. (if (not (string=? (do-blah b) "Bar::blah"))
    8. 

  8.     (error "bad return"))
    9. 

  9. 

  10. (define c (new-Spam))
    11. 

  11. (define d (new-Grok))
    12. 

  12. 

  13. (if (not (string=? (do-blah2 c) "Spam::blah"))
    14. 

  14.     (error "bad return"))
    15. 

  15. 

  16. (if (not (string=? (do-blah2 d) "Grok::blah"))
    17. 

  17.     (error "bad return"))
    18. 

  18. 

  19. (exit 0)
    20. 

  20.