Dirk Mueller
c61b5d2d81
- Fix test failures with Perl 5.14 - Use upstream patch for Perl 5.12 support OBS-URL: https://build.opensuse.org/request/show/70751 OBS-URL: https://build.opensuse.org/package/show/devel:tools:building/swig?expand=0&rev=15
47 lines
1.8 KiB
Diff
47 lines
1.8 KiB
Diff
--- swig-2.0.3/Examples/test-suite/perl5/li_std_string_runme.pl 2008-06-24 22:11:46.000000000 +0200
|
|
+++ swig-2.0.3/Examples/test-suite/perl5/li_std_string_runme.pl 2011-05-19 10:29:07.285003422 +0200
|
|
@@ -48,7 +48,7 @@
|
|
|
|
# Check throw exception specification
|
|
eval { li_std_string::test_throw() };
|
|
-is($@, "test_throw message", "Test 5");
|
|
+like($@, qr/^test_throw message/, "Test 5");
|
|
{ local $TODO = "why is the error not a Perl string?";
|
|
eval { li_std_string::test_const_reference_throw() };
|
|
is($@, "<some kind of string>", "Test 6");
|
|
--- swig-2.0.3/Examples/test-suite/perl5/default_args_runme.pl 2008-04-30 23:02:46.000000000 +0200
|
|
+++ swig-2.0.3/Examples/test-suite/perl5/default_args_runme.pl 2011-05-19 10:42:21.205003460 +0200
|
|
@@ -41,11 +41,11 @@
|
|
|
|
# exception specifications
|
|
eval { default_args::exceptionspec() };
|
|
-is($@, "ciao", "exceptionspec 1");
|
|
+like($@, qr/^ciao/, "exceptionspec 1");
|
|
eval { default_args::exceptionspec(-1) };
|
|
-is($@, "ciao", "exceptionspec 2");
|
|
+like($@, qr/^ciao/, "exceptionspec 2");
|
|
eval { default_args::exceptionspec(100) };
|
|
-is($@, '100', "exceptionspec 3");
|
|
+like($@, qr/^100/, "exceptionspec 3");
|
|
|
|
my $ex = new default_args::Except($false);
|
|
|
|
@@ -54,13 +54,13 @@
|
|
# a zero was thrown, an exception occured, but $@ is false
|
|
is($hit, 0, "exspec 1");
|
|
eval { $ex->exspec(-1) };
|
|
-is($@, "ciao", "exspec 2");
|
|
+like($@, qr/^ciao/, "exspec 2");
|
|
eval { $ex->exspec(100) };
|
|
-is($@, 100, "exspec 3");
|
|
+like($@, qr/^100/, "exspec 3");
|
|
eval { $ex = default_args::Except->new($true) };
|
|
-is($@, -1, "Except constructor 1");
|
|
+like($@, qr/^-1/, "Except constructor 1");
|
|
eval { $ex = default_args::Except->new($true, -2) };
|
|
-is($@, -2, "Except constructor 2");
|
|
+like($@, qr/^-2/, "Except constructor 2");
|
|
|
|
#Default parameters in static class methods
|
|
is(default_args::Statics::staticmethod(), 60, "staticmethod 1");
|