/trunk/Examples/test-suite/chicken/li_std_string_runme_proxy.ss
Scheme | 47 lines | 30 code | 10 blank | 7 comment | 0 complexity | 70f73b4d51dc7b606e070ff6b9542a84 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- (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)