use strict;
use warnings;
use Test::More tests => 11;
require 't/FakeOhloh.pm';
my $ohloh = Fake::Ohloh->new;
$ohloh->stash( 'http://www.ohloh.net/projects/1234/contributors.xml',
'contributor_language_facts.xml' );
my @facts = $ohloh->get_contributor_language_facts(
project_id => 1,
contributor_id => 1,
);
is scalar(@facts) => 7, 'seven fact';
my $c = shift @facts;
is $c->analysis_id => 112122, 'analysis_id';
is $c->contributor_id => 13498, 'contributor_id';
is $c->contributor_name => 'wrowe', 'contributor_name';
is $c->language_id => 7, 'primary_language';
is $c->language_nice_name => 'C/C++', 'primarly_language_nice_name';
is $c->comment_ratio => '0.180879765395894', 'comment_ratio';
is $c->man_months => 66, 'man_months';
is $c->commits => 1177, 'commits';
is $c->median_commits => 9, 'median_commits';
like $c->as_xml => qr#<(contributor_language_fact)>.*?</\1>#, 'as_xml()';