1 files changed, 10 insertions, 0 deletions
diff --git a/Examples/test-suite/tcl/import_nomodule_runme.tcl b/Examples/test-suite/tcl/import_nomodule_runme.tcl
new file mode 100644
index 000000000..f53429b55
--- /dev/null
+++ b/Examples/test-suite/tcl/import_nomodule_runme.tcl
@@ -0,0 +1,10 @@
+
+if { [ string match $tcl_platform(platform) "windows" ] == 1 } {
+    if [ catch { load ./import_nomodule.dll import_nomodule} err_msg ] {
+        puts stderr "Could not load dll:\n$err_msg"
+    }
+} else {
+    if [ catch { load ./import_nomodule.so import_nomodule} err_msg ] {
+        puts stderr "Could not load shared object:\n$err_msg"
+    }
+}