Test modifications of changed behaviour in perl 5.12 and 5.14 in reporting errors

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@12690 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2011-05-19 18:48:57 +00:00
commit 527c3e0552
2 changed files with 8 additions and 8 deletions

View file

@ -48,7 +48,7 @@ li_std_string::test_reference($stringPtr);
# 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");