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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
use Mojo::Base -strict;
BEGIN {
$ENV{MOJO_MODE} = 'development';
$ENV{MOJO_PROXY} = 0;
$ENV{MOJO_REACTOR} = 'Mojo::Reactor::Poll';
}
use Test::More;
use ojo;
use File::Basename qw(basename);
subtest 'Application' => sub {
a('/' => sub { $_->render(data => $_->req->method . $_->req->body) })->secrets(['foobarbaz']);
is a->secrets->[0], 'foobarbaz', 'right secret';
};
subtest 'Requests' => sub {
is g('/')->body, 'GET', 'right content';
is h('/')->body, '', 'no content';
is o('/')->body, 'OPTIONS', 'right content';
is t('/')->body, 'PATCH', 'right content';
is p('/')->body, 'POST', 'right content';
is u('/')->body, 'PUT', 'right content';
is d('/')->body, 'DELETE', 'right content';
is p('/' => form => {foo => 'bar'})->body, 'POSTfoo=bar', 'right content';
is p('/' => json => {foo => 'bar'})->body, 'POST{"foo":"bar"}', 'right content';
};
subtest 'Mojolicious::Lite' => sub {
get '/test' => {text => 'pass'};
is app->ua->get('/test')->res->body, 'pass', 'right content';
};
subtest 'Parse XML' => sub {
is x ('<title>works</title>')->at('title')->text, 'works', 'right text';
};
subtest 'JSON' => sub {
is j([1, 2]), '[1,2]', 'right result';
is_deeply j('[1,2]'), [1, 2], 'right structure';
is j({foo => 'bar'}), '{"foo":"bar"}', 'right result';
is_deeply j('{"foo":"bar"}'), {foo => 'bar'}, 'right structure';
};
subtest 'ByteStream' => sub {
is b('<foo>')->url_escape, '%3Cfoo%3E', 'right result';
};
subtest 'Collection' => sub {
is c(1, 2, 3)->join('-'), '1-2-3', 'right result';
};
subtest 'File' => sub {
is f(__FILE__)->basename, basename(__FILE__), 'right result';
};
subtest 'Dumper' => sub {
is r([1, 2]), "[\n 1,\n 2\n]\n", 'right result';
};
subtest 'Benchmark' => sub {
my $buffer = '';
open my $handle, '>', \$buffer;
local *STDERR = $handle;
my $i = 0;
n { ++$i };
is $i, 1, 'block has been executed once';
like $buffer, qr/wallclock/, 'right output';
n { $i++ } 10;
is $i, 11, 'block has been executed ten times';
like $buffer, qr/wallclock.*wallclock/s, 'right output';
};
subtest 'Link' => sub {
is l("http://mojolicious.org/")->path, '/', 'right result';
};
done_testing();
|
