Skip to content

Instantly share code, notes, and snippets.

@bduggan

bduggan/base.t

Created January 4, 2013 17:19
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save bduggan/4454313 to your computer and use it in GitHub Desktop.
Save bduggan/4454313 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
base.t
#!/usr/bin/env perl
use Test::More qw/no_plan/;
use Test::Mojo;
use Mojolicious::Lite;
get '/u' => 'index';
my $t = Test::Mojo->new();
$t->get_ok( $t->ua->app_url->userinfo('secret:pass')->path('/u')
)->status_is(200)->content_unlike(qr/secret/);
__DATA__
@@ index.html.ep
base tag : <%= base_tag %>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment