#!perl

use strict;
use warnings;
$|=1;

use Test::More tests => 38;
use CPAN::WWW::Testers;
use JSON::Syck;
use XML::RSS;
use YAML;

use lib 't';
use CWT_Testing;

my $s;
my $diz;
my @data = (
  { id=>'10', status=>'s1', distribution=>'d1', version=>'v1', perl=>'p1', osname=>'os1', osvers=>'ver1', archname=>'arch1' },
  { id=>'20', status=>'s2', distribution=>'d2', version=>'v2', perl=>'p2', osname=>'os2', osvers=>'ver2', archname=>'arch2' },
  { id=>'30', status=>'s3', distribution=>'d3', version=>'v3', perl=>'p3', osname=>'os3', osvers=>'ver3', archname=>'arch3' },
  { id=>'40', status=>'s4', distribution=>'d4', version=>'v4', perl=>'p4', osname=>'os4', osvers=>'ver4', archname=>'arch4' },
);
my $rss = XML::RSS->new();

ok( my $obj = CWT_Testing::getObj(), "got object" );

$diz = '[distro]';
$s = $obj->_make_rss( 'dist', 'foo', \@data);
ok( $s, "$diz got rss" );
ok( $rss->parse($s), "$diz parsed rss" );
is( scalar(@{$rss->{items}}), 4, "$diz got items" );
is( $rss->{num_items}, 4, "$diz got items" );
is( $rss->{version}, '1.0', "$diz got version" );
is( $rss->{channel}->{title}, 'foo CPAN Testers Reports', "$diz got title" );
is( $rss->{channel}->{link}, 'http://www.cpantesters.org/show/foo.html', "$diz got link" );
is( $rss->{channel}->{description}, 'Automated test results for the foo distribution', "$diz got description" );

$diz = '[recent]';
$s = $obj->_make_rss( 'recent', undef, \@data );
ok( $s, "$diz got rss" );
ok( $rss->parse($s), "$diz parsed rss" );
is( scalar(@{$rss->{items}}), 4, "$diz got items" );
is( $rss->{num_items}, 4, "$diz got items" );
is( $rss->{version}, '1.0', "$diz got version" );
is( $rss->{channel}->{title}, 'Recent CPAN Testers Reports', "$diz got title" );
is( $rss->{channel}->{link}, 'http://www.cpantesters.org/recent.html', "$diz got link" );
is( $rss->{channel}->{description}, 'Recent CPAN Testers reports', "$diz got description" );

$diz = '[author]';
$s = $obj->_make_rss( 'author', 'MrFoo', \@data );
ok( $s, "$diz got rss" );
ok( $rss->parse($s), "$diz parsed rss" );
is( scalar(@{$rss->{items}}), 4, "$diz got items" );
is( $rss->{num_items}, 4, "$diz got items" );
is( $rss->{version}, '1.0', "$diz got version" );
is( $rss->{channel}->{title}, 'Reports for distributions by MrFoo', "$diz got title" );
is( $rss->{channel}->{link}, 'http://www.cpantesters.org/author/MrFoo.html', "$diz got link" );
is( $rss->{channel}->{description}, 'Reports for distributions by MrFoo', "$diz got description" );

$diz = '[nopass]';
$s = $obj->_make_rss_nopass( 'MrFoo', \@data );
ok( $s, "$diz got rss" );
ok( $rss->parse($s), "$diz parsed rss" );
is( scalar(@{$rss->{items}}), 4, "$diz got items" );
is( $rss->{num_items}, 4, "$diz got items" );
is( $rss->{version}, '1.0', "$diz got version" );
is( $rss->{channel}->{title}, 'Failing Reports for distributions by MrFoo', "$diz got title" );
is( $rss->{channel}->{link}, 'http://www.cpantesters.org/author/MrFoo.html', "$diz got link" );
is( $rss->{channel}->{description}, 'Reports for distributions by MrFoo', "$diz got description" );

$diz = '[yaml]';
$s = $obj->_make_yaml_distribution( \@data );
ok( $s, "$diz got yaml" );
my ($yaml, undef, undef) = Load($s);

$diz = '[json]';
$s = $obj->_make_json_distribution( \@data );
ok( $s, "$diz got json" );
my $json = JSON::Syck::Load($s);

$diz= '[json+yaml]';
is_deeply( $yaml, $json, "$diz yaml=json" );
is_deeply( $yaml, \@data, "$diz yaml=data" );
is_deeply( $json, \@data, "$diz json=data" );