tests for exporting, and some bug fixes in exportProducts

This commit is contained in:
Colin Kuskie 2008-06-05 19:57:01 +00:00
parent f87e32452a
commit 288fd54b17
2 changed files with 16 additions and 3 deletions

View file

@ -33,7 +33,7 @@ my $session = WebGUI::Test->session;
#----------------------------------------------------------------------------
# Tests
my $tests = 22;
my $tests = 25;
plan tests => 1 + $tests;
#----------------------------------------------------------------------------
@ -189,6 +189,17 @@ SKIP: {
'collateral set correctly for shirt'
);
#######################################################################
#
# export
#
#######################################################################
my $products = WebGUI::Shop::Products::exportProducts($session);
isa_ok($products, 'WebGUI::Storage', 'exportProducts returns a Storage object');
is(scalar @{ $products->getFiles }, 1, 'The storage contains just 1 file...');
is(scalar $products->getFiles->[0], 'siteProductData.csv', '...with the correct filename');
}
#----------------------------------------------------------------------------