diff options
Diffstat (limited to 't/rsync.t')
-rw-r--r-- | t/rsync.t | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/t/rsync.t b/t/rsync.t new file mode 100644 index 0000000..01e91d7 --- /dev/null +++ b/t/rsync.t @@ -0,0 +1,23 @@ +use strict; +use warnings; + +print "1..4\n"; + +use URI; + +my $u = URI->new('rsync://gisle@perl.com/foo/bar'); + +print "not " unless $u->user eq "gisle"; +print "ok 1\n"; + +print "not " unless $u->port eq 873; +print "ok 2\n"; + +print "not " unless $u->path eq "/foo/bar"; +print "ok 3\n"; + +$u->port(8730); + +print "not " unless $u eq 'rsync://gisle@perl.com:8730/foo/bar'; +print "ok 4\n"; + |