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

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);