diff options
Diffstat (limited to 't')
-rwxr-xr-x | t/path-segments.t | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/t/path-segments.t b/t/path-segments.t new file mode 100755 index 0000000..6b11f1c --- /dev/null +++ b/t/path-segments.t @@ -0,0 +1,33 @@ +#!perl -w + +use strict; +use Test::More 'no_plan'; + +use URI (); + +{ + my $u = URI->new("http://www.example.org/a/b/c"); + + is_deeply [$u->path_segments], ['', qw(a b c)], 'path_segments in list context'; + is $u->path_segments, '/a/b/c', 'path_segments in scalar context'; + + is_deeply [$u->path_segments('', qw(z y x))], ['', qw(a b c)], 'set path_segments in list context'; + is $u->path_segments('/i/j/k'), '/z/y/x', 'set path_segments in scalar context'; + + $u->path_segments('', qw(q r s)); + is $u->path_segments, '/q/r/s', 'set path_segments in void context'; +} + +{ + my $u = URI->new("http://www.example.org/abc"); + $u->path_segments('', '%', ';', '/'); + is $u->path_segments, '/%25/%3B/%2F', 'escaping special characters'; +} + +{ + my $u = URI->new("http://www.example.org/abc;param1;param2"); + my @ps = $u->path_segments; + isa_ok $ps[1], 'URI::_segment'; + $u->path_segments(@ps); + is $u->path_segments, '/abc;param1;param2', 'dealing with URI segments'; +} |