X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fadmin%2F02ddl.t;fp=t%2Fadmin%2F02ddl.t;h=de1f067455be6e356ae538eb9210fe66296208d6;hb=6daebebcb2de423295dc746b5ec9fc656e56f746;hp=3a5bb9cfb9b879dee0d52d8195429976662a208d;hpb=a16961952cf7cbfd55f6bd792221258ff7fcc0ef;p=dbsrgits%2FDBIx-Class.git diff --git a/t/admin/02ddl.t b/t/admin/02ddl.t index 3a5bb9c..de1f067 100644 --- a/t/admin/02ddl.t +++ b/t/admin/02ddl.t @@ -93,6 +93,9 @@ $admin = DBIx::Class::Admin->new( $admin->preversion("1.0"); lives_ok { $admin->create($schema->storage->sqlt_type(), ); } 'Can create diff for ' . $schema->storage->sqlt_type; +# sleep required for upgrade table to hold a distinct time of upgrade value +# otherwise the returned of get_db_version can be undeterministic +sleep 1; lives_ok {$admin->upgrade();} 'upgrade the schema'; is($schema->get_db_version, $DBICVersion::Schema::VERSION, 'Schema and db versions match');