### ----------------------------------------------------
### -- Form
### -- Licenses: Artistic-2.0
### -- Authors: 
### -- File: t/02-fieldobjects.rakutest
### ----------------------------------------------------
use Test;

plan 6;

use Form::Field;

my $textfield;
lives-ok(
	{
		$textfield = Form::Field::Text.new;
	},
	"TextField constructs with no parameters"
);

ok($textfield, "TextField constructor returned an object");

{
    my $numeric-field;
    lives-ok( { $numeric-field = Form::Field::Numeric.new; },
              'NumericField constructs with no parameters'
    );
    ok($numeric-field.defined, 'NumericField constructor returned an object');
}

{
	my $verbatim-field;
	lives-ok( { $verbatim-field = Form::Field::Verbatim.new; },
			'VerbatimField constructs with no parameters'
	);
	ok($verbatim-field.defined, 'VerbatimField constructor returns an onbject');
}

# vim: expandtab shiftwidth=4


