You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
1.8 KiB
38 lines
1.8 KiB
6 months ago
|
diff -up Test-Unit-0.25/t/tlib/AssertTest.pm.old Test-Unit-0.25/t/tlib/AssertTest.pm
|
||
|
|
--- Test-Unit-0.25/t/tlib/AssertTest.pm.old 2005-10-15 23:19:18.000000000 +0200
|
||
|
|
+++ Test-Unit-0.25/t/tlib/AssertTest.pm 2011-06-23 10:58:11.187560524 +0200
|
||
|
|
@@ -63,6 +63,7 @@ sub test_assert {
|
||
|
|
$self->assert($coderef, 'a', 'a');
|
||
|
|
$self->assert([]);
|
||
|
|
$self->assert([ 'foo', 7 ]);
|
||
|
|
+ my $re_foo = qr/foo/; $re_foo = "$re_foo";
|
||
|
|
$self->check_failures(
|
||
|
|
'Boolean assertion failed' => [ __LINE__, sub { shift->assert(undef) } ],
|
||
|
|
'Boolean assertion failed' => [ __LINE__, sub { shift->assert(0) } ],
|
||
|
|
@@ -70,7 +71,7 @@ sub test_assert {
|
||
|
|
|
||
|
|
'bang' => [ __LINE__, sub { shift->assert(0, 'bang') } ],
|
||
|
|
'bang' => [ __LINE__, sub { shift->assert('', 'bang') } ],
|
||
|
|
- "'qux' did not match /(?-xism:foo)/"
|
||
|
|
+ "'qux' did not match /$re_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') } ],
|
||
|
|
@@ -243,6 +244,7 @@ sub test_ok_equals {
|
||
|
|
sub test_ok_not_equals {
|
||
|
|
my $self = shift;
|
||
|
|
my $adder = sub { 2+2 };
|
||
|
|
+ my $re_x = qr/x/; $re_x = "$re_x";
|
||
|
|
my @checks = (
|
||
|
|
# interface is ok(GOT, EXPECTED);
|
||
|
|
q{expected 1, got 0} => [ 0, 1 ],
|
||
|
|
@@ -253,7 +255,7 @@ 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/ ],
|
||
|
|
+ qq{'foo' did not match /$re_x/} => [ 'foo', qr/x/ ],
|
||
|
|
);
|
||
|
|
my @tests = ();
|
||
|
|
while (@checks) {
|