SOURCES: Perlbal-test_15_webserver.patch (NEW) - fix for t/15-webs...

[radek]

Author: radek                        Date: Sun Sep 16 17:54:57 2007 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- fix for t/15-webserver's assumption of time standing still

---- Files affected:
SOURCES:
   Perlbal-test_15_webserver.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: SOURCES/Perlbal-test_15_webserver.patch
diff -u /dev/null SOURCES/Perlbal-test_15_webserver.patch:1.1
--- /dev/null	Sun Sep 16 19:54:57 2007
+++ SOURCES/Perlbal-test_15_webserver.patch	Sun Sep 16 19:54:52 2007
@@ -0,0 +1,12 @@
+--- Perlbal-1.59/t/15-webserver.t.orig	2007-09-16 18:52:34.661705909 +0100
++++ Perlbal-1.59/t/15-webserver.t	2007-09-16 18:53:07.656672320 +0100
+@@ -64,7 +64,8 @@
+ ok(get("$url?foo=bar") eq $contents, "GET request");
+ 
+ {
+-    my $req = HTTP::Request->new(GET => $url, [ 'If-Modified-Since' => HTTP::Date::time2str() ]);
++    my $ims = HTTP::Date::time2str( ( stat $disk_file )[9] );
++    my $req = HTTP::Request->new(GET => $url, [ 'If-Modified-Since' => $ims ]);
+     my $res = $ua->request($req);
+ 
+     is($res->code, 304, "Got not modified");
================================================================