Chicken: a few bug fixes, a new example and some new test suite runme, and some doc updates

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

Examples/test-suite/chicken/Makefile.in

@@ -6,6 +6,7 @@
 LANGUAGE     = chicken
 VARIANT      = 
 SCRIPTSUFFIX = _runme.ss
+PROXYSUFFIX  = _runme_proxy.ss
 srcdir       = @srcdir@
 top_srcdir   = @top_srcdir@
 top_builddir = @top_builddir@
@@ -24,11 +25,17 @@ SWIGOPT +=
 	$(setup) \
 	($(swig_and_compile_cpp); ) && \
 	$(run_testcase)
+	if [ -f $(srcdir)/$(SCRIPTPREFIX)$*$(PROXYSUFFIX) ]; then ( \
+	  $(MAKE) $*.cppproxy; ) \
+	fi;
 
 %.ctest:
 	$(setup) \
 	($(swig_and_compile_c); ) && \
 	$(run_testcase)
+	if [ -f $(srcdir)/$(SCRIPTPREFIX)$*$(PROXYSUFFIX) ]; then ( \
+	  $(MAKE) $*.cproxy; ) \
+	fi;
 
 %.multicpptest: 
 	$(setup) \
@@ -42,6 +49,22 @@ run_testcase = \
 	  env LD_LIBRARY_PATH=.:$$LD_LIBRARY_PATH $(CHICKEN_CSI) $(srcdir)/$(SCRIPTPREFIX)$*$(SCRIPTSUFFIX);) \
 	fi;
 
+# If there exists a PROXYSUFFIX runme file, we also generate the wrapper
+# with the -proxy argument
+%.cppproxy: SWIGOPT += -proxy
+%.cppproxy: SCRIPTSUFFIX = $(PROXYSUFFIX)
+%.cppproxy:
+	echo "Checking testcase $* (with run test) under chicken with -proxy"; \
+	($(swig_and_compile_cpp); ) && \
+	$(run_testcase)
+
+%.cproxy: SWIGOPT += -proxy
+%.cproxy: SCRIPTSUFFIX = $(PROXYSUFFIX)
+%.cproxy:
+	echo "Checking testcase $* (with run test) under chicken with -proxy"; \
+	($(swig_and_compile_c); ) && \
+	$(run_testcase)
+
 # Clean
 %.clean:
 	

Examples/test-suite/chicken/README

@@ -5,3 +5,7 @@ NOTE: I had to use _runme.ss becuase otherwise it would be hard to implement mak
 Since when SWIG runs it generates an example.scm file for every test, to clean those files
 I needed to add a rm -f *.scm to make clean.  But we don't want the runme scripts to
 dissappear as well!
+
+Any testcases which have _runme_proxy.ss appended after the testcase name will be detected
+and run with the -proxy argument passed to SWIG.  SWIG will not be run with the -unhide-primitive
+option, so the _runme_proxy.ss file must use only the tinyclos exported interface.

Examples/test-suite/chicken/newobject2_runme.ss

@@ -1,20 +1,29 @@
 (load-library 'newobject2 "newobject2.so")
 
-(define f (make <Foo>))
+(define f (new-Foo))
 
-(slot-set! f 'dummy 14)
-(if (not (= (slot-ref f 'dummy) 14))
+(Foo-dummy-set f 14)
+(if (not (= (Foo-dummy-get f) 14))
   (error "Bad dummy value"))
 
+(if (not (= (fooCount) 0))
+  (error "Bad foo count 1"))
+
 (define f2 (makeFoo))
 
-(slot-set! f2 'dummy 16)
-(if (not (= (slot-ref f2 'dummy) 16))
+(if (not (= (fooCount) 1))
+  (error "Bad foo count 2"))
+
+(Foo-dummy-set f2 16)
+(if (not (= (Foo-dummy-get f2) 16))
   (error "Bad dummy value for f2"))
 
 (set! f #f)
 (set! f2 #f)
 
-(gc)
+(gc #t)
+
+(if (not (= (fooCount) -1))
+  (error "Bad foo count 3"))
 
 (exit 0)

Examples/test-suite/chicken/newobject2_runme_proxy.ss

@@ -0,0 +1,29 @@
+(load-library 'newobject2 "newobject2.so")
+
+(define f (make <Foo>))
+
+(slot-set! f 'dummy 14)
+(if (not (= (slot-ref f 'dummy) 14))
+  (error "Bad dummy value"))
+
+(if (not (= (fooCount) 0))
+  (error "Bad foo count 1"))
+
+(define f2 (makeFoo))
+
+(if (not (= (fooCount) 1))
+  (error "Bad foo count 2"))
+
+(slot-set! f2 'dummy 16)
+(if (not (= (slot-ref f2 'dummy) 16))
+  (error "Bad dummy value for f2"))
+
+(set! f #f)
+(set! f2 #f)
+
+(gc #t)
+
+(if (not (= (fooCount) -1))
+  (error "Bad foo count 3"))
+
+(exit 0)