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

more upgrades progress

Browse source
This commit is contained in:
Graham Knop 2010-05-10 16:58:56 -05:00
parent 00b3113031
commit adf3dbbe04
17 changed files with 90 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

20
t/Upgrade.t
View file

@ -14,11 +14,6 @@ use Test::MockObject::Extends;
use File::Temp;
use File::Path qw(make_path);
BEGIN {
$INC{'WebGUI.pm'} = 1;
$WebGUI::VERSION = '8.4.3';
}
use WebGUI::Paths;
use WebGUI::Upgrade;
use WebGUI::Session::Id;
@ -37,6 +32,13 @@ our $configFile = WebGUI::Test->config->getFilename;
my $upgrade = Test::MockObject::Extends->new('WebGUI::Upgrade');
$upgrade->set_always('getCurrentVersion', '8.0.0');
$upgrade->set_always('getCodeVersion', '8.4.3');
{
no warnings 'redefine';
*WebGUI::Paths::upgrades = sub { collateral('Upgrade', 'non-existant') } ;
}
ok ! try { $upgrade->calcUpgradePath('8.0.0', '8.4.3'); 1 }, "calcUpgradePath dies when upgrades path doesn't exist";
{
no warnings 'redefine';
@ -65,9 +67,11 @@ capture {
};
$upgrade->called_pos_ok(1, 'getCurrentVersion');
$upgrade->called_pos_ok(2, 'runUpgradeFile');
my $upgradeFile = $upgrade->call_args_pos(2, 4);
ok $upgradeFile =~ /\b00_simple\.pl$/, 'correct upgrade file run';
SKIP: {
$upgrade->called_pos_ok(2, 'runUpgradeFile') || skip 'upgrade not run', 1;
my $upgradeFile = $upgrade->call_args_pos(2, 4);
ok $upgradeFile =~ /\b00_simple\.pl$/, 'correct upgrade file run';
}
$upgrade->clear;
$upgrade->unmock('runUpgradeFile');

1
t/supporting_collateral/Upgrade/collateral.pl
View file

@ -1,3 +1,4 @@
use WebGUI::Upgrade::Script;
my $c = collateral;
::isa_ok $c, 'Path::Class::Dir';

1
t/supporting_collateral/Upgrade/config.pl
View file

@ -1,2 +1,3 @@
use WebGUI::Upgrade::Script;
::is config->getFilename, $::configFile, 'config function works correctly';

1
t/supporting_collateral/Upgrade/dbh.pl
View file

@ -1,3 +1,4 @@
use WebGUI::Upgrade::Script;
my $totalAssets = dbh->selectrow_array('SELECT COUNT(*) FROM asset');
::is $totalAssets, $::totalAssets, 'dbh function working correctly';

1
t/supporting_collateral/Upgrade/die.pl
View file

@ -1,2 +1,3 @@
use WebGUI::Upgrade::Script;
die "Upgrade failure\n";

0
t/supporting_collateral/Upgrade/impossible/.exists Normal file
View file

1
t/supporting_collateral/Upgrade/output.pl
View file

@ -1,3 +1,4 @@
use WebGUI::Upgrade::Script;
report 'Simple Output';
done;

1
t/supporting_collateral/Upgrade/package.pl
View file

@ -1,3 +1,4 @@
use WebGUI::Upgrade::Script;
::addToCleanup(version_tag);
import_package('test-template.wgpkg');

1
t/supporting_collateral/Upgrade/rmlib.pl
View file

@ -1,2 +1,3 @@
use WebGUI::Upgrade::Script;
rm_lib 'WebGUI::Upgrade::Test::Module';

1
t/supporting_collateral/Upgrade/session.pl
View file

@ -1,3 +1,4 @@
use WebGUI::Upgrade::Script;
my $s = session;
::isa_ok $s, 'WebGUI::Session';
::is $s, session, 'session properly cached';

1
t/supporting_collateral/Upgrade/strict-failure.pl
View file

@ -1,2 +1,3 @@
use WebGUI::Upgrade::Script;
$variable = "value";

1
t/supporting_collateral/Upgrade/valid/8.0.0-8.4.0/00_simple.pl → t/supporting_collateral/Upgrade/valid/8.0.0-8.4.3/00_simple.pl
View file

@ -1,3 +1,4 @@
use WebGUI::Upgrade::Script;
report "Simple Upgrade Step";
done;

1
t/supporting_collateral/Upgrade/versiontag-implicit.pl
View file

@ -1,3 +1,4 @@
use WebGUI::Upgrade::Script;
use WebGUI::Asset;
use WebGUI::Asset::Snippet;
WebGUI::Asset->getRoot(session)->addChild({

1
t/supporting_collateral/Upgrade/versiontag.pl
View file

@ -1,3 +1,4 @@
use WebGUI::Upgrade::Script;
my $vt = version_tag;
::addToCleanup($vt);