From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 3 May 2003 15:37:35 +0000 (+0000)
Subject: Must skip more.
X-Git-Tag: accepted/trunk/20130322.191538~24289
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=3acb6bcd1a901f84bfce64680bedea321811824a;p=platform%2Fupstream%2Fperl.git

Must skip more.

p4raw-id: //depot/perl@19395
---

diff --git a/lib/filetest.t b/lib/filetest.t
index c206f51..02879c3 100644
--- a/lib/filetest.t
+++ b/lib/filetest.t
@@ -5,7 +5,7 @@ BEGIN {
 	@INC = '../lib';
 }
 
-use Test::More tests => 15;
+use Test::More tests => 13;
 
 # these two should be kept in sync with the pragma itself
 # if hint bits are changed there, other things *will* break
@@ -55,7 +55,7 @@ SKIP: {
     # This works for systems with /usr/bin/chflags (i.e. BSD4.4 systems).
     my $chflags = "/usr/bin/chflags";
     my $tstfile = "filetest.tst";
-    skip("No $chflags available", 2) if !-x $chflags;
+    skip("No $chflags available", 4) if !-x $chflags;
 
  SKIP: {
 	eval {
@@ -66,7 +66,7 @@ SKIP: {
 	    system($chflags, "uchg", $tstfile);
 	    die "Can't exec $chflags uchg" if $? != 0;
 	};
-	skip("Errors in test using chflags: $@", 2) if $@;
+	skip("Errors in test using chflags: $@", 4) if $@;
 
 	{
 	    use filetest 'access';