Consolidated some of the C test cases.

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

Examples/test-suite/arrayptr.i

@@ -1,12 +0,0 @@
-// A module with a function that involves pointers to arrays 
-
-%module arrayptr
-
-%inline %{
-
-void foo(int (*x)[10]) {
-
-}
-%}
-
-

Examples/test-suite/arrays.i

@@ -49,3 +49,11 @@ int getintfrompointer(int* intptr) {
 
 %}
 
+// This tests wrapping of function that involves pointer to array
+
+
+%inline %{
+void array_pointer_func(int (*x)[10]) {}
+%}
+
+

Examples/test-suite/common.mk

@@ -268,13 +268,9 @@ CPP_TEST_CASES += \
 
 # C test cases. (Can be run individually using make testcase.ctest.)
 C_TEST_CASES += \
-	arrayptr \
 	arrays \
 	char_constant \
 	const_const \
-	cpp_macro_noarg \
-	defineop \
-	defines \
 	enums \
 	function_typedef \
 	inctest \
@@ -285,17 +281,11 @@ C_TEST_CASES += \
 	lib_cpointer \
 	lib_math \
 	long_long \
-	macro_2 \
 	name \
 	nested \
 	newobject2 \
 	overload_extendc \
-	preproc_1 \
+	preproc \
-	preproc_2 \
-	preproc_3 \
-	preproc_4 \
-	preproc_5 \
-	preproc_6 \
 	ret_by_value \
 	sizeof_pointer \
 	sneaky1 \

Examples/test-suite/cpp_macro_noarg.i

@@ -1,4 +0,0 @@
-%module cpp_macro_noarg
-#define MACROWITHARG(x) something(x) 
-
-typedef int MACROWITHARG; 

Examples/test-suite/defineop.i

@@ -1,22 +0,0 @@
-/* 
-This testcase tests operators for defines
-*/
-
-%module defineop
-
-#define A1   1 + 2
-#define A2   3 - 4
-#define A3   5 * 6
-#define A4   7 / 8
-#define A5   9 >> 10
-#define A6   11 << 12
-#define A7   13 & 14
-#define A8   15 | 16
-#define A9   17 ^ 18
-#define A10  19 && 20
-#define A11  21 || 21
-#define A12  ~22
-#define A13  !23
-
-
-

Examples/test-suite/defines.i

@@ -1,17 +0,0 @@
-/* 
-This testcase tests for embedded defines and embedded %constants
-*/
-
-%module defines
-
-%inline %{
-
-typedef struct EmbeddedDefines {
-  int dummy;
-#define  EMBEDDED_DEFINE 44
-#ifdef SWIG
-%constant EMBEDDED_SWIG_CONSTANT = 55;
-#endif
-} EmbeddedDefines;
-
-%}

Examples/test-suite/macro_2.i

@@ -1,22 +0,0 @@
-/* This interface file tests whether SWIG's extended C
-   preprocessor is working right. 
-
-   In this example, SWIG 1.3a5 reports missing macro arguments, which
-   is bogus.
-*/
-
-%define FOO(C_TYPE, GETLENGTH)
-     /* nothing */
-%enddef
-
-%define BAR(XYZZY)
-  FOO(XYZZY, 1)
-%enddef
-
-BAR(int)
-
-%module macro_2
-
-%inline %{
-  int dummy_var;
-%}

Examples/test-suite/preproc.i

@@ -0,0 +1,207 @@
+%module preproc
+
+/* This interface file tests whether SWIG's extended C
+   preprocessor is working right. 
+
+   In this example, SWIG 1.3.6 chokes on "//" in a #define with a
+   syntax error.
+*/
+
+#define SLASHSLASH "//"
+
+/* This SWIG -*- c -*- interface is to test for some strange
+   preprocessor bug.
+
+   I get syntax errors unless I remove the apostrophe in the comment
+   or the sharp-sign substitution.  (The apostrophe seems to disable
+   sharp-sign substitution.)
+*/
+
+
+%define TYPEMAP_LIST_VECTOR_INPUT_OUTPUT(SCM_TYPE)
+
+     /* Don't check for NULL pointers (override checks). */
+
+     %typemap(argout, doc="($arg <vector of <" #SCM_TYPE ">>)") 
+          int *VECTORLENOUTPUT
+     {
+     }
+
+%enddef
+
+TYPEMAP_LIST_VECTOR_INPUT_OUTPUT(boolean)
+
+// preproc_3
+
+#define Sum( A, B, \
+             C)    \
+        A + B + C 
+
+
+// preproc_4
+%{
+  int hello0()
+  {
+    return 0;
+  }
+
+  int hello1()
+  {
+    return 1;
+  }
+
+  int hello2()
+  {
+    return 2;
+  }  
+  int f(int min) { return min; }
+%}
+
+#define ARITH_RTYPE(A1, A2) A2
+
+#define HELLO_TYPE(A, B) ARITH_RTYPE(A, ARITH_RTYPE(A,B))
+
+//
+// These two work fine
+//
+int hello0();
+ARITH_RTYPE(double,int) hello1();
+
+
+//
+// This doesn't work with 1.3.17+ ( but it was ok in 1.3.16 )
+// it gets expanded as (using -E)
+// 
+//   ARITH_RTYPE(double,int) hello2();
+//
+HELLO_TYPE(double,int) hello2();
+
+#define min(x,y) ((x) < (y)) ? (x) : (y) 
+int f(int min);
+
+// preproc_5
+
+%warnfilter(801) a5;	// Ruby, wrong constant name
+%warnfilter(801) b5;	// Ruby, wrong constant name
+%warnfilter(801) c5;	// Ruby, wrong constant name
+%warnfilter(801) d5;	// Ruby, wrong constant name
+
+// Various preprocessor bits of nastiness.
+
+
+/* Test argument name substitution */
+#define foo(x,xx) #x #xx
+#define bar(x,xx) x + xx
+
+%constant char *a5 = foo(hello,world);
+%constant int   b5 = bar(3,4);
+
+// Wrap your brain around this one ;-)
+
+%{
+#define cat(x,y) x ## y
+%}
+
+#define cat(x,y) x ## y
+
+/* This should expand to cat(1,2);  
+   See K&R, p. 231 */
+
+%constant int c5 = cat(cat(1,2),;)
+
+#define xcat(x,y) cat(x,y)
+
+/* This expands to 123.  See K&R, p. 231 */
+%constant int d5 = xcat(xcat(1,2),3);
+
+
+#define C1\
+"hello"
+
+#define C2
+#define C3 C2
+
+#define ALONG_\
+NAME 42
+
+#define C4"Hello"
+
+// preproc_6
+
+%warnfilter(801) a6; /* Ruby, wrong constant name */
+%warnfilter(801) b6; /* Ruby, wrong constant name */
+%warnfilter(801) c6; /* Ruby, wrong constant name */
+%warnfilter(801) d6; /* Ruby, wrong constant name */
+
+#define add(a, b) (a + b)
+#define times(a, b) (a * b)
+#define op(x) x(1, 5)
+ 
+/* expand to (1 + 5) */
+%constant int a6 = op(add);
+/* expand to (1 * 5) */
+%constant int b6 = op(times);
+/* expand to ((1 + 5) * 5) */
+%constant int c6 = times(add(1, 5), 5);
+/* expand to ((1 + 5) * 5) */
+%constant int d6 = times(op(add), 5);                 
+
+/* This interface file tests whether SWIG's extended C
+   preprocessor is working right. 
+
+   In this example, SWIG 1.3a5 reports missing macro arguments, which
+   is bogus.
+*/
+
+%define MACRO1(C_TYPE, GETLENGTH)
+     /* nothing */
+%enddef
+
+%define MACRO2(XYZZY)
+  MACRO1(XYZZY, 1)
+%enddef
+
+MACRO2(int)
+
+// cpp_macro_noarg.  Tests to make sure macros with no arguments work right.
+#define MACROWITHARG(x) something(x) 
+
+typedef int MACROWITHARG; 
+
+/* 
+This testcase tests for embedded defines and embedded %constants
+*/
+
+%inline %{
+
+typedef struct EmbeddedDefines {
+  int dummy;
+#define  EMBEDDED_DEFINE 44
+#ifdef SWIG
+%constant EMBEDDED_SWIG_CONSTANT = 55;
+#endif
+} EmbeddedDefines;
+
+%}
+
+/* 
+This testcase tests operators for defines
+*/
+
+#define A1   1 + 2
+#define A2   3 - 4
+#define A3   5 * 6
+#define A4   7 / 8
+#define A5   9 >> 10
+#define A6   11 << 12
+#define A7   13 & 14
+#define A8   15 | 16
+#define A9   17 ^ 18
+#define A10  19 && 20
+#define A11  21 || 21
+#define A12  ~22
+#define A13  !23
+
+
+
+

Examples/test-suite/preproc_1.i

@@ -1,10 +0,0 @@
-/* This interface file tests whether SWIG's extended C
-   preprocessor is working right. 
-
-   In this example, SWIG 1.3.6 chokes on "//" in a #define with a
-   syntax error.
-*/
-
-%module preproc_1
-
-#define SLASHSLASH "//"

Examples/test-suite/preproc_2.i

@@ -1,22 +0,0 @@
-/* This SWIG -*- c -*- interface is to test for some strange
-   preprocessor bug.
-
-   I get syntax errors unless I remove the apostrophe in the comment
-   or the sharp-sign substitution.  (The apostrophe seems to disable
-   sharp-sign substitution.)
-*/
-
-%module preproc_2;
-
-%define TYPEMAP_LIST_VECTOR_INPUT_OUTPUT(SCM_TYPE)
-
-     /* Don't check for NULL pointers (override checks). */
-
-     %typemap(argout, doc="($arg <vector of <" #SCM_TYPE ">>)") 
-          int *VECTORLENOUTPUT
-     {
-     }
-
-%enddef
-
-TYPEMAP_LIST_VECTOR_INPUT_OUTPUT(boolean)

Examples/test-suite/preproc_3.i

@@ -1,6 +0,0 @@
-%module preproc_3
-
-#define Sum( A, B, \
-             C)    \
-        A + B + C 
-

Examples/test-suite/preproc_4.i

@@ -1,44 +0,0 @@
-%module preproc_4
-
-%{
-  int hello0()
-  {
-    return 0;
-  }
-
-  int hello1()
-  {
-    return 1;
-  }
-
-  int hello2()
-  {
-    return 2;
-  }  
-  int f(int min) { return min; }
-%}
-
-#define ARITH_RTYPE(A1, A2) A2
-
-#define HELLO_TYPE(A, B) ARITH_RTYPE(A, ARITH_RTYPE(A,B))
-
-
-//
-// These two work fine
-//
-int hello0();
-ARITH_RTYPE(double,int) hello1();
-
-
-
-//
-// This doesn't work with 1.3.17+ ( but it was ok in 1.3.16 )
-// it gets expanded as (using -E)
-// 
-//   ARITH_RTYPE(double,int) hello2();
-//
-HELLO_TYPE(double,int) hello2();
-
-#define min(x,y) ((x) < (y)) ? (x) : (y) 
-int f(int min);
-

Examples/test-suite/preproc_5.i

@@ -1,48 +0,0 @@
-%module preproc_5
-
-%warnfilter(801) a;	// Ruby, wrong constant name
-%warnfilter(801) b;	// Ruby, wrong constant name
-%warnfilter(801) c;	// Ruby, wrong constant name
-%warnfilter(801) d;	// Ruby, wrong constant name
-
-// Various preprocessor bits of nastiness.
-
-
-/* Test argument name substitution */
-#define foo(x,xx) #x #xx
-#define bar(x,xx) x + xx
-
-%constant char *a = foo(hello,world);
-%constant int   b = bar(3,4);
-
-// Wrap your brain around this one ;-)
-
-%{
-#define cat(x,y) x ## y
-%}
-
-#define cat(x,y) x ## y
-
-/* This should expand to cat(1,2);  
-   See K&R, p. 231 */
-
-%constant int c = cat(cat(1,2),;)
-
-#define xcat(x,y) cat(x,y)
-
-/* This expands to 123.  See K&R, p. 231 */
-%constant int d = xcat(xcat(1,2),3);
-
-
-#define C1\
-"hello"
-
-#define C2
-#define C3 C2
-
-#define ALONG_\
-NAME 42
-
-#define C4"Hello"
-
-

Examples/test-suite/preproc_6.i

@@ -1,19 +0,0 @@
-%module preproc_6
- 
-%warnfilter(801) a; /* Ruby, wrong constant name */
-%warnfilter(801) b; /* Ruby, wrong constant name */
-%warnfilter(801) c; /* Ruby, wrong constant name */
-%warnfilter(801) d; /* Ruby, wrong constant name */
-
-#define add(a, b) (a + b)
-#define times(a, b) (a * b)
-#define op(x) x(1, 5)
- 
-/* expand to (1 + 5) */
-%constant int a = op(add);
-/* expand to (1 * 5) */
-%constant int b = op(times);
-/* expand to ((1 + 5) * 5) */
-%constant int c = times(add(1, 5), 5);
-/* expand to ((1 + 5) * 5) */
-%constant int d = times(op(add), 5);