view release on metacpan or  search on metacpan

t/simple.t  view on Meta::CPAN

subtest 'get xml / internal / png' => sub {
    my $weather = Weather::Astro7Timer->new();
    my %out     = $weather->get(%opt, output => 'internal');
    if (eval "require XML::Simple;") {
        my %out2 = $weather->get(%opt, output => 'xml');
        is(\%out2, {name => 'astro'}, 'XML output');
    }
    my %out3 = $weather->get(%opt, output => 'png');
    is(\%out,  {data => $content}, 'Internal output');
    is(\%out3, {data => $content}, 'Png output in hash');
    my $out4 = $weather->get(%opt, output => 'png');
    is($out4, $content, 'Png output');
};

done_testing;