This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Refactor the startup logic in fflush.t to use skip_all()
authorNicholas Clark <nick@ccl4.org>
Mon, 7 Mar 2011 18:10:45 +0000 (18:10 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 7 Mar 2011 18:10:45 +0000 (18:10 +0000)
The tautological 3 way logic
    if (...) { print "1..7\n" } elsif (...) { print "1..7\n" } else { ... }
had actually been in the test since it was first added in a43cb6b7285a7b60,
although it was initially "1..4\n" in each block.

Also use plan(), and set test.pl's idea of the current test before exiting.

t/io/fflush.t

index 056517f..4570f89 100644 (file)
@@ -23,16 +23,10 @@ my $d_sfio = defined $Config{d_sfio} ? $Config{d_sfio} eq 'define' ? 1 : 0 : 0;
 my $fflushall = defined $Config{fflushall} ? $Config{fflushall} eq 'define' ? 1 : 0 : 0;
 my $d_fork = defined $Config{d_fork} ? $Config{d_fork} eq 'define' ? 1 : 0 : 0;
 
-if ($useperlio || $fflushNULL || $d_sfio) {
-    print "1..7\n";
-} else {
-    if ($fflushall) {
-       print "1..7\n";
-    } else {
-       print "1..0 # Skip: fflush(NULL) or equivalent not available\n";
-        exit;
-    }
-}
+skip_all('fflush(NULL) or equivalent not available')
+    unless $useperlio || $fflushNULL || $d_sfio || $fflushall;
+
+plan(tests => 7);
 
 my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
 $runperl .= qq{ "-I../lib"};
@@ -135,3 +129,4 @@ while (<$CMD>) {
 }
 close $CMD;
 $t += 3;
+curr_test($t);