use Test::More tests => 2; # Include the test hierarchy use CGI::Application::Plus::Util; # Prevent output to STDOUT $ENV{CGI_APP_RETURN_ONLY} = 1; BEGIN { chdir './t' ; require 'test/TestApp7.pm' ; } # Test basic cgiapp_get_query() { my $ta_obj = TestApp7->new(); my $output = $ta_obj->run(); # Did the run-mode work? like($output, qr/^Content\-Type\:\ text\/html/); like($output, qr/Hello\ World\:\ testcgi\_mode\ OK/); } ############### #### EOF #### ###############