Changeset 438

Timestamp:

05/11/08 21:38:29 (4 years ago)

Author:

dom

Message:

More setup for upgrade testing

Location:

wiki-toolkit/trunk/lib/Wiki/Toolkit

Files:

• Setup/Database.pm (modified) (1 diff)
• Setup/MySQL.pm (modified) (2 diffs)
• Setup/Pg.pm (modified) (2 diffs)
• Setup/SQLite.pm (modified) (2 diffs)
• TestLib.pm (modified) (1 diff)

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

@@ -3 +3 @@
 use strict;
 
-use vars qw( $VERSION );
+use vars qw( $VERSION @SUPPORTED_SCHEMAS );
 
 $VERSION = 0.08;
+@SUPPORTED_SCHEMAS = qw(9);
 
 =head1 NAME

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

@@ -3 +3 @@
 use strict;
 
-use vars qw( @ISA $VERSION );
+use vars qw( @ISA $VERSION $SCHEMA_VERSION );
 
 use Wiki::Toolkit::Setup::Database;
@@ -13 +13 @@
 use Carp;
 
-my $SCHEMA_VERSION = $VERSION*100;
+$SCHEMA_VERSION = $VERSION*100;
 
 my $create_sql = {

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

@@ -3 +3 @@
 use strict;
 
-use vars qw( @ISA $VERSION );
+use vars qw( @ISA $VERSION $SCHEMA_VERSION );
 
 use Wiki::Toolkit::Setup::Database;
@@ -13 +13 @@
 use Carp;
 
-my $SCHEMA_VERSION = $VERSION*100;
+$SCHEMA_VERSION = $VERSION*100;
 
 my $create_sql = {

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

@@ -3 +3 @@
 use strict;
 
-use vars qw( @ISA $VERSION );
+use vars qw( @ISA $VERSION $SCHEMA_VERSION );
 
 use Wiki::Toolkit::Setup::Database;
@@ -13 +13 @@
 use Carp;
 
-my $SCHEMA_VERSION = $VERSION*100;
+$SCHEMA_VERSION = $VERSION*100;
 
 my $create_sql = {

wiki-toolkit/trunk/lib/Wiki/Toolkit/TestLib.pm

@@ -271 +271 @@
 }
 
-=item B<wiki_info>
-
-  my @wiki_info = $iterator->wiki_info;
-
-  Returns the @wiki_info array detailing configured test backends.
+=item B<configured_databases>
+
+  my @configured_databases = $iterator->configured_databases;
+
+  Returns the @configured_databases array detailing configured test databases.
   Useful for very low-level testing only.
 
 =cut
 
-sub wiki_info {
-    @wiki_info;
+sub configured_databases {
+    my @configured_databases;
+    foreach my $dbtype (qw( MySQL Pg SQLite )) {
+        push @configured_databases, $datastore_info{$dbtype}
+            if $datastore_info{$dbtype};
+    }
+    return @configured_databases;
 }