use strict; use warnings; use Test::More tests => 3; # last test to print use Storable qw/thaw/; # setup library path use FindBin qw($Bin); use lib "$Bin/lib"; use Catalyst::Test 'TestApp'; # 1 use_ok "Catalyst::Controller::RHTMLO"; # 2 ok( request('/one_form')->is_success, 'can request one form' ); my $one_form = thaw( get( '/one_form' ) ); # 3 isa_ok( $one_form->{form}, 'Rose::HTML::Form', 'form' );