--- trunk/t/01-frey-action.t	2008/11/17 22:40:22	386
+++ trunk/t/01-frey-action.t	2008/11/24 21:49:38	502
@@ -4,7 +4,7 @@
 
 my $debug = @ARGV ? 1 : 0;
 
-use Test::More tests => 20;
+use Test::More tests => 26;
 use lib 'lib';
 
 use Data::Dump qw/dump/;
@@ -28,6 +28,7 @@
 ok( my $html = $o->params_form, 'params_form' );
 diag $html if $debug;
 like( $html, qr/<form/, 'has form' );
+unlike( $html, qr/HASH/, 'no HASH' );
 
 ok( ! $o->params->{uri}, "don't pollute params" );
 
@@ -47,3 +48,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' );
+
+