View | Details | Raw Unified | Return to bug 39304
Collapse All | Expand All

(-)a/t/Makefile.t (-1 / +2 lines)
Lines 16-25 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 1;
19
use Test::More tests => 2;
20
use File::Slurp;
20
use File::Slurp;
21
21
22
my @files = `git ls-tree HEAD|tr -s '\t' ' '|cut -d' ' -f4`;
22
my @files = `git ls-tree HEAD|tr -s '\t' ' '|cut -d' ' -f4`;
23
ok( @files > 0, 'We should test something' );
23
24
24
my $MakeFile = read_file('Makefile.PL');
25
my $MakeFile = read_file('Makefile.PL');
25
my @MakeFile = split "\n", $MakeFile;
26
my @MakeFile = split "\n", $MakeFile;
(-)a/xt/check_makefile.t (-3 / +4 lines)
Lines 19-32 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More;
21
use Test::More;
22
plan tests => 1;
22
plan tests => 2;
23
23
24
use File::Spec;
24
use File::Spec;
25
use File::Slurp qw( read_file );
25
use File::Slurp qw( read_file );
26
use Data::Dumper;
26
use Data::Dumper;
27
27
28
my $curdir   = File::Spec->curdir();
28
my $curdir = File::Spec->curdir();
29
my @dirs     = `git ls-tree -d --name-only HEAD`;
29
my @dirs   = `git ls-tree -d --name-only HEAD`;
30
ok( @dirs > 0, 'We should test something' );
30
my $makefile = read_file("$curdir/Makefile.PL");
31
my $makefile = read_file("$curdir/Makefile.PL");
31
my @missing;
32
my @missing;
32
for my $d ( sort @dirs ) {
33
for my $d ( sort @dirs ) {
(-)a/xt/find-missing-csrf.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 1;
21
use Test::More tests => 2;
22
use File::Slurp;
22
use File::Slurp;
23
use Data::Dumper;
23
use Data::Dumper;
24
24
Lines 31-36 push @files, `git ls-files 'koha-tmpl/opac-tmpl/bootstrap/en/*.inc'`; Link Here
31
# Staff
31
# Staff
32
push @files, `git ls-files 'koha-tmpl/intranet-tmpl/prog/en/*.tt'`;
32
push @files, `git ls-files 'koha-tmpl/intranet-tmpl/prog/en/*.tt'`;
33
push @files, `git ls-files 'koha-tmpl/intranet-tmpl/prog/en/*.inc'`;
33
push @files, `git ls-files 'koha-tmpl/intranet-tmpl/prog/en/*.inc'`;
34
ok( @files > 0, 'We should test something' );
34
35
35
my @errors;
36
my @errors;
36
for my $file (@files) {
37
for my $file (@files) {
(-)a/xt/find-missing-filters.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 1;
19
use Test::More tests => 2;
20
use File::Slurp qw( read_file );
20
use File::Slurp qw( read_file );
21
use Data::Dumper;
21
use Data::Dumper;
22
use t::lib::QA::TemplateFilters;
22
use t::lib::QA::TemplateFilters;
Lines 30-35 push @files, `git ls-files 'koha-tmpl/opac-tmpl/bootstrap/en/*.inc'`; Link Here
30
# Staff
30
# Staff
31
push @files, `git ls-files 'koha-tmpl/intranet-tmpl/prog/en/*.tt'`;
31
push @files, `git ls-files 'koha-tmpl/intranet-tmpl/prog/en/*.tt'`;
32
push @files, `git ls-files 'koha-tmpl/intranet-tmpl/prog/en/*.inc'`;
32
push @files, `git ls-files 'koha-tmpl/intranet-tmpl/prog/en/*.inc'`;
33
ok( @files > 0, 'We should test something' );
33
34
34
my @errors;
35
my @errors;
35
for my $file (@files) {
36
for my $file (@files) {
(-)a/xt/find-missing-op-in-forms.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 1;
21
use Test::More tests => 2;
22
use File::Slurp;
22
use File::Slurp;
23
use Data::Dumper;
23
use Data::Dumper;
24
24
Lines 31-36 push @files, `git ls-files 'koha-tmpl/opac-tmpl/bootstrap/en/*.inc'`; Link Here
31
# Staff
31
# Staff
32
push @files, `git ls-files 'koha-tmpl/intranet-tmpl/prog/en/*.tt'`;
32
push @files, `git ls-files 'koha-tmpl/intranet-tmpl/prog/en/*.tt'`;
33
push @files, `git ls-files 'koha-tmpl/intranet-tmpl/prog/en/*.inc'`;
33
push @files, `git ls-files 'koha-tmpl/intranet-tmpl/prog/en/*.inc'`;
34
ok( @files > 0, 'We should test something' );
34
35
35
my @errors;
36
my @errors;
36
for my $file (@files) {
37
for my $file (@files) {
(-)a/xt/single_quotes.t (-2 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 1;
21
use Test::More tests => 2;
22
use File::Slurp qw( read_file );
22
use File::Slurp qw( read_file );
23
23
24
my @files;
24
my @files;
Lines 30-35 push @files, `git ls-files 'koha-tmpl/opac-tmpl/bootstrap/en/*.inc'`; Link Here
30
# Staff
30
# Staff
31
push @files, `git ls-files 'koha-tmpl/intranet-tmpl/prog/en/*.tt'`;
31
push @files, `git ls-files 'koha-tmpl/intranet-tmpl/prog/en/*.tt'`;
32
push @files, `git ls-files 'koha-tmpl/intranet-tmpl/prog/en/*.inc'`;
32
push @files, `git ls-files 'koha-tmpl/intranet-tmpl/prog/en/*.inc'`;
33
ok( @files > 0, 'We should test something' );
33
34
34
my @errors;
35
my @errors;
35
for my $file (@files) {
36
for my $file (@files) {
36
- 

Return to bug 39304