From e639abae0fe9de856f8580fb608de57f4f5afccf Mon Sep 17 00:00:00 2001 From: John Lenz Date: Tue, 19 Oct 2004 18:35:08 +0000 Subject: [PATCH] added new chicken runme script git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6439 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- Examples/test-suite/chicken/newobject2_runme.ss | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 Examples/test-suite/chicken/newobject2_runme.ss diff --git a/Examples/test-suite/chicken/newobject2_runme.ss b/Examples/test-suite/chicken/newobject2_runme.ss new file mode 100644 index 000000000..166eadc52 --- /dev/null +++ b/Examples/test-suite/chicken/newobject2_runme.ss @@ -0,0 +1,9 @@ +(load-library 'newobject2 "newobject2.so") + +(define f (make )) + +(slot-set! f 'dummy 14) +(if (not (= (slot-ref f 'dummy) 14)) + (error "Bad dummy value")) + +(exit 0)