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

(-)a/t/00-check-atomic-updates.t (-7 / +5 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::NoWarnings;
19
use Test::NoWarnings;
20
use Test::More;
20
use Test::More tests => 2;
21
use File::Find;
21
use File::Find;
22
22
23
SKIP: {
23
SKIP: {
Lines 29-42 SKIP: { Link Here
29
    find( \&wanted, $dir );
29
    find( \&wanted, $dir );
30
30
31
    sub wanted {
31
    sub wanted {
32
        return if $_ eq 'skeleton.pl';
33
        return if $_ eq 'README';
34
        return if $_ eq '.';
32
        push @files, $_;
35
        push @files, $_;
33
        return;
36
        return;
34
    }
37
    }
35
38
36
    foreach my $f (@files) {
39
    is(scalar(@files), 0, "No atomic updates") or diag join "\n", @files;
37
        next if $f eq 'skeleton.pl';
38
        unlike( $f, qr/.*pl$/, "check for unhandled atomic updates: $f" );
39
    }
40
};
40
};
41
42
done_testing();
(-)a/t/00-load.t (-2 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::NoWarnings;
22
use Test::NoWarnings qw( had_no_warnings );
23
use Test::More;
23
use Test::More;
24
use File::Spec;
24
use File::Spec;
25
use File::Find;
25
use File::Find;
Lines 103-107 sub is_testable { Link Here
103
    return $return_value;
103
    return $return_value;
104
}
104
}
105
105
106
had_no_warnings;
106
done_testing();
107
done_testing();
107
(-)a/t/00-testcritic.t (-1 / +3 lines)
Lines 3-9 Link Here
3
# This script can be used to run perlcritic on perl files in koha
3
# This script can be used to run perlcritic on perl files in koha
4
4
5
use Modern::Perl;
5
use Modern::Perl;
6
use Test::NoWarnings;
6
use Test::NoWarnings qw( had_no_warnings );
7
use Test::More;
7
use Test::More;
8
use English qw(-no_match_vars);
8
use English qw(-no_match_vars);
9
9
Lines 17-19 if ( $EVAL_ERROR ) { Link Here
17
Test::Perl::Critic->import( -profile => '.perlcriticrc' );
17
Test::Perl::Critic->import( -profile => '.perlcriticrc' );
18
my @files = map { chomp; $_ } `git ls-tree -r HEAD --name-only`;    # only files part of git
18
my @files = map { chomp; $_ } `git ls-tree -r HEAD --name-only`;    # only files part of git
19
all_critic_ok(@files);
19
all_critic_ok(@files);
20
21
had_no_warnings;
(-)a/t/00-valid-xml.t (-3 / +4 lines)
Lines 15-24 Link Here
15
# You should have received a copy of the GNU General Public License
15
# You should have received a copy of the GNU General Public License
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 strict;
18
use Modern::Perl;
19
use warnings;
20
19
21
use Test::NoWarnings;
20
use Test::NoWarnings qw( had_no_warnings );
22
use Test::More;
21
use Test::More;
23
use File::Spec;
22
use File::Spec;
24
use File::Find;
23
use File::Find;
Lines 43-46 find({ Link Here
43
        }
42
        }
44
    },
43
    },
45
}, File::Spec->curdir());
44
}, File::Spec->curdir());
45
46
had_no_warnings;
46
done_testing();
47
done_testing();
(-)a/t/Biblio.t (-3 / +1 lines)
Lines 18-29 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::NoWarnings;
20
use Test::NoWarnings;
21
use Test::More;
21
use Test::More tests => 33;
22
use Test::MockModule;
22
use Test::MockModule;
23
use Test::Warn;
23
use Test::Warn;
24
24
25
plan tests => 32;
26
27
25
28
use_ok('C4::Biblio', qw( AddBiblio ModBiblio BiblioAutoLink LinkBibHeadingsToAuthorities GetMarcPrice GetMarcQuantity GetMarcISBN GetMarcISSN GetMarcSubjects GetMarcUrls GetMarcSeries TransformMarcToKoha ModBiblioMarc RemoveAllNsb UpdateTotalIssues ));
26
use_ok('C4::Biblio', qw( AddBiblio ModBiblio BiblioAutoLink LinkBibHeadingsToAuthorities GetMarcPrice GetMarcQuantity GetMarcISBN GetMarcISSN GetMarcSubjects GetMarcUrls GetMarcSeries TransformMarcToKoha ModBiblioMarc RemoveAllNsb UpdateTotalIssues ));
29
27
(-)a/t/Biblio2.t (-3 / +1 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::NoWarnings;
4
use Test::NoWarnings;
5
use Test::More;
5
use Test::More tests => 3;
6
use Test::MockModule;
6
use Test::MockModule;
7
7
8
use MARC::Record;
8
use MARC::Record;
Lines 52-56 sub _koha_marc_update_bib_ids_control { Link Here
52
    is($r->field('001')->data(), 10, 'Biblionumber to control field');
52
    is($r->field('001')->data(), 10, 'Biblionumber to control field');
53
    is($r->field('004')->data(), 20, 'Biblioitemnumber to control field');
53
    is($r->field('004')->data(), 20, 'Biblioitemnumber to control field');
54
}
54
}
55
56
done_testing();
(-)a/t/Koha/DateTime/Format/RFC3339.t (-3 / +1 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::NoWarnings;
4
use Test::NoWarnings;
5
use Test::More;
5
use Test::More tests => 6;
6
use Test::Exception;
6
use Test::Exception;
7
7
8
BEGIN { use_ok('Koha::DateTime::Format::RFC3339'); }
8
BEGIN { use_ok('Koha::DateTime::Format::RFC3339'); }
Lines 58-62 subtest 'invalid date throws an exception' => sub { Link Here
58
    }
58
    }
59
    qr/Invalid date format/;
59
    qr/Invalid date format/;
60
};
60
};
61
62
done_testing;
(-)a/t/Koha/DateTime/Format/SQL.t (-3 / +1 lines)
Lines 5-11 use DateTime::TimeZone; Link Here
5
use Test::Exception;
5
use Test::Exception;
6
use Test::MockModule;
6
use Test::MockModule;
7
use Test::NoWarnings;
7
use Test::NoWarnings;
8
use Test::More;
8
use Test::More tests => 6;
9
9
10
BEGIN { use_ok('Koha::DateTime::Format::SQL'); }
10
BEGIN { use_ok('Koha::DateTime::Format::SQL'); }
11
11
Lines 81-85 subtest 'normal datetime, with timezone configured' => sub { Link Here
81
    is( $dt->second,          12 );
81
    is( $dt->second,          12 );
82
    is( $dt->time_zone->name, 'floating' );
82
    is( $dt->time_zone->name, 'floating' );
83
};
83
};
84
85
done_testing;
(-)a/t/Koha_SearchEngine_Elasticsearch_Browse.t (-3 / +1 lines)
Lines 20-26 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::NoWarnings;
22
use Test::NoWarnings;
23
use Test::More;
23
use Test::More tests => 4;
24
24
25
use_ok('Koha::SearchEngine::Elasticsearch::Browse');
25
use_ok('Koha::SearchEngine::Elasticsearch::Browse');
26
26
Lines 65-69 subtest "_build_query tests" => sub { Link Here
65
        }
65
        }
66
    }, 'Fuzziness and size specified');
66
    }, 'Fuzziness and size specified');
67
};
67
};
68
69
done_testing();
(-)a/t/Labels_split_ccn.t (-3 / +2 lines)
Lines 17-24 Link Here
17
#
17
#
18
# for context, see http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=2691
18
# for context, see http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=2691
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use Test::NoWarnings;
22
use Test::NoWarnings;
24
use Test::More;
23
use Test::More;
Lines 43-49 BEGIN { Link Here
43
        $test_num += 2 * $split_num;
42
        $test_num += 2 * $split_num;
44
        $test_num += 4;
43
        $test_num += 4;
45
    }
44
    }
46
    plan tests => $test_num;
45
    plan tests => $test_num + 1;
47
    use_ok('C4::Labels::Label');
46
    use_ok('C4::Labels::Label');
48
    use vars qw($ccns);
47
    use vars qw($ccns);
49
}
48
}
(-)a/t/Labels_split_ddcn.t (-3 / +2 lines)
Lines 17-24 Link Here
17
#
17
#
18
# for context, see http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=2691
18
# for context, see http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=2691
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use Test::NoWarnings;
22
use Test::NoWarnings;
24
use Test::More;
23
use Test::More;
Lines 42-48 BEGIN { Link Here
42
        $test_num += 2 * $split_num;
41
        $test_num += 2 * $split_num;
43
        $test_num += 4;
42
        $test_num += 4;
44
    }
43
    }
45
    plan tests => $test_num;
44
    plan tests => $test_num + 1;
46
    use_ok('C4::ClassSplitRoutine::Dewey', qw( split_callnumber ));
45
    use_ok('C4::ClassSplitRoutine::Dewey', qw( split_callnumber ));
47
    use vars qw($ddcns);
46
    use vars qw($ddcns);
48
}
47
}
(-)a/t/Labels_split_lccn.t (-3 / +2 lines)
Lines 17-24 Link Here
17
#
17
#
18
# for context, see http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=2691
18
# for context, see http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=2691
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use C4::ClassSplitRoutine::LCC qw( split_callnumber );
22
use C4::ClassSplitRoutine::LCC qw( split_callnumber );
24
use Test::NoWarnings;
23
use Test::NoWarnings;
Lines 45-51 BEGIN { Link Here
45
        $test_num += 2 * $split_num;
44
        $test_num += 2 * $split_num;
46
        $test_num += 4;
45
        $test_num += 4;
47
    }
46
    }
48
    plan tests => $test_num;
47
    plan tests => $test_num + 1;
49
    use_ok('C4::Labels::Label');
48
    use_ok('C4::Labels::Label');
50
    use vars qw($lccns);
49
    use vars qw($lccns);
51
}
50
}
(-)a/t/RecordProcessor.t (-3 / +1 lines)
Lines 23-29 use File::Spec; Link Here
23
use MARC::Record;
23
use MARC::Record;
24
use English qw( -no_match_vars );
24
use English qw( -no_match_vars );
25
use Test::NoWarnings;
25
use Test::NoWarnings;
26
use Test::More;
26
use Test::More tests => 21;
27
27
28
BEGIN {
28
BEGIN {
29
    use_ok('Koha::RecordProcessor');
29
    use_ok('Koha::RecordProcessor');
Lines 227-231 subtest "'TrimFields' filter tests" => sub { Link Here
227
    my $get521a = $record->subfield( '521', 'a' );
227
    my $get521a = $record->subfield( '521', 'a' );
228
    is( $get521a, "This is a\t test!", "Trailing tabs are stripped while inner tabs are kept" );
228
    is( $get521a, "This is a\t test!", "Trailing tabs are stripped while inner tabs are kept" );
229
};
229
};
230
231
done_testing();
(-)a/t/SuggestionEngine.t (-3 / +3 lines)
Lines 1-10 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use strict;
3
use Modern::Perl;
4
use warnings;
5
use File::Spec;
4
use File::Spec;
6
5
7
use Test::NoWarnings;
6
use Test::NoWarnings qw( had_no_warnings );
8
use Test::More;
7
use Test::More;
9
8
10
BEGIN {
9
BEGIN {
Lines 44-47 eval { Link Here
44
};
43
};
45
ok(!$@, 'Destroyed suggestor successfully');
44
ok(!$@, 'Destroyed suggestor successfully');
46
45
46
had_no_warnings;
47
done_testing();
47
done_testing();
(-)a/t/db_dependent/00-strict.t (-3 / +3 lines)
Lines 1-11 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
# This script is called by the pre-commit git hook to test modules compile
2
# This script is called by the pre-commit git hook to test modules compile
3
3
4
use strict;
4
use Modern::Perl;
5
use warnings;
6
5
7
use threads;    # used for parallel
6
use threads;    # used for parallel
8
use Test::NoWarnings;
7
use Test::NoWarnings qw( had_no_warnings );
9
use Test::More;
8
use Test::More;
10
use Test::Strict;
9
use Test::Strict;
11
use Parallel::ForkManager;
10
use Parallel::ForkManager;
Lines 55-58 foreach my $d (@dirs) { Link Here
55
54
56
$pm->wait_all_children;
55
$pm->wait_all_children;
57
56
57
had_no_warnings;
58
done_testing();
58
done_testing();
(-)a/t/db_dependent/Acquisition/GetOrdersByBiblionumber.t (-3 / +1 lines)
Lines 3-9 Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::NoWarnings;
5
use Test::NoWarnings;
6
use Test::More;
6
use Test::More tests => 4;
7
use C4::Acquisition qw( NewBasket GetOrders GetOrdersByBiblionumber GetOrder );
7
use C4::Acquisition qw( NewBasket GetOrders GetOrdersByBiblionumber GetOrder );
8
use C4::Biblio qw( AddBiblio );
8
use C4::Biblio qw( AddBiblio );
9
use C4::Budgets qw( AddBudget GetBudget );
9
use C4::Budgets qw( AddBudget GetBudget );
Lines 91-95 is(scalar(@orders), 2, '2 orders on biblionumber 2'); Link Here
91
91
92
#End transaction
92
#End transaction
93
$schema->storage->txn_rollback();
93
$schema->storage->txn_rollback();
94
95
done_testing;
(-)a/t/db_dependent/Budgets/CloneBudgetHierarchy.t (-3 / +1 lines)
Lines 3-9 Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::NoWarnings;
5
use Test::NoWarnings;
6
use Test::More;
6
use Test::More tests => 2;
7
7
8
use Koha::Database;
8
use Koha::Database;
9
use Koha::Acquisition::Budget;
9
use Koha::Acquisition::Budget;
Lines 13-20 use C4::Budgets qw(AddBudget CloneBudgetHierarchy GetBudgetHierarchy); Link Here
13
13
14
use t::lib::TestBuilder;
14
use t::lib::TestBuilder;
15
15
16
plan tests => 1;
17
18
my $schema = Koha::Database->schema;
16
my $schema = Koha::Database->schema;
19
my $builder = t::lib::TestBuilder->new;
17
my $builder = t::lib::TestBuilder->new;
20
18
(-)a/t/db_dependent/Koha/Item/Attributes.t (-1 / +1 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::NoWarnings;
19
use Test::NoWarnings;
20
use Test::More tests=> 10;
20
use Test::More tests => 11;
21
use utf8;
21
use utf8;
22
22
23
use Koha::Database;
23
use Koha::Database;
(-)a/t/db_dependent/Koha/Items/BatchUpdate.t (-1 / +1 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::NoWarnings;
19
use Test::NoWarnings;
20
use Test::More tests=> 8;
20
use Test::More tests => 9;
21
use Test::Warn;
21
use Test::Warn;
22
use utf8;
22
use utf8;
23
23
(-)a/t/db_dependent/Koha_ExternalContent_OverDrive.t (-1 / +1 lines)
Lines 11-17 use Module::Load::Conditional qw( can_load check_install ); Link Here
11
11
12
BEGIN {
12
BEGIN {
13
    if ( check_install( module => 'WebService::ILS::OverDrive::Patron' ) ) {
13
    if ( check_install( module => 'WebService::ILS::OverDrive::Patron' ) ) {
14
        plan tests => 6;
14
        plan tests => 7;
15
    } else {
15
    } else {
16
        plan skip_all => "Need WebService::ILS::OverDrive::Patron"
16
        plan skip_all => "Need WebService::ILS::OverDrive::Patron"
17
    }
17
    }
(-)a/t/db_dependent/MungeMarcPrice.t (-1 / +1 lines)
Lines 29-35 my @prices2test=( { string => '25,5 £, $34,55, $LD35', expected => '34.55 Link Here
29
                  { string => '5.99 (7.75 CAN)',             expected => '5.99' },
29
                  { string => '5.99 (7.75 CAN)',             expected => '5.99' },
30
                );
30
                );
31
31
32
plan tests => 2 * scalar @prices2test;
32
plan tests => 1 + 2 * scalar @prices2test;
33
33
34
# set active currency test data
34
# set active currency test data
35
my $CURRENCY = 'TEST';
35
my $CURRENCY = 'TEST';
(-)a/t/db_dependent/RecordProcessor_EmbedSeeFromHeadings.t (-5 / +2 lines)
Lines 17-30 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
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 strict;
20
use Modern::Perl;
21
use warnings;
22
use File::Spec;
21
use File::Spec;
23
use MARC::Record;
22
use MARC::Record;
24
use Koha::MetadataRecord::Authority;
23
use Koha::MetadataRecord::Authority;
25
24
26
use Test::NoWarnings;
25
use Test::NoWarnings;
27
use Test::More;
26
use Test::More tests => 5;
28
use Test::MockModule;
27
use Test::MockModule;
29
use Test::MockObject;
28
use Test::MockObject;
30
29
Lines 111-115 subtest "EmbedSeeFromHeadings should skip holdings fields" => sub { Link Here
111
110
112
    is_deeply($result, $record_copy, 'Holdings fields not processed to introduce See-from heading');
111
    is_deeply($result, $record_copy, 'Holdings fields not processed to introduce See-from heading');
113
};
112
};
114
115
done_testing();
(-)a/t/db_dependent/Search/History.t (-2 lines)
Lines 474-478 $result = $schema->resultset('SearchHistory')->search()->count; Link Here
474
$result2 = $schema->resultset('SearchHistory')->search()->count;
474
$result2 = $schema->resultset('SearchHistory')->search()->count;
475
is($result2, $result+1, 'new search added to borrower');
475
is($result2, $result+1, 'new search added to borrower');
476
};
476
};
477
478
done_testing;
(-)a/t/db_dependent/api/v1/oauth.t (-1 / +1 lines)
Lines 37-43 my $schema = Koha::Database->new->schema; Link Here
37
my $builder = t::lib::TestBuilder->new();
37
my $builder = t::lib::TestBuilder->new();
38
38
39
if ( can_load( modules => { 'Net::OAuth2::AuthorizationServer' => undef } ) ) {
39
if ( can_load( modules => { 'Net::OAuth2::AuthorizationServer' => undef } ) ) {
40
    plan tests => 2;
40
    plan tests => 3;
41
}
41
}
42
else {
42
else {
43
    plan skip_all => 'Net::OAuth2::AuthorizationServer not available';
43
    plan skip_all => 'Net::OAuth2::AuthorizationServer not available';
(-)a/t/db_dependent/db_structure.t (-3 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::NoWarnings;
20
use Test::NoWarnings qw( had_no_warnings );
21
use Test::More;
21
use Test::More;
22
use Koha::Database;
22
use Koha::Database;
23
23
Lines 59-64 for my $modules ( @modules ) { Link Here
59
        }
59
        }
60
    }
60
    }
61
}
61
}
62
62
had_no_warnings;
63
done_testing();
63
done_testing();
64
(-)a/t/db_dependent/selenium/patrons_search.t (-1 / +1 lines)
Lines 42-48 eval { require Selenium::Remote::Driver; }; Link Here
42
if ( $@ ) {
42
if ( $@ ) {
43
    plan skip_all => "Selenium::Remote::Driver is needed for selenium tests.";
43
    plan skip_all => "Selenium::Remote::Driver is needed for selenium tests.";
44
} else {
44
} else {
45
    plan tests => 2;
45
    plan tests => 3;
46
}
46
}
47
47
48
my $s             = t::lib::Selenium->new;
48
my $s             = t::lib::Selenium->new;
(-)a/t/db_dependent/selenium/remove_from_cart.t (-1 / +1 lines)
Lines 34-40 eval { require Selenium::Remote::Driver; }; Link Here
34
if ( $@ ) {
34
if ( $@ ) {
35
    plan skip_all => "Selenium::Remote::Driver is needed for selenium tests.";
35
    plan skip_all => "Selenium::Remote::Driver is needed for selenium tests.";
36
} else {
36
} else {
37
    plan tests => 1;
37
    plan tests => 2;
38
}
38
}
39
39
40
my $s = t::lib::Selenium->new;
40
my $s = t::lib::Selenium->new;
(-)a/t/db_dependent/selenium/self_registration.t (-1 / +1 lines)
Lines 34-40 eval { require Selenium::Remote::Driver; }; Link Here
34
if ( $@ ) {
34
if ( $@ ) {
35
    plan skip_all => "Selenium::Remote::Driver is needed for selenium tests.";
35
    plan skip_all => "Selenium::Remote::Driver is needed for selenium tests.";
36
} else {
36
} else {
37
    plan tests => 2;
37
    plan tests => 3;
38
}
38
}
39
39
40
my $s = t::lib::Selenium->new;
40
my $s = t::lib::Selenium->new;
(-)a/t/db_dependent/selenium/system_preferences_search.t (-1 / +1 lines)
Lines 27-33 eval { require Selenium::Remote::Driver; }; Link Here
27
if ( $@ ) {
27
if ( $@ ) {
28
    plan skip_all => "Selenium::Remote::Driver is needed for Selenium tests.";
28
    plan skip_all => "Selenium::Remote::Driver is needed for Selenium tests.";
29
} else {
29
} else {
30
    plan tests => 1;
30
    plan tests => 2;
31
}
31
}
32
32
33
my @cleanup;
33
my @cleanup;
(-)a/t/db_dependent/selenium/update_child_to_adult.t (-1 / +1 lines)
Lines 33-39 eval { require Selenium::Remote::Driver; }; Link Here
33
if ( $@ ) {
33
if ( $@ ) {
34
    plan skip_all => "Selenium::Remote::Driver is needed for selenium tests.";
34
    plan skip_all => "Selenium::Remote::Driver is needed for selenium tests.";
35
} else {
35
} else {
36
    plan tests => 1;
36
    plan tests => 2;
37
}
37
}
38
38
39
my $s             = t::lib::Selenium->new;
39
my $s             = t::lib::Selenium->new;
(-)a/t/db_dependent/www/rest_api.t (-1 / +1 lines)
Lines 33-39 elsif (not defined $intranet) { Link Here
33
    plan skip_all => "Tests skip. You must set env. variable KOHA_INTRANET_URL to do tests\n";
33
    plan skip_all => "Tests skip. You must set env. variable KOHA_INTRANET_URL to do tests\n";
34
}
34
}
35
else {
35
else {
36
    plan tests => 1;
36
    plan tests => 2;
37
}
37
}
38
38
39
$intranet =~ s#/$##;
39
$intranet =~ s#/$##;
(-)a/t/db_dependent/yaml.t (-3 / +1 lines)
Lines 1-6 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Test::NoWarnings;
2
use Test::NoWarnings;
3
use Test::More;
3
use Test::More tests => 5;
4
4
5
use YAML::XS;
5
use YAML::XS;
6
use Template;
6
use Template;
Lines 72-75 is_deeply( Link Here
72
        }
72
        }
73
    ]
73
    ]
74
);
74
);
75
done_testing;
76
- 

Return to bug 38944