1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
use Test::More;
use Plack::Runner;
sub p {
my $r = Plack::Runner->new;
$r->parse_options(@_);
return {@{$r->{options}}};
}
is_deeply p(), { host => undef, port => 5000, listen => [ ':5000' ], socket => undef };
is_deeply p('-l', '/tmp/foo.sock'),
{ host => undef, port => undef, listen => [ '/tmp/foo.sock' ], socket => '/tmp/foo.sock' };
is_deeply p('-o', '0.0.0.0', '--port', 9000),
{ host => '0.0.0.0', port => 9000, listen => [ '0.0.0.0:9000' ], socket => undef };
is_deeply p('-S', 'foo.sock'),
{ host => undef, port => undef, listen => [ 'foo.sock' ], socket => 'foo.sock' };
is_deeply p('-l', ':80'),
{ host => undef, port => 80, listen => [ ':80' ], socket => undef };
is_deeply p('-l', '10.0.0.1:80', '-l', 'unix.sock'),
{ host => '10.0.0.1', port => 80, listen => [ '10.0.0.1:80', 'unix.sock' ], socket => 'unix.sock' };
is_deeply p('-l', ':80', '--disable-foo', '--enable-bar'),
{ host => undef, port => 80, listen => [ ':80' ], socket => undef, foo => '', bar => 1 };
done_testing;
|
