From 9bebf26e27cd3fdba66a0f818724cab307313bb2 Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Tue, 24 Aug 2004 22:29:47 +0000
Subject: [PATCH] new runtime test

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 .../test-suite/perl5/lib_std_string_runme.pl  | 63 +++++++++++++++++++
 1 file changed, 63 insertions(+)
 create mode 100644 SWIG/Examples/test-suite/perl5/lib_std_string_runme.pl

diff --git a/SWIG/Examples/test-suite/perl5/lib_std_string_runme.pl b/SWIG/Examples/test-suite/perl5/lib_std_string_runme.pl
new file mode 100644
index 000000000..0372273a5
--- /dev/null
+++ b/SWIG/Examples/test-suite/perl5/lib_std_string_runme.pl
@@ -0,0 +1,63 @@
+use lib_std_string;
+
+
+# Checking expected use of %typemap(in) std::string {}
+lib_std_string::test_value("Fee");
+
+# Checking expected result of %typemap(out) std::string {}
+if (lib_std_string::test_value("Fi") != "Fi") {
+  die "Test 1 failed";
+}
+
+###### passing undef seems to work - surely it should fail ????
+# Verify type-checking for %typemap(in) std::string {}
+#eval { lib_std_string::test_value(undef) };
+#if (!$@) {
+#  die "Test 2 failed";
+#}
+
+# Checking expected use of %typemap(in) const std::string & {}
+lib_std_string::test_const_reference("Fo");
+
+# Checking expected result of %typemap(out) const std::string& {}
+if (lib_std_string::test_const_reference("Fum") != "Fum") {
+  die "Test 3 failed";
+}
+
+###### passing undef seems to work - surely it should fail ????
+# Verify type-checking for %typemap(in) const std::string & {}
+#eval { lib_std_string::test_const_reference(undef) };
+#if (!$@) {
+#  die "Test 4 failed";
+#}
+
+#
+# Input and output typemaps for pointers and non-const references to
+# std::string are *not* supported; the following tests confirm
+# that none of these cases are slipping through.
+#
+
+my $stringPtr = undef;
+
+$stringPtr = lib_std_string::test_pointer_out();
+
+lib_std_string::test_pointer($stringPtr);
+
+$stringPtr = lib_std_string::test_const_pointer_out();
+
+lib_std_string::test_const_pointer($stringPtr);
+
+$stringPtr = lib_std_string::test_reference_out();
+
+lib_std_string::test_reference($stringPtr);
+
+# Check throw exception specification
+eval { lib_std_string::test_throw() };
+if (!$@) {
+  die "Test 5 failed";
+}
+eval { lib_std_string::test_const_reference_throw() };
+if (!$@) {
+  die "Test 6 failed";
+}
+