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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
#!/usr/local/bin/perl -w
use lib qw(t/lib ./lib ../blib/lib);
# Due to a bug in older versions of MakeMaker & Test::Harness, we must
# ensure the blib's are in @INC, else we might use the core CGI.pm
use lib qw(blib/lib blib/arch);
use Test::More tests => 17;
BEGIN { use_ok('CGI'); };
use CGI (':standard','-no_debug');
my $CRLF = "\015\012";
if ($^O eq 'VMS') {
$CRLF = "\n"; # via web server carriage is inserted automatically
}
if (ord("\t") != 9) { # EBCDIC?
$CRLF = "\r\n";
}
# Set up a CGI environment
$ENV{REQUEST_METHOD} = 'GET';
$ENV{QUERY_STRING} = 'game=chess&game=checkers&weather=dull';
$ENV{PATH_INFO} = '/somewhere/else';
$ENV{PATH_TRANSLATED} = '/usr/local/somewhere/else';
$ENV{SCRIPT_NAME} ='/cgi-bin/foo.cgi';
$ENV{SERVER_PROTOCOL} = 'HTTP/1.0';
$ENV{SERVER_PORT} = 8080;
$ENV{SERVER_NAME} = 'the.good.ship.lollypop.com';
is(start_form(-action=>'foobar',-method=>'get'),
qq(<form method="get" action="foobar" enctype="application/x-www-form-urlencoded">\n),
"start_form()");
is(submit(),
qq(<input type="submit" name=".submit" />),
"submit()");
is(submit(-name => 'foo',
-value => 'bar'),
qq(<input type="submit" name="foo" value="bar" />),
"submit(-name,-value)");
is(submit({-name => 'foo',
-value => 'bar'}),
qq(<input type="submit" name="foo" value="bar" />),
"submit({-name,-value})");
is(textfield(-name => 'weather'),
qq(<input type="text" name="weather" value="dull" />),
"textfield({-name})");
is(textfield(-name => 'weather',
-value => 'nice'),
qq(<input type="text" name="weather" value="dull" />),
"textfield({-name,-value})");
is(textfield(-name => 'weather',
-value => 'nice',
-override => 1),
qq(<input type="text" name="weather" value="nice" />),
"textfield({-name,-value,-override})");
is(checkbox(-name => 'weather',
-value => 'nice'),
qq(<input type="checkbox" name="weather" value="nice" />weather),
"checkbox()");
is(checkbox(-name => 'weather',
-value => 'nice',
-label => 'forecast'),
qq(<input type="checkbox" name="weather" value="nice" />forecast),
"checkbox()");
is(checkbox(-name => 'weather',
-value => 'nice',
-label => 'forecast',
-checked => 1,
-override => 1),
qq(<input type="checkbox" name="weather" value="nice" checked="checked" />forecast),
"checkbox()");
is(checkbox(-name => 'weather',
-value => 'dull',
-label => 'forecast'),
qq(<input type="checkbox" name="weather" value="dull" checked="checked" />forecast),
"checkbox()");
is(radio_group(-name => 'game'),
qq(<input type="radio" name="game" value="chess" checked="checked" />chess ).
qq(<input type="radio" name="game" value="checkers" />checkers),
'radio_group()');
is(radio_group(-name => 'game',
-labels => {'chess' => 'ping pong'}),
qq(<input type="radio" name="game" value="chess" checked="checked" />ping pong ).
qq(<input type="radio" name="game" value="checkers" />checkers),
'radio_group()');
is(checkbox_group(-name => 'game',
-Values => [qw/checkers chess cribbage/]),
qq(<input type="checkbox" name="game" value="checkers" checked="checked" />checkers ).
qq(<input type="checkbox" name="game" value="chess" checked="checked" />chess ).
qq(<input type="checkbox" name="game" value="cribbage" />cribbage),
'checkbox_group()');
is(checkbox_group(-name => 'game',
'-values' => [qw/checkers chess cribbage/],
'-defaults' => ['cribbage'],-override=>1),
qq(<input type="checkbox" name="game" value="checkers" />checkers ).
qq(<input type="checkbox" name="game" value="chess" />chess ).
qq(<input type="checkbox" name="game" value="cribbage" checked="checked" />cribbage),
'checkbox_group()');
is(popup_menu(-name => 'game',
'-values' => [qw/checkers chess cribbage/],
-default => 'cribbage',
-override => 1)."\n",
<<END, 'checkbox_group()');
<select name="game">
<option value="checkers">checkers</option>
<option value="chess">chess</option>
<option selected="selected" value="cribbage">cribbage</option>
</select>
END
|
