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

convert all test cleanup to addToCleanup

Browse source
This commit is contained in:
Graham Knop 2010-06-09 17:37:10 -05:00
parent 421b9652cf
commit 4c18ba3563
82 changed files with 190 additions and 307 deletions
Download patch file Download diff file Expand all files Collapse all files

2
t/Shop/AddressBook.t
View file

@ -211,7 +211,7 @@ undef $book;
my $otherSession = WebGUI::Test->newSession;
my $mergeUser = WebGUI::User->create($otherSession);
WebGUI::Test->usersToDelete($mergeUser);
WebGUI::Test->addToCleanup($mergeUser);
$otherSession->user({user => $mergeUser});
my $adminBook = WebGUI::Shop::AddressBook->create($otherSession);
my $goodAddress = $adminBook->addAddress({label => 'first'});

2
t/Shop/ShipDriver/UPS.t
View file

@ -33,7 +33,7 @@ use Locales;
# Init
my $session = WebGUI::Test->session;
my $user = WebGUI::User->create($session);
WebGUI::Test->usersToDelete($user);
WebGUI::Test->addToCleanup($user);
$session->user({user => $user});
#----------------------------------------------------------------------------

2
t/Shop/ShipDriver/USPS.t
View file

@ -31,7 +31,7 @@ plan tests => 69;
# Init
my $session = WebGUI::Test->session;
my $user = WebGUI::User->create($session);
WebGUI::Test->usersToDelete($user);
WebGUI::Test->addToCleanup($user);
$session->user({user => $user});
#----------------------------------------------------------------------------

2
t/Shop/ShipDriver/USPSInternational.t
View file

@ -31,7 +31,7 @@ plan tests => 40;
# Init
my $session = WebGUI::Test->session;
my $user = WebGUI::User->create($session);
WebGUI::Test->usersToDelete($user);
WebGUI::Test->addToCleanup($user);
$session->user({user => $user});
#----------------------------------------------------------------------------

2
t/Shop/TaxDriver/EU.t
View file

@ -35,7 +35,7 @@ my $session = WebGUI::Test->session;
# Test user
my $taxUser = WebGUI::User->new( $session, 'new' );
$taxUser->username( 'Tex Evasion' );
WebGUI::Test->usersToDelete($taxUser);
WebGUI::Test->addToCleanup($taxUser);
# Test VAT numbers
my $testVAT_NL = 'NL123456789B12';

2
t/Shop/Vendor.t
View file

@ -45,7 +45,7 @@ my $fenceUser = WebGUI::User->new($session, 'new');
$fenceUser->username('fence');
my $guardUser = WebGUI::User->new($session, 'new');
$guardUser->username('guard');
WebGUI::Test->usersToDelete($fenceUser, $guardUser);
WebGUI::Test->addToCleanup($fenceUser, $guardUser);
SKIP: {