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
|
#!perl
# Tests for popup_menu();
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');
is(
CGI::popup_menu(-values=>[CGI::optgroup(-values=>["b+"])],-default=>"b+"),
'<select name="" >
<optgroup label="">
<option selected="selected" value="b+">b+</option>
</optgroup>
</select>'
, "<optgroup> selections work when the default values contain regex characters (RT#49606)");
unlike(
$q->popup_menu(
-name =>"foo",
-values =>[0,1],
-multiple => 'true',
-MULTIPLE => 'true',
),
qr/multiple/,
'popup_menu ignores -multiple option',
);
|
