Add failing test for feature I want.

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / lib / TestSchemaBaseClass.pm

diff --git a/t/lib/TestSchemaBaseClass.pm b/t/lib/TestSchemaBaseClass.pm
new file mode 100644 (file)
index 0000000..82e36dc
--- /dev/null
+++ b/t/lib/TestSchemaBaseClass.pm
@@ -0,0 +1,16 @@
+package TestSchemaBaseClass;
+use base DBIx::Class::Schema;
+
+our $test_ok = 0;
+
+sub connection {
+    my ($self, @info) = @_;
+
+    if ($info[0] =~ /^dbi/) {
+        $test_ok = 1;
+    }
+
+    return $self->next::method(@info);
+}
+
+1;