From c0c40be15501d5f6a6c96e9e433c95ea201e0a83 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Sat, 28 Jan 2012 10:55:55 -0600 Subject: [PATCH] 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. --- t/op/filetest_t.t | 6 +++--- 1 file 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)"); -- 2.7.4