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
|
#!/usr/bin/env perl
# Copyright (C) 2008-2010, Sebastian Riedel.
use strict;
use warnings;
use Test::More tests => 30;
use FindBin;
use lib "$FindBin::Bin/lib";
use File::Spec;
use File::Temp;
use IO::File;
# Bad bees. Get away from my sugar.
# Ow. OW. Oh, they're defending themselves somehow.
use_ok('Mojo::Loader');
# Exception
my $loader = Mojo::Loader->new;
my $e = $loader->load('LoaderException');
is(ref $e, 'Mojo::Exception', 'right object');
like($e->message, qr/Missing right curly/, 'right message');
is($e->lines_before->[0]->[0], 13, 'right line');
is($e->lines_before->[0]->[1], 'foo {', 'right value');
is($e->lines_before->[1]->[0], 14, 'right line');
is($e->lines_before->[1]->[1], '', 'right value');
is($e->line->[0], 15, 'right line');
is($e->line->[1], "1;", 'right value');
like("$e", qr/Missing right curly/, 'right message');
# Complicated exception
$loader = Mojo::Loader->new;
$e = $loader->load('LoaderException2');
is(ref $e, 'Mojo::Exception', 'right object');
like($e->message, qr/Exception/, 'right message');
is($e->lines_before->[0]->[0], 6, 'right line');
is($e->lines_before->[0]->[1], 'use strict;', 'right value');
is($e->lines_before->[1]->[0], 7, 'right line');
is($e->lines_before->[1]->[1], '', 'right value');
is($e->line->[0], 8, 'right line');
is($e->line->[1], 'LoaderException2_2::throw_error();', 'right value');
is($e->lines_after->[0]->[0], 9, 'right line');
is($e->lines_after->[0]->[1], '', 'right value');
is($e->lines_after->[1]->[0], 10, 'right line');
is($e->lines_after->[1]->[1], '1;', 'right value');
like("$e", qr/Exception/, 'right message');
$loader = Mojo::Loader->new;
my $modules = $loader->search('LoaderTest');
my @modules = sort @$modules;
# Search
is_deeply(
\@modules,
[qw/LoaderTest::A LoaderTest::B LoaderTest::C/],
'found the right modules'
);
# Load
$loader->load($_) for @modules;
ok(LoaderTest::A->can('new'), 'loaded successfully');
ok(LoaderTest::B->can('new'), 'loaded successfully');
ok(LoaderTest::C->can('new'), 'loaded successfully');
# Load unrelated class
ok($loader->load('LoaderTest'), 'loaded successfully');
# Reload
my $file = IO::File->new;
my $dir = File::Temp::tempdir;
my $path = File::Spec->catfile($dir, 'MojoTestReloader.pm');
$file->open("> $path");
$file->syswrite("package MojoTestReloader;\nsub test { 23 }\n1;");
$file->close;
push @INC, $dir;
require MojoTestReloader;
is(MojoTestReloader::test(), 23, 'loaded successfully');
sleep 2;
$file->open("> $path");
$file->syswrite("package MojoTestReloader;\nsub test { 26 }\n1;");
$file->close;
Mojo::Loader->reload;
is(MojoTestReloader::test(), 26, 'reloaded successfully');
|
