X-Git-Url: http://git.shiar.nl/perl/html-form-simple.git/blobdiff_plain/b54221df138e749a5c2fda079ea4d6241a278a7d..473797e7d8bb0922a1e56294dff2ad9e82202593:/t/html.t

diff --git a/t/html.t b/t/html.t
index 166ab11..5b3fa2a 100644
--- a/t/html.t
+++ b/t/html.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More;
 
-plan tests => 68;
+plan tests => 72;
 
 use_ok('HTML::Form::Simple');
 
@@ -346,6 +346,15 @@ is_deeply(
 	'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 => ''}) ],
 	[
@@ -463,7 +472,7 @@ is_deeply(
 	[ $form->check(foo => ['bar', {name => 'bar'}], {name => 'ignored'}) ],
 	[
 		'<label><input id="foo_1" name="foo" type="checkbox" value="1"> bar</label>',
-		'<input id="bar_2" name="bar" type="checkbox" value="2">',
+		'<input id="foo_2" name="bar" type="checkbox" value="2">',
 	],
 	'checkbox names'
 );