experimental direct substr support

[perlmod.git] / test.pl

diff --git a/test.pl b/test.pl
index 87baec69ae808e4e9104ecddbb14b1aa27309f0a..5fe98ae5954f0b70e94cf662ed2f96ad98155ef5 100644 (file)
--- a/test.pl
+++ b/test.pl
@@ -115,3 +115,8 @@ print("Testing optional parameters\n");
 RSPM::Foo142::test_trailing_optional(1, 99);
 RSPM::Foo142::test_trailing_optional(2, undef);
 RSPM::Foo142::test_trailing_optional(3);
+
+print("Substring test\n");
+my $orig = "OneTwoThree";
+my $sub = RSPM::Foo142::test_substr_return($orig);
+print("[$orig] [$sub]\n");