diff options
Diffstat (limited to 'cpan/CGI/t/popup_menu.t')
| -rw-r--r-- | cpan/CGI/t/popup_menu.t | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/cpan/CGI/t/popup_menu.t b/cpan/CGI/t/popup_menu.t new file mode 100644 index 0000000000..3c7d33ee62 --- /dev/null +++ b/cpan/CGI/t/popup_menu.t @@ -0,0 +1,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'); + |