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);