[Catalyst-commits] r13683 - trunk/Catalyst-Plugin-PageCache/t

[timbunce at dev.catalyst.perl.org]

Author: timbunce
Date: 2010-11-01 23:31:59 +0000 (Mon, 01 Nov 2010)
New Revision: 13683

Modified:
   trunk/Catalyst-Plugin-PageCache/t/09datetime.t
Log:
make time-sensitive test more robust

Modified: trunk/Catalyst-Plugin-PageCache/t/09datetime.t
===================================================================
--- trunk/Catalyst-Plugin-PageCache/t/09datetime.t	2010-11-01 23:31:36 UTC (rev 13682)
+++ trunk/Catalyst-Plugin-PageCache/t/09datetime.t	2010-11-01 23:31:59 UTC (rev 13683)
@@ -30,7 +30,8 @@
 TestApp->config->{'Plugin::PageCache'}->{set_http_headers} = 1;
 
 # cache a page
-my $cache_time = time;
+my $cache_time = time + 1;
+1 while time < $cache_time; # spin till clock ticks to make test more robust
 ok( my $res = request('http://localhost/cache/test_datetime'), 'request ok' );
 is( $res->content, 1, 'count is 1' );