| (load "li_std_string.so") |
| |
| (define x "hello") |
| |
| (if (not (string=? (test-value x) x)) |
| (begin (error "Error 1") (exit 1))) |
| |
| (if (not (string=? (test-const-reference x) x)) |
| (begin (error "Error 2") (exit 1))) |
| |
| (define y (test-pointer-out)) |
| (test-pointer y) |
| (define z (test-const-pointer-out)) |
| (test-const-pointer z) |
| |
| (define a (test-reference-out)) |
| (test-reference a) |
| |
| ;; test global variables |
| (GlobalString "whee") |
| (if (not (string=? (GlobalString) "whee")) |
| (error "Error 3")) |
| (if (not (string=? (GlobalString2) "global string 2")) |
| (error "Error 4")) |
| |
| (define struct (make <Structure>)) |
| |
| ;; MemberString should be a wrapped class |
| (if (not (string=? (slot-ref struct 'MemberString) "")) |
| (error "Error 4.5")) |
| ;(slot-set! (slot-ref struct 'MemberString) "and how") |
| ;;(if (not (string=? (slot-ref struct 'MemberString) "and how")) |
| ;; (error "Error 5")) |
| (if (not (string=? (slot-ref struct 'MemberString2) "member string 2")) |
| (error "Error 6")) |
| (Structure-StaticMemberString "static str") |
| (if (not (string=? (Structure-StaticMemberString) "static str")) |
| (error "Error 7")) |
| (if (not (string=? (Structure-StaticMemberString2) "static member string 2")) |
| (error "Error 8")) |
| |
| ;(if (not (string=? (Structure-ConstMemberString-get struct) "const member string")) |
| ; (error "Error 9")) |
| (if (not (string=? (Structure-ConstStaticMemberString) "const static member string")) |
| (error "Error 10")) |
| |
| (exit 0) |