add test script for mysql

[chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate] / t / mysql.t

diff --git a/t/mysql.t b/t/mysql.t
new file mode 100644 (file)
index 0000000..3832fb3
--- /dev/null
+++ b/t/mysql.t
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+use lib 't/lib';
+use DBSchema;
+use RunTests;
+use Test::More;
+
+my ( $dsn, $user, $pass ) =
+    @ENV{ map {"DBICTEST_MYSQL_${_}"} qw/DSN USER PASS/ };
+
+plan skip_all => 'Set $ENV{DBICTEST_MYSQL_DSN}, _USER and _PASS to run this test'
+    . ' (note: creates and tables!)'
+    unless ( $dsn && $user );
+
+my $schema = DBSchema->get_test_schema( $dsn, $user, $pass, );
+run_tests($schema);