diff options
| author | Valery Kartel <valery.kartel@gmail.com> | 2017-04-15 02:42:41 +0300 |
|---|---|---|
| committer | Timo Teräs <timo.teras@iki.fi> | 2017-04-27 05:46:11 +0000 |
| commit | 83f5f5ff71d825935df80db5082daa03941f72ca (patch) | |
| tree | 4de1b98904aeb9f9b6d2b8128115e216206dc084 /testing/perl-test-unit/testcase.patch | |
| parent | 333d21bb0ef88e99f40ce88a01b951954bd1e7d2 (diff) | |
| download | aports-83f5f5ff71d825935df80db5082daa03941f72ca.tar.bz2 aports-83f5f5ff71d825935df80db5082daa03941f72ca.tar.xz | |
testing/perl-test-unit: new aport
A unit testing framework
http://search.cpan.org/dist/Test-Unit
Diffstat (limited to 'testing/perl-test-unit/testcase.patch')
| -rw-r--r-- | testing/perl-test-unit/testcase.patch | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/testing/perl-test-unit/testcase.patch b/testing/perl-test-unit/testcase.patch new file mode 100644 index 0000000000..9f28755591 --- /dev/null +++ b/testing/perl-test-unit/testcase.patch @@ -0,0 +1,11 @@ +--- a/lib/Test/Unit/TestCase.pm ++++ b/lib/Test/Unit/TestCase.pm +@@ -103,7 +103,7 @@ + my $class = ref($_[0]) || $_[0]; + my @tests = (); + no strict 'refs'; +- if (defined(@{"$class\::TESTS"})) { ++ if (@{"$class\::TESTS"}) { + push @tests, @{"$class\::TESTS"}; + } + else { |