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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Test::DZil;
use Test::Version qw( version_ok );
use Path::Tiny qw( path );
$ENV{TRIAL} = 1;
my $tzil = Builder->from_config({ dist_root => 'corpus/DZT' });
$tzil->build;
version_ok( path($tzil->tempdir)->child('build/lib/DZT0.pm'));
version_ok( path($tzil->tempdir)->child('build/lib/DZT1.pm'));
my $lib_0 = $tzil->slurp_file('build/lib/DZT0.pm');
my $lib_1 = $tzil->slurp_file('build/lib/DZT1.pm');
my $lib_2 = $tzil->slurp_file('build/lib/DZT2.pm');
my $lib_3 = $tzil->slurp_file('build/lib/DZT3.pm');
my $lib_4 = $tzil->slurp_file('build/lib/DZT4.pm');
my $lib_5 = $tzil->slurp_file('build/lib/DZT5.pm');
my $lib_7 = $tzil->slurp_file('build/lib/DZT7.pm');
my $tst_0 = $tzil->slurp_file('build/t/basic.t' );
# e short for expected files
# -------------------------------------------------------------------
my $elib_0 = <<'END LIB0';
use strict;
use warnings;
package DZT0;
our $VERSION = '0.1.0'; # TRIAL VERSION
# ABSTRACT: my abstract
1;
END LIB0
my $elib_1 = <<'END LIB1';
use strict;
use warnings;
package DZT1;
BEGIN {
our $VERSION = '0.1.0'; # TRIAL VERSION
}
# ABSTRACT: my abstract
1;
END LIB1
my $elib_2 = <<'END LIB2';
use strict;
use warnings;
package DZT2;
1;
END LIB2
my $elib_3 = <<'END LIB3';
use strict;
use warnings;
package DZT3;
# This is a comment
1;
END LIB3
my $elib_4 = <<'END LIB4';
use strict;
use warnings;
package DZT4;
our $VERSION = '0.1.0'; # TRIAL VERSION
package DZT4::Inner;
our $VERSION = '0.1.0'; # TRIAL VERSION
1;
END LIB4
my $elib_5 = <<'END LIB5';
package DZT5;
use strict;
use warnings;
our $VERSION = '0.1.0'; # TRIAL VERSION: foo
1;
END LIB5
my $elib_7 = <<'END LIB7';
use strict;
use warnings;
package DZT7;
our $VERSION = '0.1.0'; ## TRIAL VERSION
# ABSTRACT: my abstract
1;
END LIB7
my $etst_0 = <<'END TST0';
#!/usr/bin/perl
# VERSION
END TST0
# -------------------------------------------------------------------
is ( $lib_0, $elib_0, 'check DZT0.pm' );
is ( $lib_1, $elib_1, 'check DZT1.pm' );
is ( $lib_2, $elib_2, 'check DZT2.pm' );
is ( $lib_3, $elib_3, 'check DZT3.pm' );
is ( $lib_4, $elib_4, 'check DZT4.pm' );
is ( $lib_5, $elib_5, 'check DZT5.pm' );
is ( $lib_7, $elib_7, 'check DZT7.pm' );
is ( $tst_0, $etst_0, 'check basic.t' );
for my $file ( qw/DZT2 DZT3/ ) {
like (
join( "\n", map { $_->{message} } @{ $tzil->chrome->logger->events } ),
qr{Skipping: "lib/$file\.pm" has no "# VERSION" comment},
"warn no #VERSION in $file.pm"
);
}
done_testing;
|
