use strict;
use warnings;

use Test::More tests => 9;

require 't/FakeOhloh.pm';

my $ohloh = Fake::Ohloh->new;

$ohloh->stash( 'http://www.ohloh.net/projects/1234.xml', 'factoids.xml' );

my @factoids = $ohloh->get_factoids(9);

is scalar(@factoids) => 4, 'get_factoids';

my $f = shift @factoids;

is $f->id,          341293,                                'id()';
is $f->analysis_id, 116201,                                'analysis_id';
is $f->type,        'FactoidTeamSizeVeryLarge',            'type()';
is $f->description, 'Very large, active development team', 'description';
is $f->severity,    3,                                     'severity()';

is $f->license_id, q{}, 'license_id()';

$f = pop @factoids;

is $f->license_id, 5, 'license_id()';

like $f->as_xml, qr#<factoid>.*</factoid>$#, 'as_xml()';