From: Gordon Irving <goraxe@cpan.org>
Date: Wed, 2 Dec 2009 21:50:42 +0000 (+0000)
Subject: get deployment tests to pass
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1a01a17d72d259a40ceb02b46ea4aaf2ac0951c1;p=dbsrgits%2FDBIx-Class-Historic.git

get deployment tests to pass
---

diff --git a/t/admin/02ddl.t b/t/admin/02ddl.t
index 11f37f9..9c280e5 100644
--- a/t/admin/02ddl.t
+++ b/t/admin/02ddl.t
@@ -91,8 +91,10 @@ $admin = DBIx::Class::Admin->new(
 	connect_info => $schema->storage->connect_info(),
 );
 
-$admin->upgrade();
+lives_ok { $admin->create($schema->storage->sqlt_type(), {add_drop_table=>0}); } 'Can create DBICVersionOrig sql in ' . $schema->storage->sqlt_type;
+lives_ok {$admin->upgrade();} 'upgrade the schema';
 
+is($schema->get_db_version, $DBICVersion::Schema::VERSION, 'Schema deployed and versions match');
 
 }