1use strict;
2no warnings 'redefine';
3use Test::More;
4use Plack::Loader;
5
6my $builder = sub {
7    my $app = sub {
8        return [ 200, [], [ "Hi" ] ];
9    };
10};
11
12local *Plack::Loader::guess = sub { 'NonExistent' };
13local $SIG{__WARN__} = sub { like $_[0], qr/Autoloading/ };
14
15my $loader = Plack::Loader->new;
16$loader->preload_app($builder);
17my $server = $loader->auto;
18
19like ref $server, qr/Standalone/;
20
21done_testing;
22
23
24