X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-DBIx-Class-ResultSet-RecursiveUpdate;a=blobdiff_plain;f=t%2Flib%2FDBSchemaBase.pm;fp=t%2Flib%2FDBSchemaBase.pm;h=4b7e6a4952d8253d9909355717fe34cd9c7d97a4;hp=5b19a6e5d8dba63371ca9e7e7957a209a380fdc2;hb=7a1370a25e46f41b28349f9fb225e3b8caa6791c;hpb=9dc8938b884bc17212e662c80e43750325287938

diff --git a/t/lib/DBSchemaBase.pm b/t/lib/DBSchemaBase.pm
index 5b19a6e..4b7e6a4 100644
--- a/t/lib/DBSchemaBase.pm
+++ b/t/lib/DBSchemaBase.pm
@@ -11,10 +11,10 @@ sub tables_exist {
 }
 
 sub get_test_schema {
-    my ( $class, $dsn, $user, $pass ) = @_;
+    my ( $class, $dsn, $user, $pass, $opts ) = @_;
     $dsn ||= 'dbi:SQLite:dbname=t/var/dvdzbr.db';
     warn "testing $dsn\n";
-    my $schema = $class->connect( $dsn, $user, $pass, {} );
+    my $schema = $class->connect( $dsn, $user, $pass, $opts || {} );
     my $deploy_attrs;
     $deploy_attrs->{add_drop_table} = 1 if tables_exist( $schema->storage->dbh );
     $schema->deploy( $deploy_attrs );