From f41d53aa9014ee977eee20c595edf087c96b4fb5 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 30 May 2008 06:59:56 +0000
Subject: [PATCH] make the upgrade script remove SQLForm files, code, Help,
 i18n and test.  Retire the SQLForm test in the repo

---
 docs/upgrades/upgrade_7.5.10-7.5.11.pl |  4 ++
 t/Asset/Wobject/SQLForm.t              | 89 --------------------------
 2 files changed, 4 insertions(+), 89 deletions(-)
 delete mode 100644 t/Asset/Wobject/SQLForm.t

diff --git a/docs/upgrades/upgrade_7.5.10-7.5.11.pl b/docs/upgrades/upgrade_7.5.10-7.5.11.pl
index 8902137cf..c1ba7a28a 100644
--- a/docs/upgrades/upgrade_7.5.10-7.5.11.pl
+++ b/docs/upgrades/upgrade_7.5.10-7.5.11.pl
@@ -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;
diff --git a/t/Asset/Wobject/SQLForm.t b/t/Asset/Wobject/SQLForm.t
deleted file mode 100644
index 0ed392825..000000000
--- a/t/Asset/Wobject/SQLForm.t
+++ /dev/null
@@ -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();
-}
-