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)
commit991b87804e286479de011fbef06fb073174aed77
treefe32336c5b142885a1a8df37ad53d2c6f2c78597
parent95e2dc41df5a5b893cbc879e1fce6d1a86aa8711
Refactor the startup logic in fflush.t to use skip_all()

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