#!/usr/bin/perl -w

use strict;

use Test::More tests => 13;

BEGIN 
{
  use_ok('Rose::HTML::Form::Field::RadioButton');
}

my $field = Rose::HTML::Form::Field::RadioButton->new(
  label       => 'Run tests', 
  description => 'Run diagnostic tests',
  name        => 'tests',  
  value       => 'yes');

ok(ref $field && $field->isa('Rose::HTML::Form::Field::RadioButton'), 'new()');

is($field->html_field, '<input name="tests" type="radio" value="yes"> <label>Run tests</label>', 'html_field() 1');
is($field->xhtml_field, '<input name="tests" type="radio" value="yes" /> <label>Run tests</label>', 'xhtml_field() 1');

$field->value('on');

is($field->html_field, '<input name="tests" type="radio" value="on"> <label>Run tests</label>', 'html_field() 2');
is($field->xhtml_field, '<input name="tests" type="radio" value="on" /> <label>Run tests</label>', 'xhtml_field() 2');

$field->default(1);

is($field->html_field, '<input checked name="tests" type="radio" value="on"> <label>Run tests</label>', 'html_field() 3');
is($field->xhtml_field, '<input checked="checked" name="tests" type="radio" value="on" /> <label>Run tests</label>', 'xhtml_field() 3');

$field->class('foo');
$field->id('bar');
$field->style('baz');

$field->default(0);
$field->value('yep');

is($field->html_field, '<input class="foo" id="bar" name="tests" style="baz" type="radio" value="yep"> <label for="bar">Run tests</label>', 'html_field() 4');
is($field->xhtml_field, '<input class="foo" id="bar" name="tests" style="baz" type="radio" value="yep" /> <label for="bar">Run tests</label>', 'xhtml_field() 4');

ok(!$field->checked, 'checked()');

$field->checked(1);

is($field->html_field, '<input checked class="foo" id="bar" name="tests" style="baz" type="radio" value="yep"> <label for="bar">Run tests</label>', 'html_field() 5');
is($field->xhtml_field, '<input checked="checked" class="foo" id="bar" name="tests" style="baz" type="radio" value="yep" /> <label for="bar">Run tests</label>', 'xhtml_field() 5');