[perl-cache commit] r558 - switch to MMA

[codesite...@google.com]

Author: phar...@gmail.com
Date: Tue Mar 17 19:04:39 2009
New Revision: 558

Added:
mma-driver/t/Driver-MMA.t
- copied, changed from r557, /mma-driver/t/Driver-DBI-mysql.t
Removed:
mma-driver/t/Driver-DBI-SQLite.t
mma-driver/t/Driver-DBI-mysql.t
Modified:
mma-driver/lib/CHI/t/Driver/MMA.pm

Log:
switch to MMA

Modified: mma-driver/lib/CHI/t/Driver/MMA.pm
==============================================================================
--- mma-driver/lib/CHI/t/Driver/MMA.pm (original)
+++ mma-driver/lib/CHI/t/Driver/MMA.pm Tue Mar 17 19:04:39 2009
@@ -1,38 +1,12 @@
-package CHI::t::Driver::DBI;
+package CHI::t::Driver::MMA;

use strict;
use warnings;

-use DBI;
use base qw(CHI::t::Driver);

-sub testing_driver_class { 'CHI::Driver::DBI' }
+sub testing_driver_class { 'CHI::Driver::MMA' }
sub supports_get_namespaces { 0 }
-
-sub SKIP_CLASS {
- my $class = shift;
-
- if ( not $class->dbh() ) {
- return "Unable to get a database connection";
- }
-
- return 0;
-}
-
-sub dbh {
- my $self = shift;
-
- eval {
- return DBI->connect(
- $self->dsn(),
- '', '',
- {
- RaiseError => 0,
- PrintError => 0,
- }
- );
- };
-}

sub new_cache_options {
my $self = shift;

Copied: mma-driver/t/Driver-MMA.t (from r557,
/mma-driver/t/Driver-DBI-mysql.t)
==============================================================================
--- /mma-driver/t/Driver-DBI-mysql.t (original)
+++ mma-driver/t/Driver-MMA.t Tue Mar 17 19:04:39 2009
@@ -1,5 +1,5 @@
#!perl -w
use strict;
use warnings;
-use CHI::t::Driver::DBI::mysql;
-CHI::t::Driver::DBI::mysql->runtests;
+use CHI::t::Driver::MMA;
+CHI::t::Driver::MMA->runtests;