1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#!perl
use strict;
use warnings;
use Test::More;
use lib 'lib';
use lib 't/lib';
eval "use CGI::Application::Plugin::AutoRunmode";
plan skip_all => "Won't test autorunmode_hack if CGI::Application::Plugin::AutoRunmode isn't installed." if $@;
plan tests => 13;
use Test::WWW::Mechanize::CGIApp;
my $mech = Test::WWW::Mechanize::CGIApp->new();
$mech->app('TestApp_autorunmode');
$mech->get_ok('/');
is($mech->ct, "text/html");
$mech->title_is("Welcome");
$mech->content_contains("Home is where");
$mech->get_ok('/?rm=hello');
is($mech->ct, "text/html");
$mech->title_is("Hello");
$mech->content_contains("Hello world");
$mech->follow_link_ok({ text => 'Whoopee'});
is($mech->ct, "text/html");
$mech->title_is("Whoopee");
$mech->content_contains("Whoopee");
$mech = Test::WWW::Mechanize::CGIApp->new(app => 'TestApp');
$mech->get_ok('/TestApp');
|
