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

Overview Repositories Revisions Requests Users Attributes Meta

File Test-Unit-0.25.diff of Package perl-Test-Unit (Revision 55af0bf5a587c94482d410d53da0de17)

Currently displaying revision 55af0bf5a587c94482d410d53da0de17 , Show latest

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) {
Index: Test-Unit-0.25/lib/Test/Unit/Assert.pm
===================================================================
--- Test-Unit-0.25.orig/lib/Test/Unit/Assert.pm
+++ Test-Unit-0.25/lib/Test/Unit/Assert.pm
@@ -315,7 +315,7 @@ sub _eq_hash {
 
     my $ok = 1;
     my $bigger = keys %$a1 > keys %$a2 ? $a1 : $a2;
-    foreach my $k (keys %$bigger) {
+    foreach my $k (sort keys %$bigger) {
         my $e1 = exists $a1->{$k} ? $a1->{$k} : $DNE;
         my $e2 = exists $a2->{$k} ? $a2->{$k} : $DNE;
 
@@ -484,7 +484,7 @@ sub _format_stack {
                   (-text => @_ ? join('', @_) : "<undef> unexpected");
         },
     );
-    foreach my $type (keys %assert_subs) {
+    foreach my $type (sort keys %assert_subs) {
         my $assertion = Test::Unit::Assertion::CodeRef->new($assert_subs{$type});
         no strict 'refs';
         *{"Test::Unit::Assert::assert_$type"} =

Places

File Test-Unit-0.25.diff of Package perl-Test-Unit (Revision 55af0bf5a587c94482d410d53da0de17)

Places