1N/A#!perl
1N/A# Tests for popup_menu();
1N/Ause Test::More 'no_plan';
1N/Ause CGI;
1N/A
1N/Amy $q = CGI->new;
1N/A
1N/Ais ( $q->popup_menu(-name=>"foo", - values=>[0,1], -default=>0),
1N/A'<select name="foo" >
1N/A<option selected="selected" value="0">0</option>
1N/A<option value="1">1</option>
1N/A</select>'
1N/A, 'popup_menu(): basic test, including 0 as a default value');
1N/A
1N/Ais(
1N/A CGI::popup_menu(-values=>[CGI::optgroup(-values=>["b+"])],-default=>"b+"),
1N/A '<select name="" >
1N/A<optgroup label="">
1N/A<option selected="selected" value="b+">b+</option>
1N/A</optgroup>
1N/A</select>'
1N/A , "<optgroup> selections work when the default values contain regex characters (RT#49606)");