From b175a77e6aa6231b495e930c0f55098ca57ea442 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Matthias=20K=C3=B6ppe?= Date: Mon, 30 Jan 2006 19:03:09 +0000 Subject: [PATCH] Fix test case. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8633 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- SWIG/Examples/test-suite/schemerunme/li_std_string.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/SWIG/Examples/test-suite/schemerunme/li_std_string.scm b/SWIG/Examples/test-suite/schemerunme/li_std_string.scm index b2ac6c7e8..e77c32870 100644 --- a/SWIG/Examples/test-suite/schemerunme/li_std_string.scm +++ b/SWIG/Examples/test-suite/schemerunme/li_std_string.scm @@ -25,10 +25,10 @@ ;; MemberString should be a wrapped class (define scl (Structure-MemberString-get struct)) -(if (not (string=? (std-string-str-get scl) "")) +(if (not (string=? scl "")) (error "Error 4.5")) -(std-string-str-set scl "and how") -(if (not (string=? (std-string-str-get (Structure-MemberString-get struct)) "and how")) +(Structure-MemberString-set struct "and how") +(if (not (string=? (Structure-MemberString-get struct) "and how")) (error "Error 5")) (if (not (string=? (Structure-MemberString2-get struct) "member string 2")) (error "Error 6"))