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

(-)a/xt/author/Text_CSV_Various.t (-10 / +21 lines)
Lines 1-18 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use strict;
3
# This file is part of Koha.
4
use warnings;
4
#
5
# Koha is free software; you can redistribute it and/or modify it under the
6
# terms of the GNU General Public License as published by the Free Software
7
# Foundation; either version 3 of the License, or (at your option) any later
8
# version.
9
#
10
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
13
#
14
# You should have received a copy of the GNU General Public License along
15
# with Koha; if not, see <http://www.gnu.org/licenses>.
16
17
#This test demonstrates why Koha uses the CSV parser and configration
18
#it does.  Specifically, the test is for Unicode compliance in text
19
#parsing and data.  This test requires other modules that Koha doesn't
20
#actually use, in order to compare.  Therefore, running this test is not
21
#necessary to test your Koha installation.
22
23
use Modern::Perl;
5
24
6
use Test::More tests => 32;
25
use Test::More tests => 32;
7
use Test::Warn;
26
use Test::Warn;
8
BEGIN {
27
BEGIN {
9
    diag q{
10
This test demonstrates why Koha uses the CSV parser and configration
11
it does.  Specifically, the test is for Unicode compliance in text
12
parsing and data.  This test requires other modules that Koha doesn't
13
actually use, in order to compare.  Therefore, running this test is not
14
necessary to test your Koha installation.
15
};
16
	use FindBin;
28
	use FindBin;
17
	use lib $FindBin::Bin;
29
	use lib $FindBin::Bin;
18
	use_ok('Text::CSV');
30
	use_ok('Text::CSV');
19
- 

Return to bug 18746