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

more bug/test fixes

Browse source
This commit is contained in:
Graham Knop 2009-03-26 22:12:21 +00:00
parent 1901c650e5
commit c1d04f220a
2 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
docs/upgrades/upgrade_7.7.0-7.7.1.pl
View file

@ -48,7 +48,7 @@ finish($session); # this line required
sub addSurveyQuestionTypes{
my $session = shift;
print "\tAdding new survey table Survey_questionTypes \n" unless $quiet;
print "\tAdding new survey table Survey_questionTypes... " unless $quiet;
$session->db->write("
CREATE TABLE `Survey_questionTypes` (
`questionType` varchar(56) NOT NULL,
@ -75,7 +75,7 @@ sub addRssLimit {
print "\tAdding rssLimit to RSSCapable table, if needed... " unless $quiet;
my $sth = $session->db->read('describe RSSCapable rssCapableRssLimit');
if (! defined $sth->hashRef) {
$session->db->write("alter table RSSCapable add column rssCableRssLimit integer");
$session->db->write("alter table RSSCapable add column rssCapableRssLimit integer");
}
print "Done.\n" unless $quiet;
}
@ -104,7 +104,8 @@ sub addStatisticsCacheTimeoutToMatrix{
# Describe what our function does
sub adSkuInstall {
my $session = shift;
print "\tCreate AdSku database table." unless $quiet;
print "\tInstalling the AdSku Asset...\n" unless $quiet;
print "\t\tCreate AdSku database table.\n" unless $quiet;
$session->db->write("CREATE TABLE AdSku (
assetId VARCHAR(22) BINARY NOT NULL,
revisionDate BIGINT NOT NULL,
@ -118,12 +119,12 @@ sub adSkuInstall {
impressionDiscounts VARCHAR(1024) default '',
PRIMARY KEY (assetId,revisionDate)
)");
print "\tCreate Adsku crud table.\n" unless $quiet;
print "\t\tCreate Adsku crud table.\n" unless $quiet;
use WebGUI::AssetCollateral::Sku::Ad::Ad;
WebGUI::AssetCollateral::Sku::Ad::Ad->crud_createTable($session);
print "\tInstalling the AdSku Asset.\n" unless $quiet;
print "\t\tAdding to config file.\n" unless $quiet;
$session->config->addToHash("assets", 'WebGUI::Asset::Sku::Ad' => { category => 'shop' } );
print "DONE!\n" unless $quiet;
print "\tDone.\n" unless $quiet;
}
#----------------------------------------------------------------------------

1
t/Account/Friends.t
View file

@ -46,6 +46,7 @@ SKIP: { # Not everyone has Test::Exception yet
my $friends;
# ok() tests booleans. assignment evaluates to the value assigned (it's how '$a = $b = 4' works)
my $account;
ok( $account = WebGUI::Account->new( $session ),
"WebGUI::Account object created successfully"
);