Commit | Line | Data |
e226a3e6 |
1 | #!/usr/bin/env perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use Test::More; |
6 | |
7 | # setup library path |
8 | use FindBin qw($Bin); |
9 | use lib "$Bin/lib"; |
10 | |
11 | # make sure testapp works |
177f25a0 |
12 | use_ok 'TestApp'; |
e226a3e6 |
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'); |
69ca94ae |
18 | $mech->content_like(qr/fnar<span class="help_text">blargh<\/span>fnee/i, 'see if it has our text'); |
e226a3e6 |
19 | |
20 | done_testing; |