[Bast-commits] r8013 - DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin

[goraxe at dev.catalyst.perl.org]

Author: goraxe
Date: 2009-12-02 21:50:42 +0000 (Wed, 02 Dec 2009)
New Revision: 8013

Modified:
   DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/02ddl.t
Log:
get deployment tests to pass

Modified: DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/02ddl.t
===================================================================
--- DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/02ddl.t	2009-12-02 21:49:27 UTC (rev 8012)
+++ DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/02ddl.t	2009-12-02 21:50:42 UTC (rev 8013)
@@ -91,8 +91,10 @@
 	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');
 
 }