Dogcows Code - chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate/blob - t/mysql.t

   1 use strict;
   2 use warnings;
   3 use lib 't/lib';
   4 use DBSchema;
   5 use RunTests;
   6 use Test::More;
   7
   8 my ( $dsn, $user, $pass ) =
   9     @ENV{ map {"DBICTEST_MYSQL_${_}"} qw/DSN USER PASS/ };
  10
  11 plan skip_all => 'Set $ENV{DBICTEST_MYSQL_DSN}, _USER and _PASS to run this test'
  12     . ' (note: creates and tables!)'
  13     unless ( $dsn && $user );
  14
  15 my $schema = DBSchema->get_test_schema( $dsn, $user, $pass, );
  16 run_tests($schema);