Changeset 13273
- Timestamp:
- May 4, 2007, 4:25:09 PM (19 years ago)
- Location:
- trunk
- Files:
-
- 4 edited
-
Nebulous-Server/t/03_server_create_object.t (modified) (9 diffs)
-
Nebulous-Server/t/04_server_replicate_object.t (modified) (5 diffs)
-
Nebulous/t/03_server_create_object.t (modified) (9 diffs)
-
Nebulous/t/04_server_replicate_object.t (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/t/03_server_create_object.t
r13269 r13273 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 03_server_create_object.t,v 1.1 8 2007-05-05 01:41:29 jhoblitt Exp $5 # $Id: 03_server_create_object.t,v 1.19 2007-05-05 02:25:09 jhoblitt Exp $ 6 6 7 7 use strict; … … 12 12 use lib qw( ./t ./lib ); 13 13 14 use File::ExtAttr qw( getfattr ); 14 15 use Nebulous::Server; 15 16 use Nebulous::Util qw( :standard ); … … 17 18 use Test::URI; 18 19 use URI::Split qw( uri_split ); 19 use File::ExtAttr qw( getfattr );20 20 21 21 my $neb = Nebulous::Server->new( … … 35 35 uri_scheme_ok($uri, 'file'); 36 36 37 is(getfattr($path, ' nebulous_key'), 'foo', 'nebulous_key xattr');37 is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr'); 38 38 } 39 39 … … 48 48 uri_scheme_ok($uri, 'file'); 49 49 50 is(getfattr($path, ' nebulous_key'), '/foo', 'nebulous_key xattr');50 is(getfattr($path, 'user.nebulous_key'), '/foo', 'user.nebulous_key xattr'); 51 51 } 52 52 … … 61 61 uri_scheme_ok($uri, 'file'); 62 62 63 is(getfattr($path, ' nebulous_key'), '/foo/', 'nebulous_key xattr');63 is(getfattr($path, 'user.nebulous_key'), '/foo/', 'user.nebulous_key xattr'); 64 64 } 65 65 … … 74 74 uri_scheme_ok($uri, 'file'); 75 75 76 is(getfattr($path, ' nebulous_key'), 'foo/', 'nebulous_key xattr');76 is(getfattr($path, 'user.nebulous_key'), 'foo/', 'user.nebulous_key xattr'); 77 77 } 78 78 … … 87 87 uri_scheme_ok($uri, 'file'); 88 88 89 is(getfattr($path, ' nebulous_key'), 'foo/bar', 'nebulous_key xattr');89 is(getfattr($path, 'user.nebulous_key'), 'foo/bar', 'user.nebulous_key xattr'); 90 90 } 91 91 … … 100 100 uri_scheme_ok($uri, 'file'); 101 101 102 is(getfattr($path, ' nebulous_key'), '/foo/bar', 'nebulous_key xattr');102 is(getfattr($path, 'user.nebulous_key'), '/foo/bar', 'user.nebulous_key xattr'); 103 103 } 104 104 -
trunk/Nebulous-Server/t/04_server_replicate_object.t
r13173 r13273 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 04_server_replicate_object.t,v 1. 8 2007-05-03 01:44:24jhoblitt Exp $5 # $Id: 04_server_replicate_object.t,v 1.9 2007-05-05 02:25:09 jhoblitt Exp $ 6 6 7 7 use strict; 8 8 use warnings FATAL => qw( all ); 9 9 10 use Test::More tests => 1 2;10 use Test::More tests => 16; 11 11 12 12 use lib qw( ./t ./lib ); 13 13 14 use File::ExtAttr qw( getfattr ); 14 15 use Nebulous::Server; 15 16 use Nebulous::Util qw( :standard ); … … 34 35 ok(-e $path, "file exists"); 35 36 uri_scheme_ok($uri, 'file'); 37 38 is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr'); 36 39 } 37 40 … … 46 49 ok(-e $path, "file exists"); 47 50 uri_scheme_ok($uri, 'file'); 51 52 is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr'); 48 53 } 49 54 … … 60 65 ok(-e $path, "file exists"); 61 66 uri_scheme_ok($uri1, 'file'); 67 68 is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr'); 62 69 } 63 70 … … 66 73 ok(-e $path, "file exists"); 67 74 uri_scheme_ok($uri2, 'file'); 75 76 is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr'); 68 77 } 69 78 } -
trunk/Nebulous/t/03_server_create_object.t
r13269 r13273 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 03_server_create_object.t,v 1.1 8 2007-05-05 01:41:29 jhoblitt Exp $5 # $Id: 03_server_create_object.t,v 1.19 2007-05-05 02:25:09 jhoblitt Exp $ 6 6 7 7 use strict; … … 12 12 use lib qw( ./t ./lib ); 13 13 14 use File::ExtAttr qw( getfattr ); 14 15 use Nebulous::Server; 15 16 use Nebulous::Util qw( :standard ); … … 17 18 use Test::URI; 18 19 use URI::Split qw( uri_split ); 19 use File::ExtAttr qw( getfattr );20 20 21 21 my $neb = Nebulous::Server->new( … … 35 35 uri_scheme_ok($uri, 'file'); 36 36 37 is(getfattr($path, ' nebulous_key'), 'foo', 'nebulous_key xattr');37 is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr'); 38 38 } 39 39 … … 48 48 uri_scheme_ok($uri, 'file'); 49 49 50 is(getfattr($path, ' nebulous_key'), '/foo', 'nebulous_key xattr');50 is(getfattr($path, 'user.nebulous_key'), '/foo', 'user.nebulous_key xattr'); 51 51 } 52 52 … … 61 61 uri_scheme_ok($uri, 'file'); 62 62 63 is(getfattr($path, ' nebulous_key'), '/foo/', 'nebulous_key xattr');63 is(getfattr($path, 'user.nebulous_key'), '/foo/', 'user.nebulous_key xattr'); 64 64 } 65 65 … … 74 74 uri_scheme_ok($uri, 'file'); 75 75 76 is(getfattr($path, ' nebulous_key'), 'foo/', 'nebulous_key xattr');76 is(getfattr($path, 'user.nebulous_key'), 'foo/', 'user.nebulous_key xattr'); 77 77 } 78 78 … … 87 87 uri_scheme_ok($uri, 'file'); 88 88 89 is(getfattr($path, ' nebulous_key'), 'foo/bar', 'nebulous_key xattr');89 is(getfattr($path, 'user.nebulous_key'), 'foo/bar', 'user.nebulous_key xattr'); 90 90 } 91 91 … … 100 100 uri_scheme_ok($uri, 'file'); 101 101 102 is(getfattr($path, ' nebulous_key'), '/foo/bar', 'nebulous_key xattr');102 is(getfattr($path, 'user.nebulous_key'), '/foo/bar', 'user.nebulous_key xattr'); 103 103 } 104 104 -
trunk/Nebulous/t/04_server_replicate_object.t
r13173 r13273 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 04_server_replicate_object.t,v 1. 8 2007-05-03 01:44:24jhoblitt Exp $5 # $Id: 04_server_replicate_object.t,v 1.9 2007-05-05 02:25:09 jhoblitt Exp $ 6 6 7 7 use strict; 8 8 use warnings FATAL => qw( all ); 9 9 10 use Test::More tests => 1 2;10 use Test::More tests => 16; 11 11 12 12 use lib qw( ./t ./lib ); 13 13 14 use File::ExtAttr qw( getfattr ); 14 15 use Nebulous::Server; 15 16 use Nebulous::Util qw( :standard ); … … 34 35 ok(-e $path, "file exists"); 35 36 uri_scheme_ok($uri, 'file'); 37 38 is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr'); 36 39 } 37 40 … … 46 49 ok(-e $path, "file exists"); 47 50 uri_scheme_ok($uri, 'file'); 51 52 is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr'); 48 53 } 49 54 … … 60 65 ok(-e $path, "file exists"); 61 66 uri_scheme_ok($uri1, 'file'); 67 68 is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr'); 62 69 } 63 70 … … 66 73 ok(-e $path, "file exists"); 67 74 uri_scheme_ok($uri2, 'file'); 75 76 is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr'); 68 77 } 69 78 }
Note:
See TracChangeset
for help on using the changeset viewer.
