1 #!/usr/local/bin/perl -w
8 # Due to a bug in older versions of MakeMaker & Test::Harness, we must
9 # ensure the blib's are in @INC, else we might use the core CGI.pm
10 unshift @INC, qw( ../blib/lib ../blib/arch lib );
14 use Test::More tests => 17;
16 BEGIN { use_ok('CGI'); };
17 use CGI (':standard','-no_debug');
19 my $CRLF = "\015\012";
21 $CRLF = "\n"; # via web server carriage is inserted automatically
23 if (ord("\t") != 9) { # EBCDIC?
28 # Set up a CGI environment
29 $ENV{REQUEST_METHOD} = 'GET';
30 $ENV{QUERY_STRING} = 'game=chess&game=checkers&weather=dull';
31 $ENV{PATH_INFO} = '/somewhere/else';
32 $ENV{PATH_TRANSLATED} = '/usr/local/somewhere/else';
33 $ENV{SCRIPT_NAME} ='/cgi-bin/foo.cgi';
34 $ENV{SERVER_PROTOCOL} = 'HTTP/1.0';
35 $ENV{SERVER_PORT} = 8080;
36 $ENV{SERVER_NAME} = 'the.good.ship.lollypop.com';
38 is(start_form(-action=>'foobar',-method=>'get'),
39 qq(<form method="get" action="foobar" enctype="application/x-www-form-urlencoded">\n),
43 qq(<input type="submit" name=".submit" />),
46 is(submit(-name => 'foo',
48 qq(<input type="submit" name="foo" value="bar" />),
49 "submit(-name,-value)");
51 is(submit({-name => 'foo',
53 qq(<input type="submit" name="foo" value="bar" />),
54 "submit({-name,-value})");
56 is(textfield(-name => 'weather'),
57 qq(<input type="text" name="weather" value="dull" />),
58 "textfield({-name})");
60 is(textfield(-name => 'weather',
62 qq(<input type="text" name="weather" value="dull" />),
63 "textfield({-name,-value})");
65 is(textfield(-name => 'weather',
68 qq(<input type="text" name="weather" value="nice" />),
69 "textfield({-name,-value,-override})");
71 is(checkbox(-name => 'weather',
73 qq(<input type="checkbox" name="weather" value="nice" />weather),
76 is(checkbox(-name => 'weather',
78 -label => 'forecast'),
79 qq(<input type="checkbox" name="weather" value="nice" />forecast),
82 is(checkbox(-name => 'weather',
87 qq(<input type="checkbox" name="weather" value="nice" checked="1" />forecast),
90 is(checkbox(-name => 'weather',
92 -label => 'forecast'),
93 qq(<input type="checkbox" name="weather" value="dull" checked="1" />forecast),
96 is(radio_group(-name => 'game'),
97 qq(<input type="radio" name="game" value="chess" checked="1" />chess ).
98 qq(<input type="radio" name="game" value="checkers" />checkers),
101 is(radio_group(-name => 'game',
102 -labels => {'chess' => 'ping pong'}),
103 qq(<input type="radio" name="game" value="chess" checked="1" />ping pong ).
104 qq(<input type="radio" name="game" value="checkers" />checkers),
107 is(checkbox_group(-name => 'game',
108 -Values => [qw/checkers chess cribbage/]),
109 qq(<input type="checkbox" name="game" value="checkers" checked="1" />checkers ).
110 qq(<input type="checkbox" name="game" value="chess" checked="1" />chess ).
111 qq(<input type="checkbox" name="game" value="cribbage" />cribbage),
114 is(checkbox_group(-name => 'game',
115 '-values' => [qw/checkers chess cribbage/],
116 '-defaults' => ['cribbage'],-override=>1),
117 qq(<input type="checkbox" name="game" value="checkers" />checkers ).
118 qq(<input type="checkbox" name="game" value="chess" />chess ).
119 qq(<input type="checkbox" name="game" value="cribbage" checked="1" />cribbage),
122 is(popup_menu(-name => 'game',
123 '-values' => [qw/checkers chess cribbage/],
124 -default => 'cribbage',
125 -override => 1)."\n",
126 <<END, 'checkbox_group()');
128 <option value="checkers">checkers</option>
129 <option value="chess">chess</option>
130 <option selected="1" value="cribbage">cribbage</option>