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
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
use Mojo::Base -strict;
BEGIN { $ENV{MOJO_REACTOR} = 'Mojo::Reactor::Poll' }
use Test::More;
use FindBin;
use lib "$FindBin::Bin/lib";
use Mojo::Loader
qw(data_section file_is_binary find_packages find_modules load_class);
package MyLoaderTest::Foo::Bar;
package MyLoaderTest::Foo::Baz;
package main;
# Single character core module
ok !load_class('B'), 'loaded';
ok !!UNIVERSAL::can(B => 'svref_2object'), 'method found';
# Exception
my $e = load_class 'Mojo::LoaderException';
isa_ok $e, 'Mojo::Exception', 'right exception';
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';
# Exception again
$e = load_class 'Mojo::LoaderException';
isa_ok $e, 'Mojo::Exception', 'right exception';
like $e->message, qr/Attempt to reload/, 'right message';
# Complicated exception
$e = load_class 'Mojo::LoaderException2';
isa_ok $e, 'Mojo::Exception', 'right exception';
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 modules
my @modules = find_modules 'Mojo::LoaderTest';
is_deeply \@modules,
[qw(Mojo::LoaderTest::A Mojo::LoaderTest::B Mojo::LoaderTest::C)],
'found the right modules';
is_deeply [find_modules "Mojo'LoaderTest"],
[qw(Mojo'LoaderTest::A Mojo'LoaderTest::B Mojo'LoaderTest::C)],
'found the right modules';
is_deeply [find_modules 'MyLoaderTest::DoesNotExist'], [], 'no modules found';
# Search packages
my @pkgs = find_packages 'MyLoaderTest::Foo';
is_deeply \@pkgs, ['MyLoaderTest::Foo::Bar', 'MyLoaderTest::Foo::Baz'],
'found the right packages';
is_deeply [find_packages 'MyLoaderTest::DoesNotExist'], [], 'no packages found';
# Load
ok !load_class("Mojo'LoaderTest::A"), 'loaded successfully';
ok !!Mojo::LoaderTest::A->can('new'), 'loaded successfully';
load_class $_ for @modules;
ok !!Mojo::LoaderTest::B->can('new'), 'loaded successfully';
ok !!Mojo::LoaderTest::C->can('new'), 'loaded successfully';
# Class does not exist
is load_class('Mojo::LoaderTest'), 1, 'nothing to load';
is load_class('Mojo::LoaderTest'), 1, 'nothing to load';
# Invalid class
is load_class('Mojolicious/Lite'), 1, 'nothing to load';
is load_class('Mojolicious/Lite.pm'), 1, 'nothing to load';
is load_class('Mojolicious\Lite'), 1, 'nothing to load';
is load_class('Mojolicious\Lite.pm'), 1, 'nothing to load';
is load_class('::Mojolicious::Lite'), 1, 'nothing to load';
is load_class('Mojolicious::Lite::'), 1, 'nothing to load';
is load_class('::Mojolicious::Lite::'), 1, 'nothing to load';
is load_class('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 !file_is_binary('Example::Package::UNIX', 'template1'),
'file is not binary';
is data_section('Example::Package::UNIX', 'template1'), "First Template\n",
'right template';
is data_section('Example::Package::UNIX', 'template2'), "Second Template\n",
'right template';
is_deeply [sort keys %{data_section '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 data_section('Example::Package::Windows', 'template3'),
"Third Template\r\n", 'right template';
is data_section('Example::Package::Windows', 'template4'),
"Fourth Template\r\n", 'right template';
is_deeply [sort keys %{data_section '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 data_section('Example::Package::Mixed', 'template5'), "5\n\n",
'right template';
is data_section('Example::Package::Mixed', 'template6'), "6\n",
'right template';
is data_section('Example::Package::Mixed', 'template7'), '7',
'right template';
is_deeply [sort keys %{data_section '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 !file_is_binary('Example::Package::DoesNotExist', 'test.bin'),
'file is not binary';
ok file_is_binary('Example::Package::Base64', 'test.bin'), 'file is binary';
is data_section('Example::Package::Base64', 'test.bin'), "\xe2\x99\xa5",
'right template';
is_deeply [sort keys %{data_section 'Example::Package::Base64'}],
['test.bin'], 'right DATA files';
}
# Hide DATA usage from error messages
eval { die 'whatever' };
unlike $@, qr/DATA/, 'DATA has been hidden';
done_testing();
|
