#!/usr/bin/perl -w use strict; use lib "t"; use lib "t/musicstore"; use Prerequisites; use Test::More tests => 2; BEGIN { use_ok "MusicStore"; }; local $/; SKIP: { my $dbh = DBI->connect( $DBConfig::cs, $DBConfig::user, $DBConfig::passwd ) or skip "could not connect to database", 1; $DBConfig::dialect->retreat(MusicStore->schema, $dbh); $DBConfig::dialect->retreat(MusicStore->new_schema, $dbh); pass("deploy completed without raising errors"); $dbh->disconnect; }