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

(-)a/xt/author/Text_CSV_Various.t (-7 / +14 lines)
Lines 22-37 Link Here
22
22
23
use Modern::Perl;
23
use Modern::Perl;
24
24
25
use Test::More tests => 32;
25
use Test::More;
26
use Test::Warn;
26
use Test::Warn;
27
28
use Text::CSV;
29
use Text::CSV_XS;
30
31
use Module::Load::Conditional qw/check_install/;
32
27
BEGIN {
33
BEGIN {
28
	use FindBin;
34
    if ( check_install( module => 'Text::CSV::Unicode' ) ) {
29
	use lib $FindBin::Bin;
35
        plan tests => 29;
30
	use_ok('Text::CSV');
36
    } else {
31
	use_ok('Text::CSV_XS');
37
        plan skip_all => "Need Text::CSV::Unicode"
32
	use_ok('Text::CSV::Unicode');
38
    }
33
}
39
}
34
40
41
use Text::CSV::Unicode;
42
35
sub pretty_line {
43
sub pretty_line {
36
	my $max = 54;
44
	my $max = 54;
37
	(@_) or return "#" x $max . "\n";
45
	(@_) or return "#" x $max . "\n";
38
- 

Return to bug 18959