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

more upgrade testing

Browse source
This commit is contained in:
Graham Knop 2010-03-19 12:26:17 -05:00
parent d41dc5adb6
commit 15ed4f97e4
7 changed files with 37 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Upgrade/File/pl.pm
View file

@ -69,7 +69,7 @@ sub session () {
require WebGUI::Session; require WebGUI::Session;
$session = WebGUI::Session->open(config); $session = WebGUI::Session->open(config);
$session->user({user => 3}); $session->user({userId => 3});
return $session; return $session;
} }

2
lib/WebGUI/Upgrade/File/wgpkg.pm
View file

@ -14,7 +14,7 @@ sub run {
my ($configFile, $version, $file, $quiet) = @_; my ($configFile, $version, $file, $quiet) = @_;
my $session = WebGUI::Session->open($configFile); my $session = WebGUI::Session->open($configFile);
$session->user({user => 3}); $session->user({userId => 3});
# Make a storage location for the package # Make a storage location for the package
my $storage = WebGUI::Storage->createTemp( $session ); my $storage = WebGUI::Storage->createTemp( $session );

29
t/Upgrade.t
View file

@ -19,6 +19,7 @@ BEGIN {
use WebGUI::Paths; use WebGUI::Paths;
use WebGUI::Upgrade; use WebGUI::Upgrade;
use WebGUI::Session::Id;
use Try::Tiny; use Try::Tiny;
use Capture::Tiny qw(capture); use Capture::Tiny qw(capture);
use mro; use mro;
@ -72,7 +73,7 @@ ok $stdout !~ 'Done', 'quiet flag silences done command';
capture { capture {
try { try {
$upgrade->runUpgradeFile($configFile, '8.3.0', collateral('upgrades', 'die.pl'), 1); $upgrade->runUpgradeFile($configFile, '8.3.0', collateral('upgrades', 'die.pl'));
fail 'Error on failing upgrade'; fail 'Error on failing upgrade';
} }
catch { catch {
@ -82,7 +83,7 @@ capture {
capture { capture {
try { try {
$upgrade->runUpgradeFile($configFile, '8.3.0', collateral('upgrades', 'strict-failure.pl'), 1); $upgrade->runUpgradeFile($configFile, '8.3.0', collateral('upgrades', 'strict-failure.pl'));
fail 'strict enabled in upgrades'; fail 'strict enabled in upgrades';
} }
catch { catch {
@ -90,5 +91,29 @@ capture {
}; };
}; };
my $session = WebGUI::Test->session;
my $dbh = $upgrade->dbhForConfig(WebGUI::Test->config);
my ($totalAssets) = $dbh->selectrow_array('SELECT COUNT(*) FROM asset');
($stdout, $stderr) = capture {
$upgrade->runUpgradeFile($configFile, '8.3.0', collateral('upgrades', 'dbh.pl'));
};
is $stdout, $totalAssets, 'dbh function working correctly';
($stdout, $stderr) = capture {
$upgrade->runUpgradeFile($configFile, '8.3.0', collateral('upgrades', 'config.pl'));
};
is $stdout, $configFile, 'config function working correctly';
($stdout, $stderr) = capture {
$upgrade->runUpgradeFile($configFile, '8.3.0', collateral('upgrades', 'session.pl'));
};
ok(WebGUI::Session::Id::valid({}, $stdout), 'valid session id generated');
my ($hasSession) = $dbh->selectrow_array('SELECT COUNT(*) FROM userSession WHERE sessionId = ?', {}, $stdout);
ok !$hasSession, 'session properly closed';
done_testing; done_testing;

1
t/lib/WebGUI/Test.pm
View file

@ -26,6 +26,7 @@ use strict;
use warnings; use warnings;
use base qw(Test::Builder::Module); use base qw(Test::Builder::Module);
use Log::Log4perl;
use Test::MockObject; use Test::MockObject;
use Test::MockObject::Extends; use Test::MockObject::Extends;
use Log::Log4perl; # load early to ensure proper order of END blocks use Log::Log4perl; # load early to ensure proper order of END blocks

2
t/supporting_collateral/upgrades/config.pl Normal file
View file

@ -0,0 +1,2 @@
print config->getFilename;

3
t/supporting_collateral/upgrades/dbh.pl Normal file
View file

@ -0,0 +1,3 @@
my ($totalAssets) = dbh->selectrow_array('SELECT COUNT(*) FROM asset');
print $totalAssets;

2
t/supporting_collateral/upgrades/session.pl Normal file
View file

@ -0,0 +1,2 @@
print session->getId;