Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:Leap:42.3:Update
perl-Test-Unit
Test-Unit-0.25.diff
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
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) { 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"} =
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor