Changeset 13302 for trunk/Nebulous-Server/t/03_server_create_object.t

Timestamp:

May 7, 2007, 4:27:42 PM (19 years ago)

Author:

jhoblitt

Message:

make filesystem xattr support optional & disabled by default

File:

• trunk/Nebulous-Server/t/03_server_create_object.t (modified) (8 diffs)

trunk/Nebulous-Server/t/03_server_create_object.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 03_server_create_object.t,v 1.19 2007-05-05 02:25:09 jhoblitt Exp $
+# $Id: 03_server_create_object.t,v 1.20 2007-05-08 02:27:42 jhoblitt Exp $
 
 use strict;
@@ -18 +18 @@
 use Test::URI;
 use URI::Split qw( uri_split );
+
+my $test_xattr = undef;
 
 my $neb = Nebulous::Server->new(
@@ -35 +37 @@
     uri_scheme_ok($uri, 'file');
 
+SKIP: {
+    skip "requires xattr support", 1 unless $test_xattr;
     is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr');
+}
 }
 
@@ -48 +53 @@
     uri_scheme_ok($uri, 'file');
 
+SKIP: {
+    skip "requires xattr support", 1 unless $test_xattr;
     is(getfattr($path, 'user.nebulous_key'), '/foo', 'user.nebulous_key xattr');
+}
 }
 
@@ -61 +69 @@
     uri_scheme_ok($uri, 'file');
 
+SKIP: {
+    skip "requires xattr support", 1 unless $test_xattr;
     is(getfattr($path, 'user.nebulous_key'), '/foo/', 'user.nebulous_key xattr');
+}
 }
 
@@ -74 +85 @@
     uri_scheme_ok($uri, 'file');
 
+SKIP: {
+    skip "requires xattr support", 1 unless $test_xattr;
     is(getfattr($path, 'user.nebulous_key'), 'foo/', 'user.nebulous_key xattr');
+}
 }
 
@@ -87 +101 @@
     uri_scheme_ok($uri, 'file');
 
+SKIP: {
+    skip "requires xattr support", 1 unless $test_xattr;
     is(getfattr($path, 'user.nebulous_key'), 'foo/bar', 'user.nebulous_key xattr');
+}
 }
 
@@ -100 +117 @@
     uri_scheme_ok($uri, 'file');
 
+SKIP: {
+    skip "requires xattr support", 1 unless $test_xattr;
     is(getfattr($path, 'user.nebulous_key'), '/foo/bar', 'user.nebulous_key xattr');
+}
 }