t/psgi_v2.t | 10 ++++++++++ diff --git a/t/psgi_v2.t b/t/psgi_v2.t index a02b90fbee2ca8a55468fda116d64114b92d5207..8c619cee08189ef00da350cfcf43ab2382268e7f 100644 --- a/t/psgi_v2.t +++ b/t/psgi_v2.t @@ -154,6 +154,16 @@ ok($raw =~ s/\A.*>Results 1-3 of 3\b//s, 'got all results'); my @over = ($raw =~ m/\d{4}-\d+-\d+\s+\d+:\d+ +(?:\d+\% )?(.+)$/gm); is_deeply(\@over, [ '(GET('/v2test/?q=m:a-mid@b&x=A')); + is($res->code, 200, 'success with Atom search'); + SKIP: { + require_mods(qw(XML::Feed), 2); + $raw = $res->content; + my $p = XML::Feed->parse(\$raw); + is($p->format, "Atom", "parsed atom feed"); + is(scalar $p->entries, 3, "parsed three entries"); + }; + local $SIG{__WARN__} = 'DEFAULT'; $res = $cb->(GET('/v2test/a-mid@b/')); $raw = $res->content;