git.shiar.nl
/
perl
/
html-form-simple.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
XXX: radio default
[perl/html-form-simple.git]
/
t
/
html.t
diff --git
a/t/html.t
b/t/html.t
index 166ab111149cfd8bc160ad17571b7284084b4e4e..a3ac7996e530800210755a21afff19af0f89fe7e 100644
(file)
--- a/
t/html.t
+++ b/
t/html.t
@@
-5,7
+5,7
@@
use warnings;
use Test::More;
use Test::More;
-plan tests =>
68
;
+plan tests =>
72
;
use_ok('HTML::Form::Simple');
use_ok('HTML::Form::Simple');
@@
-346,6
+346,15
@@
is_deeply(
'multiple radio labels'
);
'multiple radio labels'
);
+is_deeply(
+ [ $form->radio(undef, [0, 1], undef, 0) ],
+ [
+ '<input checked type="radio" value="0">',
+ '<input type="radio" value="1">',
+ ],
+ 'radio default'
+);
+
is_deeply(
[ $form->radio(foo => ['foo', ''], 'test', {value => '', id => ''}) ],
[
is_deeply(
[ $form->radio(foo => ['foo', ''], 'test', {value => '', id => ''}) ],
[