Skip to content

Commit 45d1468

Browse files
bmwiedemannoalders
authored andcommitted
Make test pass in 2025
Background: As part of my work on reproducible builds for openSUSE, I check that software still gives identical build results in the future. The usual offset is +15 years, because that is how long I expect some software will be used in some places. This showed up failing tests in our package build. See https://reproducible-builds.org/ for why this matters.
1 parent 7616e32 commit 45d1468

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

t/issue32.t

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -7,12 +7,12 @@ use HTTP::Request;
77
use HTTP::Response;
88

99
my $req = HTTP::Request->new(GET => "http://example.com");
10-
my $resp = HTTP::Response->new(200, 'OK', ['Set-Cookie', q!a="b;c;\\"d"; expires=Fri, 06-Nov-2025 08:58:34 GMT; domain=example.com; path=/!]);
10+
my $resp = HTTP::Response->new(200, 'OK', ['Set-Cookie', q!a="b;c;\\"d"; expires=Fri, 06-Nov-2999 08:58:34 GMT; domain=example.com; path=/!]);
1111
$resp->request($req);
1212

1313
my $c = HTTP::Cookies->new;
1414
$c->extract_cookies($resp);
15-
is $c->as_string, 'Set-Cookie3: a="b;c;\"d"; path="/"; domain=example.com; path_spec; expires="2025-11-06 08:58:34Z"; version=0' . "\n";
15+
is $c->as_string, 'Set-Cookie3: a="b;c;\"d"; path="/"; domain=example.com; path_spec; expires="2999-11-06 08:58:34Z"; version=0' . "\n";
1616

1717
# test the implementation of the split function in isolation.
1818
# should probably name the function better too.

0 commit comments

Comments
 (0)