#!perl use strict; use warnings; use Test::More tests => 10; use Test::WWW::Mechanize::PSGI; my $hello = Test::WWW::Mechanize::PSGI->new( app => sub { my $env = shift; return [ 200, [ 'Content-Type' => 'text/plain' ], ['Hello World'] ],; }, ); isa_ok( $hello, 'Test::WWW::Mechanize::PSGI' ); $hello->get_ok('/'); is( $hello->ct, 'text/plain', 'Is text/plain' ); $hello->content_contains('Hello World'); my $html = Test::WWW::Mechanize::PSGI->new( app => sub { my $env = shift; return [ 200, [ 'Content-Type' => 'text/html' ], [ 'HiHello World' ] ]; }, ); isa_ok( $html, 'Test::WWW::Mechanize::PSGI' ); $html->get_ok('/'); is( $html->ct, 'text/html', 'Is text/html' ); $html->title_is('Hi'); $html->content_contains('Hello World'); my $die = Test::WWW::Mechanize::PSGI->new( app => sub { my $env = shift; die "Throwing an exception from app handler. Server shouldn't crash."; }, ); isa_ok( $die, 'Test::WWW::Mechanize::PSGI' ); $die->get;