Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/env perl
- # use Test::More tests => 20;
- use Test::More;
- use Test::Mojo;
- use FindBin;
- require "$FindBin::Bin/../myapp.pl";
- # Allow 302 redirect responses
- my $t = Test::Mojo->new;
- $t->ua->max_redirects(1);
- # Does anything work
- $t->get_ok('/');
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement