1#!perl
2# Tests for popup_menu();
3use Test::More 'no_plan';
4use CGI;
5
6my $q  = CGI->new;
7
8is ( $q->popup_menu(-name=>"foo", - values=>[0,1], -default=>0),
9'<select name="foo" >
10<option selected="selected" value="0">0</option>
11<option value="1">1</option>
12</select>'
13, 'popup_menu(): basic test, including 0 as a default value');
14
15is(
16    CGI::popup_menu(-values=>[CGI::optgroup(-values=>["b+"])],-default=>"b+"),
17    '<select name="" >
18<optgroup label="">
19<option selected="selected" value="b+">b+</option>
20</optgroup>
21</select>'
22    , "<optgroup> selections work when the default values contain regex characters (RT#49606)");
23
24unlike(
25	$q->popup_menu(
26		-name     =>"foo",
27		-values   =>[0,1],
28		-multiple => 'true',
29		-MULTIPLE => 'true',
30	),
31	qr/multiple/,
32	'popup_menu ignores -multiple option',
33);
34