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

(-)a/xt/yaml_valid.pl (+68 lines)
Line 0 Link Here
1
#!/usr/bin/perl
2
3
# Copyright (C) 2012 BibLibre
4
#
5
# This file is part of Koha.
6
#
7
# Koha is free software; you can redistribute it and/or modify it under the
8
# terms of the GNU General Public License as published by the Free Software
9
# Foundation; either version 2 of the License, or (at your option) any later
10
# version.
11
#
12
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15
#
16
# You should have received a copy of the GNU General Public License along
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20
use Modern::Perl;
21
use Getopt::Long;
22
use YAML;
23
24
my $usage = <<EOF;
25
yaml_valid.t - give it a filename and it will told you if it is an exact yaml file.
26
    -h|--help           Print this help and exit;
27
    -f|--file           File to check
28
29
  Tests yaml config files
30
  It does not tell if the params are correct, only if the file is well-formed (ie: readable by yaml)
31
EOF
32
33
my $help = 0;
34
my $file = 0;
35
GetOptions(
36
    "help"   => \$help,
37
    "file=s" => \$file,
38
) or die $usage;
39
die $usage if $help;
40
41
say "Testing file: $file";
42
eval { YAML::LoadFile($file); };
43
if ($@) {
44
    print "KO!\n$@\n";
45
}
46
else {
47
    print "Loading and Syntax OK\n";
48
}
49
50
#yaml_file_ok("$file", "$file is YAML");
51
52
=head1 NAME
53
54
yaml_valid.pl
55
56
=head1 DESCRIPTION
57
58
  Tests yaml config files
59
  It does not tell if the params are correct, only if the file is well-formed (ie: readable by yaml)
60
61
=head1 USAGE
62
63
From Koha root directory:
64
65
perl xt/yaml_valid.pl -f filename.yaml
66
67
=cut
68
(-)a/xt/yaml_valid.t (-1 / +68 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
# Copyright (C) 2012 BibLibre
4
#
5
# This file is part of Koha.
6
#
7
# Koha is free software; you can redistribute it and/or modify it under the
8
# terms of the GNU General Public License as published by the Free Software
9
# Foundation; either version 2 of the License, or (at your option) any later
10
# version.
11
#
12
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15
#
16
# You should have received a copy of the GNU General Public License along
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20
use Modern::Perl;
21
use Test::YAML::Valid;
22
23
use Test::More;
24
25
my @files = (
26
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/opac.pref',
27
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/acquisitions.pref',
28
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/admin.pref',
29
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/authorities.pref',
30
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/cataloguing.pref',
31
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref',
32
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/',
33
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/',
34
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/creators.pref',
35
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/enhanced_content.pref',
36
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/i18n_l10n.pref',
37
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/local_use.pref',
38
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/logs.pref',
39
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/opac.pref',
40
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/patrons.pref',
41
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/searching.pref',
42
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/serials.pref',
43
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/staff_client.pref',
44
    '../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/web_services.pref',
45
);
46
47
plan tests => scalar @files;
48
49
foreach my $f (@files) {
50
    yaml_file_ok( "$f", "$f is YAML" );
51
}
52
53
54
=head1 NAME
55
56
yaml_valid.t
57
58
=head1 DESCRIPTION
59
60
61
=head1 USAGE
62
63
From Koha root directory:
64
65
prove -v xt/tt_valid.t
66
67
=cut
68

Return to bug 7994