Guest User

Untitled

a guest
Jun 21st, 2018
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.54 KB | None | 0 0
  1. #!/usr/bin/env perl
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. use Test::More qw/no_plan/;
  7. use Test::Mojo;
  8.  
  9. use FindBin;
  10. use lib "$FindBin::Bin/../lib";
  11.  
  12. use_ok('MyMojoliciousApp');
  13.  
  14. # Test
  15.  
  16. my $t = Test::Mojo->new(app => 'MyMojoliciousApp');
  17. $t->get_ok('/answer')->status_is(200)->content_type_is('text/html')
  18. ->content_like(qr/take over the world!/i, 'got responce');
  19.  
  20. my $t = Test::Mojo->new(app => 'MyMojoliciousApp');
  21. $t->get_ok('/question')->status_is(200)->content_type_is('text/html')
  22. ->content_like(qr/take over the world!/i, 'got async responce');
Add Comment
Please, Sign In to add comment