oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

check the CSV output made by export

Browse source
This commit is contained in:
Colin Kuskie 2008-02-17 04:58:51 +00:00
parent 6415b9186f
commit 40e4e96a66
1 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

14
t/Shop/Tax.t
View file

@ -20,6 +20,7 @@ use Test::More;
use Test::Deep; use Test::Deep;
use WebGUI::Test; # Must use this before any other WebGUI modules use WebGUI::Test; # Must use this before any other WebGUI modules
use WebGUI::Session; use WebGUI::Session;
use WebGUI::Text;
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# Init # Init
@ -28,7 +29,7 @@ my $session = WebGUI::Test->session;
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# Tests # Tests
my $tests = 27; my $tests = 30;
plan tests => 1 + $tests; plan tests => 1 + $tests;
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
@ -200,7 +201,16 @@ $storage = $taxer->export();
isa_ok($storage, 'WebGUI::Storage', 'export returns a WebGUI::Storage object'); isa_ok($storage, 'WebGUI::Storage', 'export returns a WebGUI::Storage object');
is($storage->{_part1}, 'temp', 'The storage object is in the temporary area'); is($storage->{_part1}, 'temp', 'The storage object is in the temporary area');
ok(-e $storage->getPath('siteTaxData.csv'), 'siteTaxData.csv file exists in the storage object'); ok(-e $storage->getPath('siteTaxData.csv'), 'siteTaxData.csv file exists in the storage object');
cmp_ok($storage->getFileSize('siteTaxData.csv'), '!=', 0, 'CSV file is not empty');
my @fileLines = split /\n+/, $storage->getFileContentsAsScalar('siteTaxData.csv');
my @header = WebGUI::Text::splitCSV($fileLines[0]);
my @expectedHeader = qw/field value taxRate/;
cmp_deeply(\@header, \@expectedHeader, 'export: header line is correct');
my @row1 = WebGUI::Text::splitCSV($fileLines[1]);
use Data::Dumper;
my $wiData = $taxer->getItems->hashRef;
##Need to ignore the taxId from the database
cmp_bag([ @{ $wiData }{ @expectedHeader } ], \@row1, 'export: first line of data is correct');
} }