XXX: hidden options

[perl/html-form-simple.git] / t / html.t

diff --git a/t/html.t b/t/html.t
index c646cdb9810cbcb60314445f6cb2d3c8284825f5..e5abb9ac5ac34e2e4550dc4c52e4d590043ff1b6 100644 (file)
--- a/t/html.t
+++ b/t/html.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More;
 
 
 use Test::More;
 

-plan tests => 50;
+plan tests => 51;

 
 use_ok('HTML::Form::Simple');
 
 
 use_ok('HTML::Form::Simple');
 


@@ -52,7 +52,11 @@ is(
        'hidden'
 );
 
        'hidden'
 );
 

-#TODO: hidden options
+is(
+       $form->hidden(undef, undef, {value => 'bar', name => 'foo', id => 'foo'}),
+       '<input id="foo" name="foo" type="hidden" value="bar">',
+       'hidden options'
+);

 
 # submit
 
 
 # submit