File Test-Unit-0.25.diff of Package perl-Test-Unit

Index: Test-Unit-0.25/t/tlib/AssertTest.pm
===================================================================
--- Test-Unit-0.25.orig/t/tlib/AssertTest.pm
+++ Test-Unit-0.25/t/tlib/AssertTest.pm
@@ -70,8 +70,6 @@ sub test_assert {
 
         'bang'  => [ __LINE__, sub { shift->assert(0, 'bang')              } ],
         'bang'  => [ __LINE__, sub { shift->assert('', 'bang')             } ],
-        "'qux' did not match /(?-xism: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 +251,6 @@ sub test_ok_not_equals {
         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/   ], 
     );
     my @tests = ();
     while (@checks) {
openSUSE Build Service is sponsored by