In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c0c40be15501d5f6a6c96e9e433c95ea201e0a83?hp=839e16da0363c53aae2388f75df22258f1540677>
- Log ----------------------------------------------------------------- commit c0c40be15501d5f6a6c96e9e433c95ea201e0a83 Author: Craig A. Berry <[email protected]> Date: Sat Jan 28 10:55:55 2012 -0600 Adjust skip counts in t/op/filetest_t.t. Follow-up to 8db8f6b697e6f, where new tests were added without changing the (implicit) skip count of 1. ----------------------------------------------------------------------- Summary of changes: t/op/filetest_t.t | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/t/op/filetest_t.t b/t/op/filetest_t.t index cd552a7..eec67ec 100644 --- a/t/op/filetest_t.t +++ b/t/op/filetest_t.t @@ -16,11 +16,11 @@ my($dev_tty, $dev_null) = qw(/dev/tty /dev/null); SKIP: { open(my $tty, "<", $dev_tty) - or skip("Can't open terminal '$dev_tty': $!"); + or skip("Can't open terminal '$dev_tty': $!", 4); if ($^O eq 'VMS') { # TT might be a mailbox or other non-terminal device my $tt_dev = VMS::Filespec::vmspath('TT'); - skip("'$tt_dev' is probably not a terminal") if $tt_dev !~ m/^_(tt|ft|rt)/i; + skip("'$tt_dev' is probably not a terminal", 4) if $tt_dev !~ m/^_(tt|ft|rt)/i; } ok(-t $tty, "'$dev_tty' is a TTY"); ok(-t -e $tty, "'$dev_tty' is a TTY (with -t -e)"); @@ -31,7 +31,7 @@ SKIP: { } SKIP: { open(my $null, "<", $dev_null) - or skip("Can't open null device '$dev_null': $!"); + or skip("Can't open null device '$dev_null': $!", 3); ok(!-t $null, "'$dev_null' is not a TTY"); ok(!-t -e $null, "'$dev_null' is not a TTY (with -t -e)"); ok(!-e -t $null, "'$dev_null' is not a TTY (with -e -t)"); -- Perl5 Master Repository
