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

[goraxe at dev.catalyst.perl.org]

Author: goraxe
Date: 2009-12-12 16:38:07 +0000 (Sat, 12 Dec 2009)
New Revision: 8076

Modified:
   DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/02ddl.t
Log:
add sleep 1 to t/admin/02ddl.t so insert into upgrade table does not happen too quickly

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-12 16:37:38 UTC (rev 8075)
+++ DBIx-Class/0.08/branches/dbicadmin_refactor/t/admin/02ddl.t	2009-12-12 16:38:07 UTC (rev 8076)
@@ -93,6 +93,9 @@
 
 $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');