Changeset 438


Ignore:
Timestamp:
May 11, 2008, 9:38:29 PM (14 years ago)
Author:
Dominic Hargreaves
Message:

More setup for upgrade testing

Location:
wiki-toolkit/trunk/lib/Wiki/Toolkit
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • wiki-toolkit/trunk/lib/Wiki/Toolkit/Setup/Database.pm

    r437 r438  
    33use strict;
    44
    5 use vars qw( $VERSION );
     5use vars qw( $VERSION @SUPPORTED_SCHEMAS );
    66
    77$VERSION = 0.08;
     8@SUPPORTED_SCHEMAS = qw(9);
    89
    910=head1 NAME
  • wiki-toolkit/trunk/lib/Wiki/Toolkit/Setup/MySQL.pm

    r437 r438  
    33use strict;
    44
    5 use vars qw( @ISA $VERSION );
     5use vars qw( @ISA $VERSION $SCHEMA_VERSION );
    66
    77use Wiki::Toolkit::Setup::Database;
     
    1313use Carp;
    1414
    15 my $SCHEMA_VERSION = $VERSION*100;
     15$SCHEMA_VERSION = $VERSION*100;
    1616
    1717my $create_sql = {
  • wiki-toolkit/trunk/lib/Wiki/Toolkit/Setup/Pg.pm

    r437 r438  
    33use strict;
    44
    5 use vars qw( @ISA $VERSION );
     5use vars qw( @ISA $VERSION $SCHEMA_VERSION );
    66
    77use Wiki::Toolkit::Setup::Database;
     
    1313use Carp;
    1414
    15 my $SCHEMA_VERSION = $VERSION*100;
     15$SCHEMA_VERSION = $VERSION*100;
    1616
    1717my $create_sql = {
  • wiki-toolkit/trunk/lib/Wiki/Toolkit/Setup/SQLite.pm

    r437 r438  
    33use strict;
    44
    5 use vars qw( @ISA $VERSION );
     5use vars qw( @ISA $VERSION $SCHEMA_VERSION );
    66
    77use Wiki::Toolkit::Setup::Database;
     
    1313use Carp;
    1414
    15 my $SCHEMA_VERSION = $VERSION*100;
     15$SCHEMA_VERSION = $VERSION*100;
    1616
    1717my $create_sql = {
  • wiki-toolkit/trunk/lib/Wiki/Toolkit/TestLib.pm

    r437 r438  
    271271}
    272272
    273 =item B<wiki_info>
    274 
    275   my @wiki_info = $iterator->wiki_info;
    276 
    277   Returns the @wiki_info array detailing configured test backends.
     273=item B<configured_databases>
     274
     275  my @configured_databases = $iterator->configured_databases;
     276
     277  Returns the @configured_databases array detailing configured test databases.
    278278  Useful for very low-level testing only.
    279279
    280280=cut
    281281
    282 sub wiki_info {
    283     @wiki_info;
     282sub configured_databases {
     283    my @configured_databases;
     284    foreach my $dbtype (qw( MySQL Pg SQLite )) {
     285        push @configured_databases, $datastore_info{$dbtype}
     286            if $datastore_info{$dbtype};
     287    }
     288    return @configured_databases;
    284289}
    285290
Note: See TracChangeset for help on using the changeset viewer.