Advertisement
Guest User

Untitled

a guest
Feb 8th, 2012
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.27 KB | None | 0 0
  1. #!/usr/bin/env perl
  2.  
  3. # use Test::More tests => 20;
  4. use Test::More;
  5. use Test::Mojo;
  6.  
  7. use     FindBin;
  8. require "$FindBin::Bin/../myapp.pl";
  9.  
  10. # Allow 302 redirect responses
  11.  
  12. my $t = Test::Mojo->new;
  13. $t->ua->max_redirects(1);
  14.  
  15. # Does anything work
  16. $t->get_ok('/');
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement