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
|
From a042303a6e1858cf3b09062c4856eb0fff2ea3f9 Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentnl@gentoo.org>
Date: Tue, 8 Sep 2020 20:51:31 +1200
Subject: Patch out generation of author tests
---
inc/Module/Install/StandardTests.pm | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/inc/Module/Install/StandardTests.pm b/inc/Module/Install/StandardTests.pm
index cd693ff..b565990 100644
--- a/inc/Module/Install/StandardTests.pm
+++ b/inc/Module/Install/StandardTests.pm
@@ -14,7 +14,7 @@ our $VERSION = '0.05';
sub use_standard_tests {
my ($self, %specs) = @_;
- my %with = map { $_ => 1 } qw/compile pod pod_coverage perl_critic/;
+ my %with = map { $_ => 1 } qw/compile/;
if (exists $specs{without}) {
$specs{without} = [ $specs{without} ] unless ref $specs{without};
delete $with{$_} for @{ $specs{without} };
@@ -27,9 +27,6 @@ sub use_standard_tests {
$self->build_requires('Test::Compile');
$self->write_standard_test_compile; # no if; this is mandatory
- $self->write_standard_test_pod if $with{pod};
- $self->write_standard_test_pod_coverage if $with{pod_coverage};
- $self->write_standard_test_perl_critic if $with{perl_critic};
}
@@ -65,7 +62,6 @@ TEST
$self->realclean_files($filename);
}
-
sub write_standard_test_compile {
my $self = shift;
$self->write_test_file('000_standard__compile.t', q/
@@ -79,6 +75,7 @@ sub write_standard_test_compile {
/);
}
+=cut
sub write_standard_test_pod {
my $self = shift;
@@ -130,6 +127,7 @@ sub write_standard_test_perl_critic {
/);
}
+=cut
1;
--
2.28.0
|
GitWeb
