Permalink
Browse files

do not rely on exact .perl form

  • Loading branch information...
1 parent 2bd4c9b commit 8f426a76737da7b087c7326d4f289da4aafc0c3d @moritz moritz committed Mar 29, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 t/01.t
View
2 t/01.t
@@ -51,7 +51,7 @@ is($u.segments[*-1], 'baz', 'last segment');
$u = URI.new;
$u.parse('http://foo.com');
-ok($u.segments.list.perl eq '[""]', ".segments return [''] for empty path");
+ok($u.segments == 1 && $u.segments[0] eq '', ".segments return [''] for empty path");
ok($u.absolute, 'http://foo.com has an absolute path');
nok($u.relative, 'http://foo.com does not have a relative path');
is($u.port, 80, 'default http port');

0 comments on commit 8f426a7

Please sign in to comment.