is_html( $rendered, $expected, 'output from radio group');

# option group attributes $rendered = $form->field('option_group')->render; $expected = '<div> <label for="option_group">Option group</label> <div class="firstgroup"> <label class="group1">First Group</label> <label class="radio" for="option_group.0"> <input type="radio" value="1" name="option_group" id="option_group.0" /> Yes </label> <label class="radio" for="option_group.1"> <input type="radio" value="2" name="option_group" id="option_group.1" /> No </label> </div> </div>';

is_html( $rendered, $expected, 'output from ragio group with option group and label attributes');

# create form with no label rendering for opt_in $form = Test::Form->new( field_list => [ '+opt_in' => { do_label => 0 } ] ); $form->process; # first individually rendered option $rendered = $form->field('opt_in')->render_option({ value => 'test', label => 'Test'}); $expected = '<label class="radio" for="opt_in.0"><input id="opt_in.0" name="opt_in" type="radio" value="test" /> Test </label>'; is_html( $rendered, $expected, 'individual option rendered ok' ); # second rendered option is wrapped $rendered = $form->field('opt_in')->render_wrapped_option({ value => 'abcde', label => 'Abcde' }); $expected = '<div><label class="radio" for="opt_in.1"><input id="opt_in.1" name="opt_in" type="radio" value="abcde" /> Abcde </label></div>'; is_html( $rendered, $expected, 'indvidual wrapped option rendered ok' );