diff options
author | Gisle Aas <gisle@aas.no> | 2000-02-14 15:12:21 +0000 |
---|---|---|
committer | Gisle Aas <gisle@aas.no> | 2000-02-14 15:12:21 +0000 |
commit | 31c3e98acdbbe43328c026d24382a29b125a1dc5 (patch) | |
tree | 48243e0c167f3f6ddeb982935037c372a5f8d6b6 /t/rsync.t | |
parent | 3bf9f915777e799fdb55802139d384e63470975f (diff) | |
download | uri-31c3e98acdbbe43328c026d24382a29b125a1dc5.tar.gz |
First revision.
Diffstat (limited to 't/rsync.t')
-rw-r--r-- | t/rsync.t | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/t/rsync.t b/t/rsync.t new file mode 100644 index 0000000..c8bf82c --- /dev/null +++ b/t/rsync.t @@ -0,0 +1,21 @@ +print "1..4\n"; + +use strict; +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"; + |