Changeset 319 for wiki-toolkit/trunk/lib/Wiki/Toolkit/Setup/Database.pm

Timestamp:

06/02/06 19:40:31 (6 years ago)

Author:

dom

Message:

Check that we can do all we need to when upgrading MySQL database (closes #8)

Files:

• wiki-toolkit/trunk/lib/Wiki/Toolkit/Setup/Database.pm (modified) (1 diff)

wiki-toolkit/trunk/lib/Wiki/Toolkit/Setup/Database.pm

@@ -254 +254 @@
     print "done\n";
 }
+
+sub perm_check {
+    my $dbh = shift;
+    # If we can do all this, we'll be able to do a bulk upgrade too
+    eval {
+        my $sth = $dbh->prepare("CREATE TABLE dbtest (test int)");
+        $sth->execute;
+
+        $sth = $dbh->prepare("CREATE INDEX dbtest_index ON dbtest (test)");
+        $sth->execute;
+
+        $sth = $dbh->prepare("DROP TABLE dbtest");
+        $sth->execute;
+    };
+    return $@;
+}