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

The guile and chicken _runme scripts are now shared

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5979 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
John Lenz 2004-06-07 05:03:39 +00:00
commit 60f4c8988e
74 changed files with 505 additions and 490 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Examples/test-suite/chicken/Makefile.in
View file

@ -9,7 +9,7 @@ SCRIPTSUFFIX = _runme.ss
srcdir = @srcdir@
top_srcdir = @top_srcdir@
top_builddir = @top_builddir@
CHICKEN_CSI = @CHICKEN_CSI@
CHICKEN_CSI = @CHICKEN_CSI@ -quiet
SO = @SO@
#C_TEST_CASES = long_long list_vector pointer_in_out multivalue
@ -17,6 +17,7 @@ SO = @SO@
include $(srcdir)/../common.mk
# Overridden variables here
SWIGOPT += -noprefix
# none!
# Rules for the different types of tests

1
Examples/test-suite/chicken/casts_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/casts.scm")

1
Examples/test-suite/chicken/char_constant_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/char_constant.scm")

1
Examples/test-suite/chicken/class_ignore_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/class_ignore.scm")

1
Examples/test-suite/chicken/constover_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/constover.scm")

1
Examples/test-suite/chicken/contract_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/contract.scm")

1
Examples/test-suite/chicken/cpp_namespace_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/cpp_namespace.scm")

1
Examples/test-suite/chicken/dynamic_cast_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/dynamic_cast.scm")

1
Examples/test-suite/chicken/import_nomodule_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/import_nomodule.scm")

1
Examples/test-suite/chicken/imports_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/imports.scm")

1
Examples/test-suite/chicken/inherit_missing_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/inherit_missing.scm")

1
Examples/test-suite/chicken/list_vector_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/list_vector.scm")

3
Examples/test-suite/chicken/multivalue_runme.ss Normal file
View file

@ -0,0 +1,3 @@
;; this doesn't work yet :(
;;(include "../schemerunme/multivalue.scm")
(exit 0)

1
Examples/test-suite/chicken/name_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/name.scm")

1
Examples/test-suite/chicken/overload_complicated_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/overload_complicated.scm")

1
Examples/test-suite/chicken/overload_copy_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/overload_copy.scm")

1
Examples/test-suite/chicken/overload_extend_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/overload_extend.scm")

1
Examples/test-suite/chicken/overload_simple_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/overload_simple.scm")

1
Examples/test-suite/chicken/overload_subtype_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/overload_subtype.scm")

1
Examples/test-suite/chicken/pointer_in_out_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/pointer_in_out.scm")

1
Examples/test-suite/chicken/reference_global_vars_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/reference_global_vars.scm")

1
Examples/test-suite/chicken/typedef_inherit_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/typedef_inherit.scm")

1
Examples/test-suite/chicken/typename_runme.ss Normal file
View file

@ -0,0 +1 @@
(include "../schemerunme/typename.scm")

37
Examples/test-suite/chicken/unions_runme.ss
View file

@ -1,36 +1 @@
;;; This is the union runtime testcase. It ensures that values within a
;;; union embedded within a struct can be set and read correctly.
;; Create new instances of SmallStruct and BigStruct for later use
(define small (unions:new-SmallStruct))
(unions:SmallStruct-jill-set small 200)
(define big (unions:new-BigStruct))
(unions:BigStruct-smallstruct-set big small)
(unions:BigStruct-jack-set big 300)
;; Use SmallStruct then BigStruct to setup EmbeddedUnionTest.
;; Ensure values in EmbeddedUnionTest are set correctly for each.
(define eut (unions:new-EmbeddedUnionTest))
;; First check the SmallStruct in EmbeddedUnionTest
(unions:EmbeddedUnionTest-number-set eut 1)
(unions:EmbeddedUnionTest-uni-small-set (unions:EmbeddedUnionTest-uni-get eut)
small)
(let ((Jill1 (unions:SmallStruct-jill-get
(unions:EmbeddedUnionTest-uni-small-get
(unions:EmbeddedUnionTest-uni-get eut)))))
(if (not (= Jill1 200))
(begin
(display "Runtime test 1 failed.")
(exit 1))))
(let ((Num1 (unions:EmbeddedUnionTest-number-get eut)))
(if (not (= Num1 1))
(begin
(display "Runtime test 2 failed.")
(exit 1))))
;; that should do
(exit 0)
(include "../schemerunme/unions.scm")