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

(-)a/t/00-checkdatabase-version.t (-2 / +1 lines)
Lines 15-22 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::More;
20
use Test::More;
22
use File::Spec;
21
use File::Spec;
(-)a/t/00-deprecated.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# Tests usage of deprecated Perl syntax. Deprecated could be extended to the
3
# Tests usage of deprecated Perl syntax. Deprecated could be extended to the
4
# sense of 'not allowed'.
4
# sense of 'not allowed'.
5
#
5
#
6
use warnings;
6
use Modern::Perl;
7
use strict;
8
use Test::More tests => 1;
7
use Test::More tests => 1;
9
use File::Find;
8
use File::Find;
10
use Cwd;
9
use Cwd;
(-)a/t/00-valid-xml.t (-2 / +1 lines)
Lines 15-22 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::More;
20
use Test::More;
22
use File::Spec;
21
use File::Spec;
(-)a/t/AuthoritiesMarc_MARC21.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 4;
8
use Test::More tests => 4;
10
use MARC::Record;
9
use MARC::Record;
(-)a/t/AuthoritiesMarc_UNIMARC.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 2;
8
use Test::More tests => 2;
10
9
(-)a/t/Barcodes_EAN13.t (-2 / +1 lines)
Lines 2-9 Link Here
2
#
2
#
3
# implementation tests are in t/db_dependent/Barcodes.t
3
# implementation tests are in t/db_dependent/Barcodes.t
4
4
5
use strict;
5
use Modern::Perl;
6
use warnings;
7
6
8
use Test::More tests => 1;
7
use Test::More tests => 1;
9
8
(-)a/t/Barcodes_annual.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Barcodes_hbyymmincr.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Barcodes_incremental.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Bookseller.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Budgets.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/ClassSortRoutine.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/ClassSortRoutine_Dewey.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 10;
8
use Test::More tests => 10;
10
9
(-)a/t/ClassSortRoutine_Generic.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 3;
8
use Test::More tests => 3;
10
9
(-)a/t/ClassSortRoutine_LCC.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 10;
8
use Test::More tests => 10;
10
9
(-)a/t/ClassSource.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Contract.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Creators.t (-2 / +1 lines)
Lines 10-17 Link Here
10
#
10
#
11
# sample of utf-8 text, font name and type will be on bottom of second page
11
# sample of utf-8 text, font name and type will be on bottom of second page
12
12
13
use strict;
13
use Modern::Perl;
14
use warnings;
15
14
16
use File::Temp qw/ tempfile  /;
15
use File::Temp qw/ tempfile  /;
17
use Test::More tests => 41;
16
use Test::More tests => 41;
(-)a/t/EdiInvoice.t (-2 / +1 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
use strict;
2
use Modern::Perl;
3
use warnings;
4
use FindBin qw( $Bin );
3
use FindBin qw( $Bin );
5
4
6
use Test::More tests => 19;
5
use Test::More tests => 19;
(-)a/t/Edifact.t (-2 / +1 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
use strict;
2
use Modern::Perl;
3
use warnings;
4
use FindBin qw( $Bin );
3
use FindBin qw( $Bin );
5
4
6
use Test::More tests => 34;
5
use Test::More tests => 34;
(-)a/t/Ediorder.t (-2 / +1 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
use strict;
2
use Modern::Perl;
3
use warnings;
4
use FindBin qw( $Bin );
3
use FindBin qw( $Bin );
5
4
6
use Test::More tests => 6;
5
use Test::More tests => 6;
(-)a/t/Ediordrsp.t (-2 / +1 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
use strict;
2
use Modern::Perl;
3
use warnings;
4
use FindBin qw( $Bin );
3
use FindBin qw( $Bin );
5
4
6
use Test::More tests => 16;
5
use Test::More tests => 16;
(-)a/t/External/Syndetics.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Form_MessagingPreferences.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Heading.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/HtmlTags.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This module tests the HtmlTag filter
3
# This module tests the HtmlTag filter
4
#
4
#
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 4;
8
use Test::More tests => 4;
10
9
(-)a/t/Installer_PerlDependencies.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Installer_pm.t (-2 / +1 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
#
2
#
3
use strict;
3
use Modern::Perl;
4
use warnings;
5
4
6
use Test::More tests => 4;
5
use Test::More tests => 4;
7
use Data::Dumper;
6
use Data::Dumper;
(-)a/t/ItemCirculationAlertPreference.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Koha_Util_MARC.t (-2 / +1 lines)
Lines 20-27 Link Here
20
# Note that at present this test is almost identical to the one testing
20
# Note that at present this test is almost identical to the one testing
21
# the encapsulating method in Koha::MetadataRecord.
21
# the encapsulating method in Koha::MetadataRecord.
22
22
23
use strict;
23
use Modern::Perl;
24
use warnings;
25
24
26
use Test::More tests => 4;
25
use Test::More tests => 4;
27
26
(-)a/t/Labels.t (-2 / +1 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::More tests => 11;
22
use Test::More tests => 11;
24
23
(-)a/t/Labels_split_ccn.t (-2 / +1 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::More;
22
use Test::More;
24
23
(-)a/t/Labels_split_ddcn.t (-2 / +1 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::More;
22
use Test::More;
24
23
(-)a/t/Labels_split_lccn.t (-2 / +1 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::More;
22
use Test::More;
24
23
(-)a/t/Log.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 3;
8
use Test::More tests => 3;
10
use t::lib::Mocks;
9
use t::lib::Mocks;
(-)a/t/Members_Attributes.t (-2 / +1 lines)
Lines 2-9 Link Here
2
#
2
#
3
#
3
#
4
4
5
use strict;
5
use Modern::Perl;
6
use warnings;
7
6
8
use Test::More tests => 11;
7
use Test::More tests => 11;
9
8
(-)a/t/Members_Messaging.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Output.t (-2 / +1 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use strict;
3
use Modern::Perl;
4
use warnings;
5
4
6
use Test::More tests => 5;
5
use Test::More tests => 5;
7
use CGI qw ( -utf8 );
6
use CGI qw ( -utf8 );
(-)a/t/Output_JSONStream.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 10;
8
use Test::More tests => 10;
10
9
(-)a/t/Patroncards.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Patroncards_Batch.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Patroncards_Layout.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Patroncards_Lib.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Patroncards_Patroncard.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Patroncards_Profile.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Patroncards_Template.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/Print.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 2;
8
use Test::More tests => 2;
10
9
(-)a/t/QueryParser.t (-2 / +1 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use strict;
3
use Modern::Perl;
4
use warnings;
5
4
6
use Test::More;
5
use Test::More;
7
use Test::Deep;
6
use Test::Deep;
(-)a/t/Scheduler.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 6;
8
use Test::More tests => 6;
10
9
(-)a/t/Scrubber.t (-2 / +1 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use strict;
3
use Modern::Perl;
4
use warnings;
5
4
6
$| = 1;
5
$| = 1;
7
use Test::More tests => 29;
6
use Test::More tests => 29;
(-)a/t/Stats.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/SuggestionEngine.t (-2 / +1 lines)
Lines 1-7 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::More;
6
use Test::More;
(-)a/t/TmplToken.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
use C4::TmplTokenType;
7
use C4::TmplTokenType;
9
use Test::More tests => 19;
8
use Test::More tests => 19;
10
9
(-)a/t/db_dependent/00-strict.t (-2 / +1 lines)
Lines 1-7 Link Here
1
# This script is called by the pre-commit git hook to test modules compile
1
# This script is called by the pre-commit git hook to test modules compile
2
2
3
use strict;
3
use Modern::Perl;
4
use warnings;
5
use Test::More;
4
use Test::More;
6
use Test::Strict;
5
use Test::Strict;
7
use File::Spec;
6
use File::Spec;
(-)a/t/db_dependent/Amazon.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 8;
8
use Test::More tests => 8;
10
use t::lib::Mocks;
9
use t::lib::Mocks;
(-)a/t/db_dependent/Heading_MARC21.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 3;
8
use Test::More tests => 3;
10
use C4::Context;
9
use C4::Context;
(-)a/t/db_dependent/LDAP/test_ldap_add.pl (-2 / +1 lines)
Lines 7-14 Link Here
7
# Then run this script to test perl interaction w/ LDAP.
7
# Then run this script to test perl interaction w/ LDAP.
8
#
8
#
9
9
10
use warnings;
10
use Modern::Perl;
11
use strict;
12
11
13
use Net::LDAP;
12
use Net::LDAP;
14
use Net::LDAP::Filter;
13
use Net::LDAP::Filter;
(-)a/t/db_dependent/Languages.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 17;
8
use Test::More tests => 17;
10
use List::Util qw(first);
9
use List::Util qw(first);
(-)a/t/db_dependent/MungeMarcPrice.t (-2 / +1 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use strict;
3
use Modern::Perl;
4
use warnings;
5
use C4::Biblio;
4
use C4::Biblio;
6
use Koha::Acquisition::Currencies;
5
use Koha::Acquisition::Currencies;
7
use Test::More;
6
use Test::More;
(-)a/t/db_dependent/Record/Record.t (-2 / +1 lines)
Lines 19-26 Link Here
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
#
20
#
21
#
21
#
22
use strict;
22
use Modern::Perl;
23
use warnings;
24
23
25
use constant WHEREAMI => 't/db_dependent/Record/testrecords';
24
use constant WHEREAMI => 't/db_dependent/Record/testrecords';
26
25
(-)a/t/db_dependent/RecordProcessor_EmbedSeeFromHeadings.t (-2 / +1 lines)
Lines 17-24 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;
(-)a/t/db_dependent/Reports.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 2;
8
use Test::More tests => 2;
10
9
(-)a/t/db_dependent/Service.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 1;
8
use Test::More tests => 1;
10
9
(-)a/t/db_dependent/SuggestionEngine_ExplodedTerms.t (-2 / +1 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use strict;
3
use Modern::Perl;
4
use warnings;
5
4
6
use Cwd qw/abs_path/;
5
use Cwd qw/abs_path/;
7
use File::Basename;
6
use File::Basename;
(-)a/t/db_dependent/Tags.t (-2 / +1 lines)
Lines 3-10 Link Here
3
# This Koha test module is a stub!  
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
7
9
use Test::More tests => 32;
8
use Test::More tests => 32;
10
9
(-)a/t/smolder_smoke_signal (-3 / +1 lines)
Lines 35-42 Link Here
35
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
35
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
36
36
37
37
38
use strict;
38
use Modern::Perl;
39
use warnings;
40
use Getopt::Long;
39
use Getopt::Long;
41
use Pod::Usage;
40
use Pod::Usage;
42
use File::Spec::Functions qw(catdir catfile splitdir);
41
use File::Spec::Functions qw(catdir catfile splitdir);
43
- 

Return to bug 20022