Changeset 24362 for trunk/Nebulous-Server/t/75_parse_neb_key.t
- Timestamp:
- Jun 9, 2009, 2:42:18 PM (17 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous-Server/t/75_parse_neb_key.t (modified) (31 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/t/75_parse_neb_key.t
r24304 r24362 10 10 use Test::More; 11 11 12 plan tests => 10 3;12 plan tests => 106; 13 13 14 14 use lib qw( ./t ./lib ); … … 28 28 is($key->path, 'foo/bar/baz/quix', 'path'); 29 29 is($key->volume, undef, 'volume name'); 30 is($key-> soft_volume, undef, 'soft volume name');30 is($key->hard_volume, undef, 'soft volume name'); 31 31 } 32 32 … … 36 36 is($key->path, 'foo/bar/baz/quix', 'path'); 37 37 is($key->volume, undef, 'volume name'); 38 is($key-> soft_volume, undef, 'soft volume name');38 is($key->hard_volume, undef, 'soft volume name'); 39 39 } 40 40 … … 44 44 is($key->path, 'foo/bar/baz/quix', 'path'); 45 45 is($key->volume, undef, 'volume name'); 46 is($key-> soft_volume, undef, 'soft volume name');46 is($key->hard_volume, undef, 'soft volume name'); 47 47 } 48 48 … … 52 52 is($key->path, 'foo/bar/baz/quix', 'path'); 53 53 is($key->volume, undef, 'volume name'); 54 is($key-> soft_volume, undef, 'soft volume name');54 is($key->hard_volume, undef, 'soft volume name'); 55 55 } 56 56 … … 60 60 is($key->path, 'foo/bar/baz/quix', 'path'); 61 61 is($key->volume, undef, 'volume name'); 62 is($key-> soft_volume, undef, 'soft volume name');62 is($key->hard_volume, undef, 'soft volume name'); 63 63 } 64 64 … … 68 68 is($key->path, 'foo/bar/baz/quix', 'path'); 69 69 is($key->volume, undef, 'volume name'); 70 is($key-> soft_volume, undef, 'soft volume name');70 is($key->hard_volume, undef, 'soft volume name'); 71 71 } 72 72 … … 77 77 is($key->path, 'foo/bar/baz/quix', 'path'); 78 78 is($key->volume, 'boing', 'volume name'); 79 is($key-> soft_volume, 1, 'soft volume name');79 is($key->hard_volume, undef, 'soft volume name'); 80 80 } 81 81 … … 85 85 is($key->path, 'foo/bar/baz/quix', 'path'); 86 86 is($key->volume, 'boing', 'volume name'); 87 is($key-> soft_volume, undef, 'soft volume name');87 is($key->hard_volume, 1, 'soft volume name'); 88 88 } 89 89 … … 94 94 is($key->path, 'bar/baz/quix', 'path'); 95 95 is($key->volume, 'foo', 'volume name'); 96 is($key-> soft_volume, 1, 'soft volume name');96 is($key->hard_volume, undef, 'soft volume name'); 97 97 } 98 98 … … 102 102 is($key->path, 'bar/baz/quix', 'path'); 103 103 is($key->volume, 'foo', 'volume name'); 104 is($key-> soft_volume, 1, 'soft volume name');104 is($key->hard_volume, undef, 'soft volume name'); 105 105 } 106 106 … … 110 110 is($key->path, 'bar/baz/quix', 'path'); 111 111 is($key->volume, 'foo', 'volume name'); 112 is($key-> soft_volume, 1, 'soft volume name');112 is($key->hard_volume, undef, 'soft volume name'); 113 113 } 114 114 … … 118 118 is($key->path, 'bar/baz/quix', 'path'); 119 119 is($key->volume, 'foo', 'volume name'); 120 is($key-> soft_volume, 1, 'soft volume name');120 is($key->hard_volume, undef, 'soft volume name'); 121 121 } 122 122 … … 126 126 is($key->path, 'bar/baz/quix', 'path'); 127 127 is($key->volume, 'foo', 'volume name'); 128 is($key-> soft_volume, 1, 'soft volume name');128 is($key->hard_volume, undef, 'soft volume name'); 129 129 } 130 130 … … 135 135 is($key->path, 'bar/baz/quix', 'path'); 136 136 is($key->volume, 'foo', 'volume name'); 137 is($key-> soft_volume, undef, 'soft volume name');137 is($key->hard_volume, 1, 'soft volume name'); 138 138 } 139 139 … … 144 144 is($key->path, 'bar/baz/quix', 'path'); 145 145 is($key->volume, 'boing', 'volume name'); 146 is($key-> soft_volume, 1, 'soft volume name');146 is($key->hard_volume, undef, 'soft volume name'); 147 147 } 148 148 … … 152 152 is($key->path, 'bar/baz/quix', 'path'); 153 153 is($key->volume, 'boing', 'volume name'); 154 is($key-> soft_volume, undef, 'soft volume name');154 is($key->hard_volume, 1, 'soft volume name'); 155 155 } 156 156 … … 160 160 is($key->path, 'bar/baz/quix', 'path'); 161 161 is($key->volume, 'foo', 'volume name'); 162 is($key-> soft_volume, 1, 'soft volume name');162 is($key->hard_volume, undef, 'soft volume name'); 163 163 } 164 164 … … 169 169 is($key->path, 'bar/baz/quix', 'path'); 170 170 is($key->volume, undef, 'volume name'); 171 is($key-> soft_volume, undef, 'soft volume name');171 is($key->hard_volume, undef, 'soft volume name'); 172 172 } 173 173 … … 178 178 is($key->path, 'bar/baz/quix', 'path'); 179 179 is($key->volume, undef, 'volume name'); 180 is($key-> soft_volume, undef, 'soft volume name');180 is($key->hard_volume, undef, 'soft volume name'); 181 181 } 182 182 … … 186 186 is($key->path, 'bar/baz/quix', 'path'); 187 187 is($key->volume, undef, 'volume name'); 188 is($key-> soft_volume, undef, 'soft volume name');188 is($key->hard_volume, undef, 'soft volume name'); 189 189 } 190 190 … … 195 195 is($key->path, 'bar/baz/quix', 'path'); 196 196 is($key->volume, 'foo', 'volume name'); 197 is($key-> soft_volume, undef, 'soft volume name');197 is($key->hard_volume, 1, 'soft volume name'); 198 198 } 199 199 … … 205 205 is($key->path, 'foo/bar/baz/quix', 'path'); 206 206 is($key->volume, undef, 'volume name'); 207 is($key-> soft_volume, undef, 'soft volume name');207 is($key->hard_volume, undef, 'soft volume name'); 208 208 } 209 209 … … 213 213 is($key->volume, undef, 'volume name'); 214 214 is($key->path, 'foo/bar/baz/quix', 'path'); 215 is($key-> soft_volume, undef, 'soft volume name');215 is($key->hard_volume, undef, 'soft volume name'); 216 216 } 217 217 … … 221 221 is($key->path, 'foo/bar/baz/quix', 'path'); 222 222 is($key->volume, undef, 'volume name'); 223 is($key-> soft_volume, undef, 'soft volume name');223 is($key->hard_volume, undef, 'soft volume name'); 224 224 } 225 225 … … 230 230 is($key->path, '', 'path'); 231 231 is($key->volume, undef, 'volume name'); 232 is($key-> soft_volume, undef, 'soft volume name');232 is($key->hard_volume, undef, 'soft volume name'); 233 233 } 234 234 … … 238 238 is($key->path, '', 'path'); 239 239 is($key->volume, undef, 'volume name'); 240 is($key-> soft_volume, undef, 'soft volume name');240 is($key->hard_volume, undef, 'soft volume name'); 241 241 } 242 242 … … 246 246 is($key->path, '', 'path'); 247 247 is($key->volume, undef, 'volume name'); 248 is($key-> soft_volume, undef, 'soft volume name');248 is($key->hard_volume, undef, 'soft volume name'); 249 249 } 250 250 … … 254 254 is($key->path, '', 'path'); 255 255 is($key->volume, undef, 'volume name'); 256 is($key-> soft_volume, undef, 'soft volume name');256 is($key->hard_volume, undef, 'soft volume name'); 257 257 } 258 258 … … 262 262 is($key->path, '', 'path'); 263 263 is($key->volume, undef, 'volume name'); 264 is($key-> soft_volume, undef, 'soft volume name');264 is($key->hard_volume, undef, 'soft volume name'); 265 265 } 266 266 … … 270 270 is($key->path, '', 'path'); 271 271 is($key->volume, undef, 'volume name'); 272 is($key->soft_volume, undef, 'soft volume name'); 272 is($key->hard_volume, undef, 'soft volume name'); 273 } 274 275 # stringification 276 277 { 278 my $txt = 'neb:///bar/baz'; 279 my $key = parse_neb_key($txt); 280 281 is("$key", $txt, "stringified"); 282 } 283 284 { 285 my $txt = 'neb://foo.0/bar/baz'; 286 my $key = parse_neb_key($txt); 287 288 is("$key", $txt, "stringified"); 289 } 290 291 { 292 my $txt = 'neb://~foo.0/bar/baz'; 293 my $key = parse_neb_key($txt); 294 295 is("$key", $txt, "stringified"); 273 296 } 274 297
Note:
See TracChangeset
for help on using the changeset viewer.
