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: hidden hash
[perl/html-form-simple.git]
/
t
/
html.t
diff --git
a/t/html.t
b/t/html.t
index 8ab4806da4e9910cde6fd2c9deefc3b30cf2bf60..3c6d8f4898b1284d9c061cf734535d95ca776dd3 100644
(file)
--- a/
t/html.t
+++ b/
t/html.t
@@
-5,7
+5,7
@@
use warnings;
use Test::More;
use Test::More;
-plan tests => 5
2
;
+plan tests => 5
3
;
use_ok('HTML::Form::Simple');
use_ok('HTML::Form::Simple');
@@
-58,6
+58,15
@@
is(
'hidden options'
);
'hidden options'
);
+is_deeply(
+ [ $form->hidden({2 => 0, 10 => 1}, {class => 'test'}) ],
+ [
+ '<input class="test" name="10" type="hidden" value="1">',
+ '<input class="test" name="2" type="hidden" value="0">',
+ ],
+ 'hidden hash'
+);
+
# submit
is(
# submit
is(