File tree Expand file tree Collapse file tree 10 files changed +45
-18
lines changed Expand file tree Collapse file tree 10 files changed +45
-18
lines changed Original file line number Diff line number Diff line change @@ -17,6 +17,13 @@ my $builder = Module::Build->new(
17
17
build_requires => {
18
18
' Test::Exception' => 0,
19
19
},
20
+ build_recommends => {
21
+ ' Test::Perl::Critic' => 1,
22
+ ' Perl::Critic' => 0.18,
23
+ ' Test::Pod' => 1.14,
24
+ ' Test::Pod::Coverage' => 1.04,
25
+ ' Test::Kwalitee' => 0,
26
+ },
20
27
requires => {
21
28
' perl' => ' 5.5.63' , # First version with our()
22
29
' Test::More' => 0,
Original file line number Diff line number Diff line change @@ -3,3 +3,6 @@ Revision history for Acme-Godot
3
3
0.1.0
4
4
Initial release.
5
5
6
+ 0.1.1
7
+ Update module dependency recommendations, add a test
8
+
Original file line number Diff line number Diff line change 1
1
---
2
2
name : Acme-Godot
3
- version : 0.001000
3
+ version : 0.001001
4
4
author :
5
5
-
' Salve J. Nilsen <[email protected] >'
6
6
abstract : Nothing to be done
@@ -16,8 +16,8 @@ build_requires:
16
16
provides :
17
17
Acme::Godot :
18
18
file : lib/Acme/Godot.pm
19
- version : 0.001000
20
- generated_by : Module::Build version 0.2805
19
+ version : 0.001001
20
+ generated_by : Module::Build version 0.2807
21
21
meta-spec :
22
22
url : http://module-build.sourceforge.net/META-spec-v1.2.html
23
23
version : 1.2
Original file line number Diff line number Diff line change 1
- Acme-Godot version 0.1.0
1
+ Acme-Godot version 0.1.1
2
2
3
3
This module will make your program wait for Godot. Please consult
4
4
the module documentation for further insights.
Original file line number Diff line number Diff line change 6
6
use strict;
7
7
package Acme::Godot ;
8
8
9
- use version; our $VERSION = qv(0.1.0 )-> numify;
9
+ use version; our $VERSION = qv(0.1.1 )-> numify;
10
10
11
11
# Module implementation here
12
12
@@ -43,7 +43,7 @@ Acme::Godot - Nothing to be done
43
43
44
44
=head1 VERSION
45
45
46
- This document describes Acme::Godot version 0.1.0
46
+ This document describes Acme::Godot version 0.1.1
47
47
48
48
49
49
=head1 SYNOPSIS
@@ -103,6 +103,11 @@ None reported. We're still waiting for Godot to bring the test reports.
103
103
No bugs have been reported. Where's Godot with the bug reports?
104
104
105
105
106
+ =head1 ACKNOWLEDGEMENTS
107
+
108
+ Thanks to mr. Rune Sandnes for the inspiration.
109
+
110
+
106
111
=head1 AUTHOR
107
112
108
113
Salve J. Nilsen C<< <[email protected] > >>
Original file line number Diff line number Diff line change 3
3
4
4
use strict;
5
5
use warnings;
6
- use Test::More tests => 1 ;
6
+ use Test::More tests => 2 ;
7
7
use Test::Exception;
8
8
9
- throws_ok {
9
+ local $SIG {INT } = local $SIG {HUP } = sub { die " User got bored\n " };
10
+ throws_ok( sub {
10
11
local $SIG {ALRM } = sub { die " Waiting no more\n " };
11
12
alarm 5;
12
13
require Acme::Godot;
13
14
alarm 0;
14
- } qr / Waiting no more/ , " Godot didn't arrive" ;
15
+ $SIG {ALRM } = " default" ;
16
+ }, qr / Waiting no more/ , " Godot didn't arrive during the first 5 seconds" );
17
+
18
+ TODO: {
19
+ todo_skip " Need test that successfully waits for Godot to arrive" , 1;
20
+
21
+ local $SIG {INT } = local $SIG {HUP } = sub { die " not ok\n " };
22
+ require_ok( " Acme::Godot" );
23
+ }
24
+
Original file line number Diff line number Diff line change @@ -9,8 +9,8 @@ use strict;
9
9
use warnings;
10
10
use Test::More;
11
11
12
- plan skip_all => ' For authors only (set PERL_AUTHOR_TEST to run.)'
13
- unless $ENV {PERL_AUTHOR_TEST };
12
+ plan skip_all => ' For authors only (set PERL5_AUTHOR_TEST to run.)'
13
+ unless $ENV {PERL5_AUTHOR_TEST };
14
14
15
15
plan tests => 3;
16
16
Original file line number Diff line number Diff line change @@ -5,8 +5,8 @@ use strict;
5
5
use warnings;
6
6
use Test::More;
7
7
8
- plan skip_all => ' For authors only (set PERL_AUTHOR_TEST to run.)'
9
- unless $ENV {PERL_AUTHOR_TEST };
8
+ plan skip_all => ' For authors only (set PERL5_AUTHOR_TEST to run.)'
9
+ unless $ENV {PERL5_AUTHOR_TEST };
10
10
11
11
eval ' use Test::Kwalitee;' ; # # no critic
12
12
plan skip_all => ' Test::Kwalitee not installed; skipping'
Original file line number Diff line number Diff line change @@ -7,14 +7,16 @@ use strict;
7
7
use warnings;
8
8
use Test::More;
9
9
10
- plan skip_all => ' For authors only (set PERL_AUTHOR_TEST to run.)'
11
- unless $ENV {PERL_AUTHOR_TEST };
10
+ plan skip_all => ' For authors only (set PERL5_AUTHOR_TEST to run.)'
11
+ unless $ENV {PERL5_AUTHOR_TEST };
12
12
13
13
eval ' use Test::Perl::Critic;' ; # # no critic
14
14
plan skip_all => " Test::Perl::Critic required for testing PBP compliance"
15
15
if $@ ;
16
16
17
- use Perl::Critic::Utils qw( all_perl_files) ;
17
+ eval ' use Perl::Critic::Utils qw(all_perl_files);' ; # # no critic
18
+ plan skip_all => " Perl::Critic::Utils required for testing PBP compliance"
19
+ if $@ ;
18
20
19
21
my @files = ( all_perl_files(' blib' ), grep {m /\.t\z/} all_perl_files(' t' ) );
20
22
plan tests => scalar @files ;
Original file line number Diff line number Diff line change @@ -8,8 +8,8 @@ use version;
8
8
use Test::More;
9
9
use Module::Build;
10
10
11
- plan skip_all => ' For authors only (set PERL_AUTHOR_TEST to run.)'
12
- unless $ENV {PERL_AUTHOR_TEST };
11
+ plan skip_all => ' For authors only (set PERL5_AUTHOR_TEST to run.)'
12
+ unless $ENV {PERL5_AUTHOR_TEST };
13
13
14
14
plan tests => 3;
15
15
You can’t perform that action at this time.
0 commit comments