1 files changed, 46 insertions, 0 deletions
diff --git a/t/gopher.t b/t/gopher.t
new file mode 100644
index 0000000..427a5fc
--- /dev/null
+++ b/t/gopher.t
@@ -0,0 +1,46 @@
+use strict;
+use warnings;
+
+print "1..48\n";
+
+use URI;
+
+my $t = 1;
+sub is {
+    my ($exp, $got) = @_;
+    if (!defined $exp) {
+        print "not " if defined $got;
+    }
+    else {
+        print "not " unless $got eq $exp;
+    }
+    print "ok " . ($t++) . "\n";
+}
+
+sub check_gopher_uri {
+    my ($u, $exphost, $expport, $exptype, $expselector, $expsearch) = @_;
+    is("gopher", $u->scheme);
+    is($exphost, $u->host);
+    is($expport, $u->port);
+    is($exptype, $u->gopher_type);
+    is($expselector, $u->selector);
+    is($expsearch, $u->search);
+}
+
+my $u;
+$u = URI->new("gopher://host");
+check_gopher_uri($u, "host", 70, 1);
+$u = URI->new("gopher://host:70");
+check_gopher_uri($u, "host", 70, 1);
+$u = URI->new("gopher://host:70/");
+check_gopher_uri($u, "host", 70, 1);
+$u = URI->new("gopher://host:70/1");
+check_gopher_uri($u, "host", 70, 1);
+$u = URI->new("gopher://host:70/1");
+check_gopher_uri($u, "host", 70, 1);
+$u = URI->new("gopher://host:123/7foo");
+check_gopher_uri($u, "host", 123, 7, "foo");
+$u = URI->new("gopher://host/7foo\tbar%20baz");
+check_gopher_uri($u, "host", 70, 7, "foo", "bar baz");
+$u = URI->new("gopher://host/7foo%09bar%20baz");
+check_gopher_uri($u, "host", 70, 7, "foo", "bar baz");