From: John Napiorkowski <jjn1056@yahoo.com>
Date: Mon, 6 Feb 2012 19:13:50 +0000 (-0500)
Subject: failing test for dumping schema inside a txn
X-Git-Tag: 0.07017~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class-Schema-Loader.git;a=commitdiff_plain;h=9d78b02b432c530131dd5bbc56892d1203a9b5eb

failing test for dumping schema inside a txn
---

diff --git a/t/lib/dbixcsl_common_tests.pm b/t/lib/dbixcsl_common_tests.pm
index cab4b54..dcb9b9f 100644
--- a/t/lib/dbixcsl_common_tests.pm
+++ b/t/lib/dbixcsl_common_tests.pm
@@ -119,7 +119,7 @@ sub run_tests {
     $num_rescans++ if $self->{vendor} eq 'Firebird';
 
     plan tests => @connect_info *
-        (220 + $num_rescans * $col_accessor_map_tests + $extra_count + ($self->{data_type_tests}{test_count} || 0));
+        (221 + $num_rescans * $col_accessor_map_tests + $extra_count + ($self->{data_type_tests}{test_count} || 0));
 
     foreach my $info_idx (0..$#connect_info) {
         my $info = $connect_info[$info_idx];
@@ -1216,6 +1216,25 @@ EOF
     # run extra tests
     $self->{extra}{run}->($conn, $monikers, $classes, $self) if $self->{extra}{run};
 
+    ## Create a SL from existing $dbh
+
+    ok eval {
+    my %opts = (
+      naming => { ALL => 'v7'},
+      use_namespaces => 1,
+      debug => $ENV{DBIC_SL_SCHEMA_FROM_DEBUG}||0);
+
+    my $guard = $schema_class->txn_scope_guard;
+
+    my $schema_from = DBIx::Class::Schema::Loader::make_schema_at(
+        "TestSchemFromAnother", \%opts, [ sub {$schema_class->storage->dbh} ]);
+
+    $guard->commit;
+
+    1 }, 'Making a schema from another schema inside a transaction worked';
+
+    diag $@ if $@;
+
     $self->drop_tables unless $ENV{SCHEMA_LOADER_TESTS_NOCLEANUP};
 
     $conn->storage->disconnect;