PageRenderTime 45ms CodeModel.GetById 16ms RepoModel.GetById 0ms app.codeStats 0ms

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

#
Lisp | 31 lines | 24 code | 7 blank | 0 comment | 0 complexity | 77f93e5aba79e78635abde9a4a1809f8 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. (define-macro (check test)
    2. 

  2.   `(if (not ,test) (error "Error in test" ',test)))
    3. 

    4. 

  4. (b "hello")
    5. 

  5. (check (string=? (b) "hello"))
    6. 

    7. 

  7. (define sa (new-A))
    8. 

  8. (A-x-set sa 5)
    9. 

  9. (a sa)
    10. 

  10. (check (= (A-x-get (a)) 5))
    11. 

    12. 

  12. (ap sa)
    13. 

  13. (check (= (A-x-get (ap)) 5))
    14. 

  14. (A-x-set sa 10)
    15. 

  15. (check (= (A-x-get (ap)) 10))
    16. 

    17. 

  17. (define sa2 (new-A))
    18. 

  18. (A-x-set sa2 -4)
    19. 

  19. (cap sa2)
    20. 

  20. (check (= (A-x-get (cap)) -4))
    21. 

  21. (A-x-set sa2 -7)
    22. 

  22. (check (= (A-x-get (cap)) -7))
    23. 

    24. 

  24. (check (= (A-x-get (ar)) 5))
    25. 

  25. (ar sa2)
    26. 

  26. (check (= (A-x-get (ar)) -7))
    27. 

    28. 

  28. (x 4)
    29. 

  29. (check (= (x) 4))
    30. 

    31. 

  31. (exit 0)
    32. 

    33.