diff options
author | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-07-25 01:06:42 +0000 |
---|---|---|
committer | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-07-25 01:06:42 +0000 |
commit | 9165b237ad8fae18b36d4d40d6e2ccfde7b136c7 (patch) | |
tree | 06530ddd6baa7e251c58b6b6729ed458da61a681 /t/mailto.t | |
download | URI-tarball-master.tar.gz |
Diffstat (limited to 't/mailto.t')
-rw-r--r-- | t/mailto.t | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/t/mailto.t b/t/mailto.t new file mode 100644 index 0000000..f13a1f8 --- /dev/null +++ b/t/mailto.t @@ -0,0 +1,48 @@ +use strict; +use warnings; + +print "1..7\n"; + +use URI; + +my $u = URI->new('mailto:gisle@aas.no'); + +print "not " unless $u->to eq 'gisle@aas.no' && + $u eq 'mailto:gisle@aas.no'; +print "ok 1\n"; + +my $old = $u->to('larry@wall.org'); +print "not " unless $old eq 'gisle@aas.no' && + $u->to eq 'larry@wall.org' && + $u eq 'mailto:larry@wall.org'; +print "ok 2\n"; + +$u->to("?/#"); +print "not " unless $u->to eq "?/#" && + $u eq 'mailto:%3F/%23'; +print "ok 3\n"; + +my @h = $u->headers; +print "not " unless @h == 2 && "@h" eq "to ?/#"; +print "ok 4\n"; + +$u->headers(to => 'gisle@aas.no', + cc => 'gisle@ActiveState.com,larry@wall.org', + Subject => 'How do you do?', + garbage => '/;?#=&', +); + +@h = $u->headers; +print "not " unless $u->to eq 'gisle@aas.no' && + @h == 8 && + "@h" eq 'to gisle@aas.no cc gisle@ActiveState.com,larry@wall.org Subject How do you do? garbage /;?#=&'; +print "ok 5\n"; + +#print "$u\n"; +print "not " unless $u eq 'mailto:gisle@aas.no?cc=gisle%40ActiveState.com%2Clarry%40wall.org&Subject=How+do+you+do%3F&garbage=%2F%3B%3F%23%3D%26'; +print "ok 6\n"; + +$u = URI->new("mailto:"); +$u->to("gisle"); +print "not " unless $u eq 'mailto:gisle'; +print "ok 7\n"; |