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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
use Mojo::Base -strict;
BEGIN { $ENV{MOJO_REACTOR} = 'Mojo::Reactor::Poll' }
use Test::More;
use FindBin;
use lib "$FindBin::Bin/lib";
use Mojo::Loader;
# Single character core module
my $loader = Mojo::Loader->new;
ok !$loader->load('B');
ok !!UNIVERSAL::can(B => 'svref_2object');
# Exception
my $e = $loader->load('Mojo::LoaderException');
isa_ok $e, 'Mojo::Exception', 'right object';
like $e->message, qr/Missing right curly/, 'right message';
is $e->lines_before->[0][0], 2, 'right number';
is $e->lines_before->[0][1], '', 'right line';
is $e->lines_before->[1][0], 3, 'right number';
is $e->lines_before->[1][1], 'use Mojo::Base -base;', 'right line';
is $e->lines_before->[2][0], 4, 'right number';
is $e->lines_before->[2][1], '', 'right line';
is $e->lines_before->[3][0], 5, 'right number';
is $e->lines_before->[3][1], 'foo {', 'right line';
is $e->lines_before->[4][0], 6, 'right number';
is $e->lines_before->[4][1], '', 'right line';
is $e->line->[0], 7, 'right number';
is $e->line->[1], "1;", 'right line';
like "$e", qr/Missing right curly/, 'right message';
# Complicated exception
$loader = Mojo::Loader->new;
$e = $loader->load('Mojo::LoaderException2');
isa_ok $e, 'Mojo::Exception', 'right object';
like $e->message, qr/Exception/, 'right message';
is $e->lines_before->[0][0], 1, 'right number';
is $e->lines_before->[0][1], 'package Mojo::LoaderException2;', 'right line';
is $e->lines_before->[1][0], 2, 'right number';
is $e->lines_before->[1][1], 'use Mojo::Base -strict;', 'right line';
is $e->lines_before->[2][0], 3, 'right number';
is $e->lines_before->[2][1], '', 'right line';
is $e->line->[0], 4, 'right number';
is $e->line->[1], 'Mojo::LoaderException2_2::throw_error();', 'right line';
is $e->lines_after->[0][0], 5, 'right number';
is $e->lines_after->[0][1], '', 'right line';
is $e->lines_after->[1][0], 6, 'right number';
is $e->lines_after->[1][1], '1;', 'right line';
like "$e", qr/Exception/, 'right message';
# Search
$loader = Mojo::Loader->new;
my @modules = sort @{$loader->search('Mojo::LoaderTest')};
is_deeply \@modules,
[qw(Mojo::LoaderTest::A Mojo::LoaderTest::B Mojo::LoaderTest::C)],
'found the right modules';
is_deeply [sort @{$loader->search("Mojo'LoaderTest")}],
[qw(Mojo'LoaderTest::A Mojo'LoaderTest::B Mojo'LoaderTest::C)],
'found the right modules';
# Load
ok !$loader->load("Mojo'LoaderTest::A"), 'loaded successfully';
ok !!Mojo::LoaderTest::A->can('new'), 'loaded successfully';
$loader->load($_) for @modules;
ok !!Mojo::LoaderTest::B->can('new'), 'loaded successfully';
ok !!Mojo::LoaderTest::C->can('new'), 'loaded successfully';
# Class does not exist
is $loader->load('Mojo::LoaderTest'), 1, 'nothing to load';
# Invalid class
is $loader->load('Mojolicious/Lite'), 1, 'nothing to load';
is $loader->load('Mojolicious/Lite.pm'), 1, 'nothing to load';
is $loader->load('Mojolicious\Lite'), 1, 'nothing to load';
is $loader->load('Mojolicious\Lite.pm'), 1, 'nothing to load';
is $loader->load('::Mojolicious::Lite'), 1, 'nothing to load';
is $loader->load('Mojolicious::Lite::'), 1, 'nothing to load';
is $loader->load('::Mojolicious::Lite::'), 1, 'nothing to load';
is $loader->load('Mojolicious::Lite'), undef, 'loaded successfully';
# UNIX DATA templates
{
my $unix = "@@ template1\nFirst Template\n@@ template2\r\nSecond Template\n";
open my $data, '<', \$unix;
no strict 'refs';
*{"Example::Package::UNIX::DATA"} = $data;
ok !$loader->is_binary('Example::Package::UNIX', 'template1'),
'file is not binary';
is $loader->data('Example::Package::UNIX', 'template1'), "First Template\n",
'right template';
is $loader->data('Example::Package::UNIX', 'template2'),
"Second Template\n", 'right template';
is_deeply [sort keys %{$loader->data('Example::Package::UNIX')}],
[qw(template1 template2)], 'right DATA files';
}
# Windows DATA templates
{
my $windows
= "@@ template3\r\nThird Template\r\n@@ template4\r\nFourth Template\r\n";
open my $data, '<', \$windows;
no strict 'refs';
*{"Example::Package::Windows::DATA"} = $data;
is $loader->data('Example::Package::Windows', 'template3'),
"Third Template\r\n", 'right template';
is $loader->data('Example::Package::Windows', 'template4'),
"Fourth Template\r\n", 'right template';
is_deeply [sort keys %{$loader->data('Example::Package::Windows')}],
[qw(template3 template4)], 'right DATA files';
}
# Mixed whitespace
{
my $mixed = "@\@template5\n5\n\n@@ template6\n6\n@@ template7\n7";
open my $data, '<', \$mixed;
no strict 'refs';
*{"Example::Package::Mixed::DATA"} = $data;
is $loader->data('Example::Package::Mixed', 'template5'), "5\n\n",
'right template';
is $loader->data('Example::Package::Mixed', 'template6'), "6\n",
'right template';
is $loader->data('Example::Package::Mixed', 'template7'), '7',
'right template';
is_deeply [sort keys %{$loader->data('Example::Package::Mixed')}],
[qw(template5 template6 template7)], 'right DATA files';
}
# Base64
{
my $b64 = "@\@test.bin (base64)\n4pml";
open my $data, '<', \$b64;
no strict 'refs';
*{"Example::Package::Base64::DATA"} = $data;
ok !$loader->is_binary('Example::Package::DoesNotExist', 'test.bin'),
'file is not binary';
ok $loader->is_binary('Example::Package::Base64', 'test.bin'),
'file is binary';
is $loader->data('Example::Package::Base64', 'test.bin'), "\xe2\x99\xa5",
'right template';
is_deeply [sort keys %{$loader->data('Example::Package::Base64')}],
['test.bin'], 'right DATA files';
}
done_testing();
|
