From 80b086b382348ccda178cf2fddfa8536dbf66f8c Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Sun, 28 Nov 2004 19:21:52 +0000
Subject: [PATCH] simple const enum SWIGTYPE & typemap test and enum by value
 runtime test

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6787 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Examples/test-suite/perl5/enum_thorough_runme.pl | 9 +++++++++
 Examples/test-suite/tcl/enum_thorough_runme.tcl  | 8 ++++++++
 2 files changed, 17 insertions(+)
 create mode 100644 Examples/test-suite/perl5/enum_thorough_runme.pl
 create mode 100644 Examples/test-suite/tcl/enum_thorough_runme.tcl

diff --git a/Examples/test-suite/perl5/enum_thorough_runme.pl b/Examples/test-suite/perl5/enum_thorough_runme.pl
new file mode 100644
index 000000000..48adb8dee
--- /dev/null
+++ b/Examples/test-suite/perl5/enum_thorough_runme.pl
@@ -0,0 +1,9 @@
+use enum_thorough;
+
+# Just test an in and out typemap for enum SWIGTYPE and const enum SWIGTYPE & typemaps
+if (enum_thorough::speedTest4(SpeedClass_slow) != SpeedClass_slow) {
+    die "speedTest Global 4 failed";
+}
+if (enum_thorough::speedTest5(SpeedClass_slow) != SpeedClass_slow) {
+    die "speedTest Global 5 failed";
+}
diff --git a/Examples/test-suite/tcl/enum_thorough_runme.tcl b/Examples/test-suite/tcl/enum_thorough_runme.tcl
new file mode 100644
index 000000000..3457bfe4b
--- /dev/null
+++ b/Examples/test-suite/tcl/enum_thorough_runme.tcl
@@ -0,0 +1,8 @@
+
+if [ catch { load ./enum_thorough[info sharedlibextension] enum_thorough} err_msg ] {
+	puts stderr "Could not load shared object:\n$err_msg"
+}
+
+if { [speedTest4 $SpeedClass_slow] != $SpeedClass_slow } { puts stderr "speedTest4 failed" }
+if { [speedTest5 $SpeedClass_slow] != $SpeedClass_slow } { puts stderr "speedTest5 failed" }
+