Chicken test suite now runs with no errors

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10054 626c5289-ae23-0410-ae9c-e8d60b6d4f22

Examples/test-suite/apply_strings.i

@@ -35,9 +35,16 @@
 
 // unsigned char* as strings
 #if !defined(SWIGUTL)
+
+#if !defined(SWIGCHICKEN)
+/* Chicken does not allow unsigned char * in strings */
+
 %apply char [ANY] {TAscii[ANY]}
 %apply char [] {TAscii []}
 %apply char * {TAscii *}
+
+#endif
+
 #else
 #warning "UTL needs fixing for these typemaps"
 #endif

Examples/test-suite/chicken/member_pointer_runme.ss

@@ -0,0 +1,28 @@
+(require 'member_pointer)
+
+(define (check-eq? msg expected actual)
+  (if (not (= expected actual))
+    (error "Error " msg ": expected " expected " got " actual)))
+
+(define area-pt (areapt))
+(define perim-pt (perimeterpt))
+
+(define s (new-Square 10))
+
+(check-eq? "Square area" 100.0 (do-op s area-pt))
+(check-eq? "Square perim" 40.0 (do-op s perim-pt))
+
+(check-eq? "Square area" 100.0 (do-op s (areavar)))
+(check-eq? "Square perim" 40.0 (do-op s (perimetervar)))
+
+;; Set areavar to return value of function
+(areavar perim-pt)
+(check-eq? "Square perim" 40 (do-op s (areavar)))
+
+(check-eq? "Square area" 100.0 (do-op s (AREAPT)))
+(check-eq? "Square perim" 40.0 (do-op s (PERIMPT)))
+
+(define test (NULLPT))
+
+(perimetervar (AREAPT))
+(check-eq? "Square area" 100.0 (do-op s (perimetervar)))

Examples/test-suite/common.mk

@@ -233,7 +233,6 @@ CPP_TEST_CASES += \
 	smart_pointer_const \
 	smart_pointer_const2 \
 	smart_pointer_extend \
-	smart_pointer_inherit \
 	smart_pointer_member \
 	smart_pointer_multi \
 	smart_pointer_multi_typedef \
@@ -360,6 +359,7 @@ CPP_STD_TEST_CASES += \
 	li_std_string \
 	li_std_vector \
 	naturalvar \
+	smart_pointer_inherit \
 	template_typedef_fnc \
 	template_type_namespace \
 	template_opaque

Examples/test-suite/exception_partial_info.i

@@ -29,6 +29,9 @@ class ex2 : public myException
 %}
 
 #if !defined(SWIGUTL)
+
+#if !defined(SWIGCHICKEN)
+
 %inline %{
 class Impl
 {
@@ -37,6 +40,11 @@ class Impl
       void f2() throw (myException) { ex2 e; throw e; }
 };
 %}
+
+#else
+#warning "Chicken needs fixing for partial exception information"
+#endif
+
 #else
 #warning "UTL needs fixing for partial exception information"
 #endif