This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Switch t/lib/no_load.t to done_testing() from using an explicit plan.
authorNicholas Clark <nick@ccl4.org>
Wed, 16 Mar 2011 08:57:54 +0000 (08:57 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 16 Mar 2011 08:57:54 +0000 (08:57 +0000)
Using done_testing() means that it doesn't have to parse the test data
structure twice - firstly to calculate the number of tests, secondly to
actually run them.

t/lib/no_load.t

index 3f10200..84a8cac 100644 (file)
@@ -16,16 +16,9 @@ require "test.pl";
 #
 # Format: [Module-that-should-not-be-loaded => modules to test]
 #
-my @TESTS = (
-    [Carp  => qw [warnings Exporter]],
-);
 
-my $count = 0;
-$count += @$_ - 1 for @TESTS;
-
-print "1..$count\n";
-
-foreach my $test (@TESTS) {
+foreach my $test ([Carp  => qw(warnings Exporter)],
+                ) {
     my ($exclude, @modules) = @$test;
 
     foreach my $module (@modules) {
@@ -37,5 +30,4 @@ foreach my $test (@TESTS) {
     }
 }
 
-
-__END__
+done_testing();