1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#!/usr/bin/perl
use strict;
$^W = 1;
use Test::More tests => 8;
BEGIN {
$ENV{PERL_TEXT_CSV} = 0;
use_ok "Text::CSV", ();
plan skip_all => "Cannot load Text::CSV" if $@;
}
# Some assorted examples from the modules history
# "Pavel Kotala" <pkotala@logis.cz>
{
my $csv = Text::CSV->new ({
quote_char => '"',
escape_char => '\\',
sep_char => ';',
binary => 1,
});
ok ($csv, "new (\", \\\\, ;, 1)");
my @list = ("c:\\winnt", "text");
ok ($csv->combine (@list), "combine ()");
my $line = $csv->string;
ok ($line, "string ()");
ok ($csv->parse ($line), "parse ()");
my @olist = $csv->fields;
is (scalar @list, scalar @olist, "field count");
is ($list[0], $olist[0], "field 1");
is ($list[1], $olist[1], "field 2");
}
|
