_attr method for common argument parsing

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

diff --git a/t/html.t b/t/html.t
index d12d6ef8127ee73a16e2ba4c837dcab0b3616ccc..60e95074768d395f2567cac743440c6903576eb6 100644 (file)
--- a/t/html.t
+++ b/t/html.t
@@ -119,15 +119,22 @@ is(
 );
 
 is(
-       $form->input('', '', {disabled => 0, something => undef, class => undef, style => ''}),
+       $form->input('', '', {
+               disabled => 0,
+               something => undef,
+               class => undef,
+               style => '',
+               name => 'ignore',
+               value => 'overrides',
+       }),
        '<input name="" type="text" value="">',
        'input with empty attributes'
 );
 
 is(
-       $form->input(undef, undef, {name => 'override', value => 'override'}),
-       '<input type="text">',
-       'ignore input overrides'
+       $form->input(undef, undef, {name => '0', value => '0'}),
+       '<input id="0" name="0" type="text" value="0">',
+       'input overrides'
 );
 
 is(