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) {