Changeset 16205
- Timestamp:
- Jan 23, 2008, 12:46:44 PM (18 years ago)
- Location:
- trunk
- Files:
-
- 3 edited
-
Nebulous-Server/t/75_parse_neb_key.t (modified) (16 diffs)
-
Nebulous/lib/Nebulous/Util.pm (modified) (2 diffs)
-
Nebulous/t/75_parse_neb_key.t (modified) (16 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/t/75_parse_neb_key.t
r16203 r16205 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 75_parse_neb_key.t,v 1. 1 2008-01-23 22:27:51jhoblitt Exp $5 # $Id: 75_parse_neb_key.t,v 1.2 2008-01-23 22:46:44 jhoblitt Exp $ 6 6 7 7 use strict; … … 24 24 # key 25 25 { 26 my ($ path, $volume) = parse_neb_key('foo/bar/baz/quix');26 my ($volume, $path) = parse_neb_key('foo/bar/baz/quix'); 27 27 28 28 is($path, 'foo/bar/baz/quix', 'path'); … … 31 31 32 32 { 33 my ($ path, $volume) = parse_neb_key('/foo/bar/baz/quix');33 my ($volume, $path) = parse_neb_key('/foo/bar/baz/quix'); 34 34 35 35 is($path, 'foo/bar/baz/quix', 'path'); … … 38 38 39 39 { 40 my ($ path, $volume) = parse_neb_key('//foo/bar/baz/quix');40 my ($volume, $path) = parse_neb_key('//foo/bar/baz/quix'); 41 41 42 42 is($path, 'foo/bar/baz/quix', 'path'); … … 45 45 46 46 { 47 my ($ path, $volume) = parse_neb_key('///foo/bar/baz/quix');47 my ($volume, $path) = parse_neb_key('///foo/bar/baz/quix'); 48 48 49 49 is($path, 'foo/bar/baz/quix', 'path'); … … 52 52 53 53 { 54 my ($ path, $volume) = parse_neb_key('foo////bar/baz/quix');54 my ($volume, $path) = parse_neb_key('foo////bar/baz/quix'); 55 55 56 56 is($path, 'foo/bar/baz/quix', 'path'); … … 59 59 60 60 { 61 my ($ path, $volume) = parse_neb_key('foo/bar/baz/quix/');61 my ($volume, $path) = parse_neb_key('foo/bar/baz/quix/'); 62 62 63 63 is($path, 'foo/bar/baz/quix', 'path'); … … 68 68 # URI w/ volume name 69 69 { 70 my ($ path, $volume) = parse_neb_key('neb://foo/bar/baz/quix');70 my ($volume, $path) = parse_neb_key('neb://foo/bar/baz/quix'); 71 71 72 72 is($path, 'bar/baz/quix', 'path'); … … 75 75 76 76 { 77 my ($ path, $volume) = parse_neb_key('neb://foo//bar/baz/quix');77 my ($volume, $path) = parse_neb_key('neb://foo//bar/baz/quix'); 78 78 79 79 is($path, 'bar/baz/quix', 'path'); … … 82 82 83 83 { 84 my ($ path, $volume) = parse_neb_key('neb://foo///bar/baz/quix');84 my ($volume, $path) = parse_neb_key('neb://foo///bar/baz/quix'); 85 85 86 86 is($path, 'bar/baz/quix', 'path'); … … 89 89 90 90 { 91 my ($ path, $volume) = parse_neb_key('neb://foo/bar///baz/quix');91 my ($volume, $path) = parse_neb_key('neb://foo/bar///baz/quix'); 92 92 93 93 is($path, 'bar/baz/quix', 'path'); … … 96 96 97 97 { 98 my ($ path, $volume) = parse_neb_key('neb://foo/bar/baz/quix/');98 my ($volume, $path) = parse_neb_key('neb://foo/bar/baz/quix/'); 99 99 100 100 is($path, 'bar/baz/quix', 'path'); … … 106 106 107 107 { 108 my ($ path, $volume) = parse_neb_key('neb:/foo/bar/baz/quix');108 my ($volume, $path) = parse_neb_key('neb:/foo/bar/baz/quix'); 109 109 110 110 is($path, 'foo/bar/baz/quix', 'path'); … … 113 113 114 114 { 115 my ($ path, $volume) = parse_neb_key('neb:///foo/bar/baz/quix');115 my ($volume, $path) = parse_neb_key('neb:///foo/bar/baz/quix'); 116 116 117 117 is($volume, undef, 'volume name'); … … 120 120 121 121 { 122 my ($ path, $volume) = parse_neb_key('neb://///foo/bar/baz/quix');122 my ($volume, $path) = parse_neb_key('neb://///foo/bar/baz/quix'); 123 123 124 124 is($path, 'foo/bar/baz/quix', 'path'); … … 166 166 # URI w/o volume requires leading slash 167 167 eval { 168 my ($ path, $volume) = parse_neb_key('neb:foo/bar/baz/quix');168 my ($volume, $path) = parse_neb_key('neb:foo/bar/baz/quix'); 169 169 }; 170 170 like( $@, qr/requires a leading slash/, "leading slash" ); -
trunk/Nebulous/lib/Nebulous/Util.pm
r16203 r16205 1 1 # Copyright (c) 2004 Joshua Hoblitt 2 2 # 3 # $Id: Util.pm,v 1. 8 2008-01-23 22:27:51jhoblitt Exp $3 # $Id: Util.pm,v 1.9 2008-01-23 22:46:44 jhoblitt Exp $ 4 4 5 5 package Nebulous::Util; … … 122 122 $path = canonpath($path); 123 123 124 return ($ path, $volume);124 return ($volume, $path); 125 125 } 126 126 -
trunk/Nebulous/t/75_parse_neb_key.t
r16203 r16205 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 75_parse_neb_key.t,v 1. 1 2008-01-23 22:27:51jhoblitt Exp $5 # $Id: 75_parse_neb_key.t,v 1.2 2008-01-23 22:46:44 jhoblitt Exp $ 6 6 7 7 use strict; … … 24 24 # key 25 25 { 26 my ($ path, $volume) = parse_neb_key('foo/bar/baz/quix');26 my ($volume, $path) = parse_neb_key('foo/bar/baz/quix'); 27 27 28 28 is($path, 'foo/bar/baz/quix', 'path'); … … 31 31 32 32 { 33 my ($ path, $volume) = parse_neb_key('/foo/bar/baz/quix');33 my ($volume, $path) = parse_neb_key('/foo/bar/baz/quix'); 34 34 35 35 is($path, 'foo/bar/baz/quix', 'path'); … … 38 38 39 39 { 40 my ($ path, $volume) = parse_neb_key('//foo/bar/baz/quix');40 my ($volume, $path) = parse_neb_key('//foo/bar/baz/quix'); 41 41 42 42 is($path, 'foo/bar/baz/quix', 'path'); … … 45 45 46 46 { 47 my ($ path, $volume) = parse_neb_key('///foo/bar/baz/quix');47 my ($volume, $path) = parse_neb_key('///foo/bar/baz/quix'); 48 48 49 49 is($path, 'foo/bar/baz/quix', 'path'); … … 52 52 53 53 { 54 my ($ path, $volume) = parse_neb_key('foo////bar/baz/quix');54 my ($volume, $path) = parse_neb_key('foo////bar/baz/quix'); 55 55 56 56 is($path, 'foo/bar/baz/quix', 'path'); … … 59 59 60 60 { 61 my ($ path, $volume) = parse_neb_key('foo/bar/baz/quix/');61 my ($volume, $path) = parse_neb_key('foo/bar/baz/quix/'); 62 62 63 63 is($path, 'foo/bar/baz/quix', 'path'); … … 68 68 # URI w/ volume name 69 69 { 70 my ($ path, $volume) = parse_neb_key('neb://foo/bar/baz/quix');70 my ($volume, $path) = parse_neb_key('neb://foo/bar/baz/quix'); 71 71 72 72 is($path, 'bar/baz/quix', 'path'); … … 75 75 76 76 { 77 my ($ path, $volume) = parse_neb_key('neb://foo//bar/baz/quix');77 my ($volume, $path) = parse_neb_key('neb://foo//bar/baz/quix'); 78 78 79 79 is($path, 'bar/baz/quix', 'path'); … … 82 82 83 83 { 84 my ($ path, $volume) = parse_neb_key('neb://foo///bar/baz/quix');84 my ($volume, $path) = parse_neb_key('neb://foo///bar/baz/quix'); 85 85 86 86 is($path, 'bar/baz/quix', 'path'); … … 89 89 90 90 { 91 my ($ path, $volume) = parse_neb_key('neb://foo/bar///baz/quix');91 my ($volume, $path) = parse_neb_key('neb://foo/bar///baz/quix'); 92 92 93 93 is($path, 'bar/baz/quix', 'path'); … … 96 96 97 97 { 98 my ($ path, $volume) = parse_neb_key('neb://foo/bar/baz/quix/');98 my ($volume, $path) = parse_neb_key('neb://foo/bar/baz/quix/'); 99 99 100 100 is($path, 'bar/baz/quix', 'path'); … … 106 106 107 107 { 108 my ($ path, $volume) = parse_neb_key('neb:/foo/bar/baz/quix');108 my ($volume, $path) = parse_neb_key('neb:/foo/bar/baz/quix'); 109 109 110 110 is($path, 'foo/bar/baz/quix', 'path'); … … 113 113 114 114 { 115 my ($ path, $volume) = parse_neb_key('neb:///foo/bar/baz/quix');115 my ($volume, $path) = parse_neb_key('neb:///foo/bar/baz/quix'); 116 116 117 117 is($volume, undef, 'volume name'); … … 120 120 121 121 { 122 my ($ path, $volume) = parse_neb_key('neb://///foo/bar/baz/quix');122 my ($volume, $path) = parse_neb_key('neb://///foo/bar/baz/quix'); 123 123 124 124 is($path, 'foo/bar/baz/quix', 'path'); … … 166 166 # URI w/o volume requires leading slash 167 167 eval { 168 my ($ path, $volume) = parse_neb_key('neb:foo/bar/baz/quix');168 my ($volume, $path) = parse_neb_key('neb:foo/bar/baz/quix'); 169 169 }; 170 170 like( $@, qr/requires a leading slash/, "leading slash" );
Note:
See TracChangeset
for help on using the changeset viewer.
