1 #!/usr/local/bin/perl -w
3 use Test::More tests => 17;
5 BEGIN { use_ok('CGI'); };
6 use CGI (':standard','-no_debug');
10 $CRLF = "\n"; # via web server carriage is inserted automatically
12 if (ord("\t") != 9) { # EBCDIC?
17 # Set up a CGI environment
18 $ENV{REQUEST_METHOD} = 'GET';
19 $ENV{QUERY_STRING} = 'game=chess&game=checkers&weather=dull';
20 $ENV{PATH_INFO} = '/somewhere/else';
21 $ENV{PATH_TRANSLATED} = '/usr/local/somewhere/else';
22 $ENV{SCRIPT_NAME} ='/cgi-bin/foo.cgi';
23 $ENV{SERVER_PROTOCOL} = 'HTTP/1.0';
24 $ENV{SERVER_PORT} = 8080;
25 $ENV{SERVER_NAME} = 'the.good.ship.lollypop.com';
27 is(start_form(-action=>'foobar',-method=>'get'),
28 qq(<form method="get" action="foobar" enctype="application/x-www-form-urlencoded">\n),
32 qq(<input type="submit" name=".submit" />),
35 is(submit(-name => 'foo',
37 qq(<input type="submit" name="foo" value="bar" />),
38 "submit(-name,-value)");
40 is(submit({-name => 'foo',
42 qq(<input type="submit" name="foo" value="bar" />),
43 "submit({-name,-value})");
45 is(textfield(-name => 'weather'),
46 qq(<input type="text" name="weather" value="dull" />),
47 "textfield({-name})");
49 is(textfield(-name => 'weather',
51 qq(<input type="text" name="weather" value="dull" />),
52 "textfield({-name,-value})");
54 is(textfield(-name => 'weather',
57 qq(<input type="text" name="weather" value="nice" />),
58 "textfield({-name,-value,-override})");
60 is(checkbox(-name => 'weather',
62 qq(<input type="checkbox" name="weather" value="nice" />weather),
65 is(checkbox(-name => 'weather',
67 -label => 'forecast'),
68 qq(<input type="checkbox" name="weather" value="nice" />forecast),
71 is(checkbox(-name => 'weather',
76 qq(<input type="checkbox" name="weather" value="nice" checked />forecast),
79 is(checkbox(-name => 'weather',
81 -label => 'forecast'),
82 qq(<input type="checkbox" name="weather" value="dull" checked />forecast),
85 is(radio_group(-name => 'game'),
86 qq(<input type="radio" name="game" value="chess" checked />chess ).
87 qq(<input type="radio" name="game" value="checkers" />checkers),
90 is(radio_group(-name => 'game',
91 -labels => {'chess' => 'ping pong'}),
92 qq(<input type="radio" name="game" value="chess" checked />ping pong ).
93 qq(<input type="radio" name="game" value="checkers" />checkers),
96 is(checkbox_group(-name => 'game',
97 -Values => [qw/checkers chess cribbage/]),
98 qq(<input type="checkbox" name="game" value="checkers" checked />checkers ).
99 qq(<input type="checkbox" name="game" value="chess" checked />chess ).
100 qq(<input type="checkbox" name="game" value="cribbage" />cribbage),
103 is(checkbox_group(-name => 'game',
104 '-values' => [qw/checkers chess cribbage/],
105 '-defaults' => ['cribbage'],-override=>1),
106 qq(<input type="checkbox" name="game" value="checkers" />checkers ).
107 qq(<input type="checkbox" name="game" value="chess" />chess ).
108 qq(<input type="checkbox" name="game" value="cribbage" checked />cribbage),
111 is(popup_menu(-name => 'game',
112 '-values' => [qw/checkers chess cribbage/],
113 -default => 'cribbage',
114 -override => 1)."\n",
115 <<END, 'checkbox_group()');
117 <option value="checkers">checkers</option>
118 <option value="chess">chess</option>
119 <option selected value="cribbage">cribbage</option>