diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-01 14:21:16 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-10-01 14:21:16 +0100 |
| commit | e9dc4a2bf6ff50c27a5bd2e83ff4755923a33e7a (patch) | |
| tree | 47d916204681e691f7c15002f5ad25fd8489d10e /cpan/CGI/t/popup_menu.t | |
| parent | 3fe7d1fbbb0f3821a413b2c6d13fa8821c6230d3 (diff) | |
| download | perl-e9dc4a2bf6ff50c27a5bd2e83ff4755923a33e7a.tar.gz | |
Move CGI from ext/ to cpan/
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'); + |