jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix test case.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8633 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2006-01-30 19:03:09 +00:00
commit 81dafd9078
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Examples/test-suite/schemerunme/li_std_string.scm
View file

@ -25,10 +25,10 @@
;; MemberString should be a wrapped class ;; MemberString should be a wrapped class
(define scl (Structure-MemberString-get struct)) (define scl (Structure-MemberString-get struct))
(if (not (string=? (std-string-str-get scl) "")) (if (not (string=? scl ""))
(error "Error 4.5")) (error "Error 4.5"))
(std-string-str-set scl "and how") (Structure-MemberString-set struct "and how")
(if (not (string=? (std-string-str-get (Structure-MemberString-get struct)) "and how")) (if (not (string=? (Structure-MemberString-get struct) "and how"))
(error "Error 5")) (error "Error 5"))
(if (not (string=? (Structure-MemberString2-get struct) "member string 2")) (if (not (string=? (Structure-MemberString2-get struct) "member string 2"))
(error "Error 6")) (error "Error 6"))