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 101-105 sub is_testable { Link Here
101
    return $return_value;
101
    return $return_value;
102
}
102
}
103
103
104
had_no_warnings;
104
done_testing();
105
done_testing();
105
(-)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 / +5 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 44-49 find( Link Here
44
            }
43
            }
45
        },
44
        },
46
    },
45
    },
46
    ,
47
    File::Spec->curdir()
47
    File::Spec->curdir()
48
);
48
);
49
50
had_no_warnings;
49
done_testing();
51
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
use_ok(
25
use_ok(
28
    'C4::Biblio',
26
    'C4::Biblio',
29
    qw( AddBiblio ModBiblio BiblioAutoLink LinkBibHeadingsToAuthorities GetMarcPrice GetMarcQuantity GetMarcISBN GetMarcISSN GetMarcSubjects GetMarcUrls GetMarcSeries TransformMarcToKoha ModBiblioMarc RemoveAllNsb UpdateTotalIssues )
27
    qw( AddBiblio ModBiblio BiblioAutoLink LinkBibHeadingsToAuthorities GetMarcPrice GetMarcQuantity GetMarcISBN GetMarcISSN GetMarcSubjects GetMarcUrls GetMarcSeries TransformMarcToKoha ModBiblioMarc RemoveAllNsb UpdateTotalIssues )
(-)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 58-62 sub _koha_marc_update_bib_ids_control { Link Here
58
    is( $r->field('001')->data(), 10, 'Biblionumber to control field' );
58
    is( $r->field('001')->data(), 10, 'Biblionumber to control field' );
59
    is( $r->field('004')->data(), 20, 'Biblioitemnumber to control field' );
59
    is( $r->field('004')->data(), 20, 'Biblioitemnumber to control field' );
60
}
60
}
61
62
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 77-81 subtest "_build_query tests" => sub { Link Here
77
        'Fuzziness and size specified'
77
        'Fuzziness and size specified'
78
    );
78
    );
79
};
79
};
80
81
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 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::Labels::Label');
45
    use_ok('C4::Labels::Label');
47
    use vars qw($ccns);
46
    use vars qw($ccns);
48
}
47
}
(-)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 41-47 BEGIN { Link Here
41
        $test_num += 2 * $split_num;
40
        $test_num += 2 * $split_num;
42
        $test_num += 4;
41
        $test_num += 4;
43
    }
42
    }
44
    plan tests => $test_num;
43
    plan tests => $test_num + 1;
45
    use_ok( 'C4::ClassSplitRoutine::Dewey', qw( split_callnumber ) );
44
    use_ok( 'C4::ClassSplitRoutine::Dewey', qw( split_callnumber ) );
46
    use vars qw($ddcns);
45
    use vars qw($ddcns);
47
}
46
}
(-)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 44-50 BEGIN { Link Here
44
        $test_num += 2 * $split_num;
43
        $test_num += 2 * $split_num;
45
        $test_num += 4;
44
        $test_num += 4;
46
    }
45
    }
47
    plan tests => $test_num;
46
    plan tests => $test_num + 1;
48
    use_ok('C4::Labels::Label');
47
    use_ok('C4::Labels::Label');
49
    use vars qw($lccns);
48
    use vars qw($lccns);
50
}
49
}
(-)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 236-240 subtest "'TrimFields' filter tests" => sub { Link Here
236
    my $get521a = $record->subfield( '521', 'a' );
236
    my $get521a = $record->subfield( '521', 'a' );
237
    is( $get521a, "This is a\t test!", "Trailing tabs are stripped while inner tabs are kept" );
237
    is( $get521a, "This is a\t test!", "Trailing tabs are stripped while inner tabs are kept" );
238
};
238
};
239
240
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 53-56 eval { Link Here
53
};
52
};
54
ok( !$@, 'Destroyed suggestor successfully' );
53
ok( !$@, 'Destroyed suggestor successfully' );
55
54
55
had_no_warnings;
56
done_testing();
56
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 89-93 is( scalar(@orders), 2, '2 orders on biblionumber 2' ); Link Here
89
89
90
#End transaction
90
#End transaction
91
$schema->storage->txn_rollback();
91
$schema->storage->txn_rollback();
92
93
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 30-36 my @prices2test = ( Link Here
30
    { string => '5.99 (7.75 CAN)',            expected => '5.99' },
30
    { string => '5.99 (7.75 CAN)',            expected => '5.99' },
31
);
31
);
32
32
33
plan tests => 2 * scalar @prices2test;
33
plan tests => 1 + 2 * scalar @prices2test;
34
34
35
# set active currency test data
35
# set active currency test data
36
my $CURRENCY = 'TEST';
36
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 113-117 subtest "EmbedSeeFromHeadings should skip holdings fields" => sub { Link Here
113
112
114
    is_deeply( $result, $record_copy, 'Holdings fields not processed to introduce See-from heading' );
113
    is_deeply( $result, $record_copy, 'Holdings fields not processed to introduce See-from heading' );
115
};
114
};
116
117
done_testing();
(-)a/t/db_dependent/Search/History.t (-2 lines)
Lines 521-525 subtest 'LoadSearchHistoryToTheFirstLoggedUser working' => sub { Link Here
521
    $result2 = $schema->resultset('SearchHistory')->search()->count;
521
    $result2 = $schema->resultset('SearchHistory')->search()->count;
522
    is( $result2, $result + 1, 'new search added to borrower' );
522
    is( $result2, $result + 1, 'new search added to borrower' );
523
};
523
};
524
525
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
} else {
41
} else {
42
    plan skip_all => 'Net::OAuth2::AuthorizationServer not available';
42
    plan skip_all => 'Net::OAuth2::AuthorizationServer not available';
43
}
43
}
(-)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 62-67 for my $modules (@modules) { Link Here
62
        }
62
        }
63
    }
63
    }
64
}
64
}
65
65
had_no_warnings;
66
done_testing();
66
done_testing();
67
(-)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 29-35 if ($@) { Link Here
29
} elsif ( not defined $intranet ) {
29
} elsif ( not defined $intranet ) {
30
    plan skip_all => "Tests skip. You must set env. variable KOHA_INTRANET_URL to do tests\n";
30
    plan skip_all => "Tests skip. You must set env. variable KOHA_INTRANET_URL to do tests\n";
31
} else {
31
} else {
32
    plan tests => 1;
32
    plan tests => 2;
33
}
33
}
34
34
35
$intranet =~ s#/$##;
35
$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