get deployment tests to pass
Gordon Irving [Wed, 2 Dec 2009 21:50:42 +0000 (21:50 +0000)]
t/admin/02ddl.t

index 11f37f9..9c280e5 100644 (file)
@@ -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');
 
 }