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" }
+