The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/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;
}