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