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
|
#!/usr/bin/perl
use strict;
use warnings;
use lib 't/lib', 'lib';
use Test::More;
use Test::Exception;
use File::Spec;
use File::Temp 'tempdir';
BEGIN {
eval "use Module::Refresh;";
plan skip_all => "Module::Refresh is required for this test" if $@;
}
=pod
First lets test some of our simple example modules ...
=cut
my @modules = qw[Foo Bar MyMooseA MyMooseB MyMooseObject];
do {
use_ok($_);
is($_->meta->name, $_, '... initialized the meta correctly');
lives_ok {
Module::Refresh->new->refresh_module($_ . '.pm')
} '... successfully refreshed ' . $_;
} foreach @modules;
=pod
Now, lets try something a little trickier
and actually change the module itself.
=cut
my $dir = tempdir( "MooseTest-XXXXX", CLEANUP => 1, TMPDIR => 1 );
push @INC, $dir;
my $test_module_file = File::Spec->catdir($dir, 'TestBaz.pm');
my $test_module_source_1 = q|
package TestBaz;
use Moose;
has 'foo' => (is => 'ro', isa => 'Int');
1;
|;
my $test_module_source_2 = q|
package TestBaz;
use Moose;
extends 'Foo';
has 'foo' => (is => 'rw', isa => 'Int');
1;
|;
{
open FILE, ">", $test_module_file
|| die "Could not open $test_module_file because $!";
print FILE $test_module_source_1;
close FILE;
}
use_ok('TestBaz');
is(TestBaz->meta->name, 'TestBaz', '... initialized the meta correctly');
ok(TestBaz->meta->has_attribute('foo'), '... it has the foo attribute as well');
ok(!TestBaz->isa('Foo'), '... TestBaz is not a Foo');
{
open FILE, ">", $test_module_file
|| die "Could not open $test_module_file because $!";
print FILE $test_module_source_2;
close FILE;
}
lives_ok {
Module::Refresh->new->refresh_module('TestBaz.pm')
} '... successfully refreshed ' . $test_module_file;
is(TestBaz->meta->name, 'TestBaz', '... initialized the meta correctly');
ok(TestBaz->meta->has_attribute('foo'), '... it has the foo attribute as well');
ok(TestBaz->isa('Foo'), '... TestBaz is a Foo');
unlink $test_module_file;
done_testing;
|
