#!/usr/bin/perl -w

use strict;

use Test::More tests => 6;

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

my $field = Rose::HTML::Form::Field::Hidden->new(name  => 'name',  
                                                value => 'John');

ok(ref $field eq 'Rose::HTML::Form::Field::Hidden', 'new()');

is($field->html_field, '<input name="name" type="hidden" value="John">', 'html_field()');
is($field->xhtml_field, '<input name="name" type="hidden" value="John" />', 'xhtml_field()');

$field = Rose::HTML::Form::Field::Hidden->new(name => 'id');
$field->input_value(3);

is($field->html, '<input name="id" type="hidden" value="3">', 'html()');
is($field->xhtml, '<input name="id" type="hidden" value="3" />', 'xhtml()');