use warnings;
use strict;
use Text::xSV; #documentation in http://search.cpan.org/~tilly/Text-xSV-0.14/lib/Text/xSV.pm
use Test::Simple tests => 4;

#filename set in new().  works.
my $csv1 = Text::xSV->new(
filename => "filename.txt",
header   => ["partner",
			"kampagne",
			"keywordCluster",
			"keyword",
			"clicks",
			"leads",
			"orders",
			"jaronVerguetung",
			"partnerVerguetung",
			"profit"],
);
ok( ( defined($csv1) ) , 'Csv object created using filename => "filename.txt"');
ok( $csv1->set_sep(';')  , "Separator set for this object." );

#filename set in set_filename.  Doesn't work.
#error is "global symbol... requires explicit package name.  Fails on set_filename.  But not on set_sep.  Weird.
my $csv2 = Text::xSV->new();

ok( ( defined($csv2) ) , 'Csv object created with new, without using filename => "filename.txt"');
ok( ( eval { $csv2->set_filename("popularixCombined.csv") } ) ,"Filename set for this object.");