experimental direct substr support

[perlmod.git] / test.pl

diff --git a/test.pl b/test.pl
index d1825144dc871c3da130bb3ed6b510d2f0ccc3dc..5fe98ae5954f0b70e94cf662ed2f96ad98155ef5 100644 (file)
--- a/test.pl
+++ b/test.pl
@@ -105,7 +105,18 @@ test_unsafe_clone(Storable::dclone($magic));
 
 print("Testing unsafe clone\n");
 test_unsafe_clone(Clone::clone($magic));
+undef $magic;
 
 print("Testing enum deserialization\n");
 my $ra = RSPM::Foo142::test_enums("something");
 die "unexpected result from test_enums: $ra\n" if $ra ne 'result-a';
+
+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");