lib/PublicInbox/WwwAtomStream.pm | 3 ++- t/psgi_v2.t | 5 +++++ diff --git a/lib/PublicInbox/WwwAtomStream.pm b/lib/PublicInbox/WwwAtomStream.pm index f60251b7ef12c2779779e4e81bf9186689acca2e..5d32294eec159f58cb9b2ff7153f512c5d0d3b63 100644 --- a/lib/PublicInbox/WwwAtomStream.pm +++ b/lib/PublicInbox/WwwAtomStream.pm @@ -161,7 +161,8 @@ $s .= ''; } sub feed_updated { - '' . strftime('%Y-%m-%dT%H:%M:%SZ', gmtime(@_)) . ''; + my ($t) = @_; + '' . strftime('%Y-%m-%dT%H:%M:%SZ', gmtime($t)) . ''; } 1; diff --git a/t/psgi_v2.t b/t/psgi_v2.t index e057068226ac0eac778ec6cb82cea85ec38c8656..64c1a8d38a0a5b842568657bde03d71175ec17a3 100644 --- a/t/psgi_v2.t +++ b/t/psgi_v2.t @@ -92,6 +92,11 @@ $res = $cb->(GET('/v2test/new.html')); @bodies = ($res->content =~ /^(hello [^<]+)$/mg); is_deeply(\@bodies, [ "hello world!\n", "hello world\n" ], 'new.html ordering is chronological'); + + $res = $cb->(GET('/v2test/new.atom')); + my @dates = ($res->content =~ m!title>([^<]+)!g); + is_deeply(\@dates, [ "1993-10-02T00:01:00Z", "1993-10-02T00:00:00Z" ], + 'Date headers made it through'); }; test_psgi(sub { $www->call(@_) }, $client0); my $env = { TMPDIR => $tmpdir, PI_CONFIG => $cfgpath };