Commit | Line | Data |
---|---|---|
6166f03d | 1 | #!/usr/bin/env perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | use Test::More tests => 3; | |
6 | ||
7 | # setup library path | |
8 | use FindBin qw($Bin); | |
9 | use lib "$Bin/lib"; | |
10 | ||
11 | # make sure testapp works | |
12 | use ok 'TestApp'; | |
13 | ||
14 | # a live test against TestApp, the test application | |
15 | use Test::WWW::Mechanize::Catalyst 'TestApp'; | |
16 | my $mech = Test::WWW::Mechanize::Catalyst->new; | |
17 | $mech->get_ok('http://localhost/', 'get main page'); | |
18 | $mech->content_like(qr/it works/i, 'see if it has our text'); | |
19 |