1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
#!perl -w
print "1..18\n";
use strict;
use URI ();
my $u = URI->new("", "http");
my @q;
$u->query_form(a => 3, b => 4);
print "not " unless $u eq "?a=3&b=4";
print "ok 1\n";
$u->query_form(a => undef);
print "not " unless $u eq "?a=";
print "ok 2\n";
$u->query_form("a[=&+#] " => " [=&+#]");
print "not " unless $u eq "?a%5B%3D%26%2B%23%5D+=+%5B%3D%26%2B%23%5D";
print "ok 3\n";
@q = $u->query_form;
print "not " unless join(":", @q) eq "a[=&+#] : [=&+#]";
print "ok 4\n";
@q = $u->query_keywords;
print "not " if @q;
print "ok 5\n";
$u->query_keywords("a", "b");
print "not " unless $u eq "?a+b";
print "ok 6\n";
$u->query_keywords(" ", "+", "=", "[", "]");
print "not " unless $u eq "?%20+%2B+%3D+%5B+%5D";
print "ok 7\n";
@q = $u->query_keywords;
print "not " unless join(":", @q) eq " :+:=:[:]";
print "ok 8\n";
@q = $u->query_form;
print "not " if @q;
print "ok 9\n";
$u->query(" +?=#");
print "not " unless $u eq "?%20+?=%23";
print "ok 10\n";
$u->query_keywords([qw(a b)]);
print "not " unless $u eq "?a+b";
print "ok 11\n";
$u->query_keywords([]);
print "not " unless $u eq "";
print "ok 12\n";
$u->query_form({ a => 1, b => 2 });
print "not " unless $u eq "?a=1&b=2" || $u eq "?b=2&a=1";
print "ok 13\n";
$u->query_form([ a => 1, b => 2 ]);
print "not " unless $u eq "?a=1&b=2";
print "ok 14\n";
$u->query_form({});
print "not " unless $u eq "";
print "ok 15\n";
$u->query_form([a => [1..4]]);
print "not " unless $u eq "?a=1&a=2&a=3&a=4";
print "ok 16\n";
$u->query_form([]);
print "not " unless $u eq "";
print "ok 17\n";
$u->query_form(a => { foo => 1 });
print "not " unless "$u" =~ /^\?a=HASH\(/;
print "ok 18\n";
__END__
# Some debugging while writing new tests
print "\@q='", join(":", @q), "'\n";
print "\$u='$u'\n";
|
