Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

24 lines (14 sloc) 0.375 kb
#!perl -w
print "1..4\n";
use strict;
use URI;
my $u = URI->new('rsync://');
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";
print "not " unless $u eq 'rsync://';
print "ok 4\n";
Jump to Line
Something went wrong with that request. Please try again.