fix Win32 file use error in t/storage/reconnect.t

[dbsrgits/DBIx-Class.git] / t / storage / deploy.t

diff --git a/t/storage/deploy.t b/t/storage/deploy.t
index d2bca43..3b9435b 100644 (file)
--- a/t/storage/deploy.t
+++ b/t/storage/deploy.t
@@ -2,6 +2,7 @@ use strict;
 use warnings;
 
 use Test::More;
+use Test::Exception;
 
 use lib qw(t/lib);
 use DBICTest;
@@ -16,6 +17,13 @@ BEGIN {
 use File::Spec;
 use Path::Class qw/dir/;
 use File::Path qw/make_path remove_tree/;
+
+lives_ok( sub {
+    my $parse_schema = DBICTest->init_schema(no_deploy => 1);
+    $parse_schema->deploy({},'t/lib/test_deploy');
+    $parse_schema->resultset("Artist")->all();
+}, 'artist table deployed correctly' );
+
 my $schema = DBICTest->init_schema();
 
 my $var = dir (qw| t var create_ddl_dir |);