--- trunk/t/01-frey-action.t 2008/11/17 22:40:22 386 +++ trunk/t/01-frey-action.t 2008/11/20 10:50:28 469 @@ -4,7 +4,7 @@ my $debug = @ARGV ? 1 : 0; -use Test::More tests => 20; +use Test::More tests => 25; use lib 'lib'; use Data::Dump qw/dump/; @@ -47,3 +47,13 @@ ok( ($html2,$default) = $o->params_form, 'params_form' ); ok( ! $html2, 'no form' ); ok( $default->{unneeded}, 'preserve params' ); + +ok( $o = Frey::Action->new( class => 'Frey::Introspect', debug => $debug ), "new Frey::Introspect" ); +ok( $html = $o->params_form, 'params_form' ); +diag $html if $debug; +like( $html, qr/class/, 'required form field class' ); + +ok( $o = Frey::Action->new( class => 'Frey::Introspect', params => { class => 'Frey' }, debug => $debug ), "new Frey::Introspect" ); +ok( ! $o->params_form, 'params_form empty' ); + +