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

make the upgrade script remove SQLForm files, code, Help, i18n and test. Retire the SQLForm test in the repo

Browse source
This commit is contained in:
Colin Kuskie 2008-05-30 06:59:56 +00:00
parent 3ae5587b64
commit f41d53aa90
2 changed files with 4 additions and 89 deletions
Download patch file Download diff file Expand all files Collapse all files

4
docs/upgrades/upgrade_7.5.10-7.5.11.pl
View file

@ -89,6 +89,10 @@ sub removeSqlForm {
foreach my $table (qw(SQLForm_fieldDefinitions SQLForm SQLForm_fieldTypes SQLForm_regexes)) {
$db->write("drop table $table");
}
unlink '../../lib/WebGUI/Asset/Wobject/SQLForm.pm';
unlink '../../lib/WebGUI/Help/Asset_SQLForm.pm';
unlink '../../lib/WebGUI/i18n/English/Asset_SQLForm.pm';
unlink '../../t/Asset/Wobject/SQLForm.t';
}
else {
print "\t\tThis site uses SQL Form, so we won't uninstall it.\n" unless $quiet;

89
t/Asset/Wobject/SQLForm.t
View file

@ -1,89 +0,0 @@
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2008 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use FindBin;
use strict;
use File::Spec;
use lib "$FindBin::Bin/../../lib";
##The goal of this test is to test the creation of SQLForm Wobjects.
use WebGUI::Test;
use WebGUI::Session;
use Test::More tests => 10; # increment this value for each test you create
use WebGUI::Asset::Wobject::SQLForm;
my $session = WebGUI::Test->session;
# Do our work in the import node
my $node = WebGUI::Asset->getImportNode($session);
my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"SQLForm Test"});
my $sqlForm = $node->addChild({className=>'WebGUI::Asset::Wobject::SQLForm'});
# Test for a sane object type
isa_ok($sqlForm, 'WebGUI::Asset::Wobject::SQLForm');
# Test to see if we can set new values
my $newSQLFormSettings = {
tableName=>'SQLForm_test',
};
$sqlForm->update($newSQLFormSettings);
foreach my $newSetting (keys %{$newSQLFormSettings}) {
is ($sqlForm->get($newSetting), $newSQLFormSettings->{$newSetting}, "updated $newSetting is ".$newSQLFormSettings->{$newSetting});
}
# Test value that uiLevel returns
my $uiLevel = $sqlForm->uiLevel;
ok($uiLevel eq '9', "UI Level is set to $uiLevel");
# Lets make sure the view method returns something.
# This is not a very good test but I need to do it to test the purgeCache method anyways =)
is ($sqlForm->{_viewTemplate}, undef, 'internal template cache unset until prepareView is called');
my $ac = $sqlForm->getAdminConsoleWithSubmenu;
ok($ac, 'getAdminConsoleWithSubmenu returns a value');
# Lets make sure we can get the edit form
# This could be improved...
my $edit_form = $sqlForm->getEditForm;
ok($edit_form, 'getEditForm returned a value');
ok($edit_form->{_tab}{properties}{form}{_data}, 'getEditForm returned data for the form');
# not sure if this method is even used...grep of source showed no use of this method.
#$indexer = $sqlForm->getIndexerParams;
#$sqlForm->prepareView;
#isnt ($sqlForm->{_viewTemplate}, undef, 'internal template cache set by prepare view');
#isa_ok ($sqlForm->{_viewTemplate}, 'WebGUI::Asset::Template', 'internal template cache');
my $output = $sqlForm->view;
isnt ($output, "", 'view method returns something');
my $editField = $sqlForm->www_editField;
ok($editField, 'www_editField returned a value');
# Lets see if caching works
my $cachedOutput = WebGUI::Cache->new($session, 'view_'.$sqlForm->getId)->get;
#is ($output, $cachedOutput, 'view method caches output');
# Lets see if the purgeCache method works
$sqlForm->purgeCache;
$cachedOutput = WebGUI::Cache->new($session, 'view_'.$sqlForm->getId)->get; # Check cache post purge
isnt ($output, $cachedOutput, 'purgeCache method deletes cache');
END {
# Clean up after thy self
$versionTag->rollback();
}