Package: libtest-unit-perl / 0.25-3

30_fix-xism-test-suite-failures.patch Patch series | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Description: Fix test-suite failures due to ?-xism vs ?^
 ?^ was introduced with Perl 5.14 as abbreviation for ?d-imsx
Author: Axel Beckert <abe@debian.org>

Index: libtest-unit-perl/t/tlib/AssertTest.pm
===================================================================
--- libtest-unit-perl.orig/t/tlib/AssertTest.pm	2013-12-26 01:17:02.338121179 +0100
+++ libtest-unit-perl/t/tlib/AssertTest.pm	2013-12-26 01:17:50.658363830 +0100
@@ -70,7 +70,7 @@
 
         'bang'  => [ __LINE__, sub { shift->assert(0, 'bang')              } ],
         'bang'  => [ __LINE__, sub { shift->assert('', 'bang')             } ],
-        "'qux' did not match /(?-xism:foo)/"
+        "'qux' did not match /(?^:foo)/"
                 => [ __LINE__, sub { shift->assert(qr/foo/, 'qux')         } ],
         'bang'  => [ __LINE__, sub { shift->assert(qr/foo/, 'qux', 'bang') } ],
         'a ne b'=> [ __LINE__, sub { shift->assert($coderef, 'a', 'b')     } ],
@@ -253,7 +253,7 @@
         q{expected '', got 'foo'}           => [ 'foo',  ''      ], 
         q{expected 'foo', got ''}           => [ '',     'foo'   ], 
         q{expected 5, got 4}                => [ $adder, 5       ], 
-        q{'foo' did not match /(?-xism:x)/} => [ 'foo',  qr/x/   ], 
+        q{'foo' did not match /(?^:x)/} => [ 'foo',  qr/x/   ], 
     );
     my @tests = ();
     while (@checks) {