blob: 3c7d33ee625c4b8e52ee3929aedab2e9ce0a9a17 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#!perl
# Tests for popup_menu();
use lib 't/lib';
use Test::More 'no_plan';
use CGI;
my $q = CGI->new;
is ( $q->popup_menu(-name=>"foo", - values=>[0,1], -default=>0),
'<select name="foo" >
<option selected="selected" value="0">0</option>
<option value="1">1</option>
</select>'
, 'popup_menu(): basic test, including 0 as a default value');
|
