1 files changed, 79 insertions, 0 deletions
diff --git a/Examples/test-suite/perl5/cpp17_string_view_runme.pl b/Examples/test-suite/perl5/cpp17_string_view_runme.pl
new file mode 100644
index 000000000..bc91637c4
--- /dev/null
+++ b/Examples/test-suite/perl5/cpp17_string_view_runme.pl
@@ -0,0 +1,79 @@
+use strict;
+use warnings;
+use Test::More tests => 17;
+BEGIN { use_ok('cpp17_string_view') }
+require_ok('cpp17_string_view');
+
+use Devel::Peek;
+# Checking expected use of %typemap(in) std::string_view {}
+cpp17_string_view::test_value("Fee");
+
+# Checking expected result of %typemap(out) std::string_view {}
+is(cpp17_string_view::test_value("Fi"), "Fi", "Test 1");
+
+
+# Verify type-checking for %typemap(in) std::string_view {}
+eval { cpp17_string_view::test_value(undef) };
+like($@, qr/\bTypeError\b/, "Test 2");
+
+# Checking expected use of %typemap(in) const std::string_view & {}
+cpp17_string_view::test_const_reference("Fo");
+
+# Checking expected result of %typemap(out) const std::string_view& {}
+is(cpp17_string_view::test_const_reference("Fum"), "Fum", "Test 3");
+
+# Verify type-checking for %typemap(in) const std::string_view & {}
+eval { cpp17_string_view::test_const_reference(undef) };
+like($@, qr/\bValueError\b/, "Test 4");
+
+#
+# Input and output typemaps for pointers and non-const references to
+# std::string_view are *not* supported; the following tests confirm
+# that none of these cases are slipping through.
+#
+
+my $stringPtr = undef;
+
+$stringPtr = cpp17_string_view::test_pointer_out();
+
+cpp17_string_view::test_pointer($stringPtr);
+
+$stringPtr = cpp17_string_view::test_const_pointer_out();
+
+cpp17_string_view::test_const_pointer($stringPtr);
+
+$stringPtr = cpp17_string_view::test_reference_out();
+
+cpp17_string_view::test_reference($stringPtr);
+
+# Check throw exception specification
+eval { cpp17_string_view::test_throw() };
+like($@, qr/^test_throw message/, "Test 5");
+{ local $TODO = "why is the error not a Perl string?";
+eval { cpp17_string_view::test_const_reference_throw() };
+is($@, "<some kind of string>", "Test 6");
+}
+
+# Global variables
+is($cpp17_string_view::ConstGlobalString, "const global string", "ConstGlobalString test");
+
+# Member variables
+my $myStructure = new cpp17_string_view::Structure();
+is($myStructure->{ConstMemberString}, "const member string", "ConstMemberString test");
+
+is($cpp17_string_view::Structure::ConstStaticMemberString, "const static member string", "ConstStaticMemberString test");
+
+
+is(cpp17_string_view::stdstringview_empty(), "", "stdstringview_empty");
+
+is(cpp17_string_view::c_empty(), "", "c_empty");
+
+
+is(cpp17_string_view::c_null(), undef, "c_null");
+
+
+is(cpp17_string_view::get_null(cpp17_string_view::c_null()), undef, "get_null c_null");
+
+is(cpp17_string_view::get_null(cpp17_string_view::c_empty()), "non-null", "get_null c_empty");
+
+is(cpp17_string_view::get_null(cpp17_string_view::stdstringview_empty()), "non-null", "get_null stdstringview_empty");