use MyFoo; use Test::More tests => 1; my $app = MyFoo->new(); ... $app->query( foo => 2); $app->query( op => 'jump'); ok( $app->run() =~ /you need to add bar/, 'missing bar' ); ...