named_static.t

#!/usr/bin/env perl

use Test::More tests => 6;
use Test::Mojo;
use Mojolicious::Lite;
use File::Basename;

# Work without 'public' directory
app->static->root(app->home);

# Render source
get '/foo' => sub { shift->render_static(basename $0) };
get '/bar' => sub { shift->render_static(basename $0) } => 'bar';

# Silence
app->log->level('warn');

# Tests
my $t = Test::Mojo->new;

# Source code should be served from both URLs
$t->get_ok('/foo')->status_is(200)->content_like(qr|^#!/usr/bin/env perl|);
$t->get_ok('/bar')->status_is(200)->content_like(qr|^#!/usr/bin/env perl|);

__END__