Merge branch 'master' into topic/constructor_rewrite

[dbsrgits/DBIx-Class.git] / t / lib / testinclude / DBICTestConfig.pm

diff --git a/t/lib/testinclude/DBICTestConfig.pm b/t/lib/testinclude/DBICTestConfig.pm
new file mode 100644 (file)
index 0000000..10f0b7f
--- /dev/null
+++ b/t/lib/testinclude/DBICTestConfig.pm
@@ -0,0 +1,15 @@
+package DBICTestConfig;
+use base 'DBIx::Class::Schema';
+
+sub connect {
+  my($self, @opt) = @_;
+  @opt == 4
+    and $opt[0] eq 'klaatu'
+    and $opt[1] eq 'barada'
+    and $opt[2] eq 'nikto'
+    and $opt[3]->{ignore_version}
+    and exit 71; # this is what the test will expect to see
+  exit 1;
+}
+
+1;