use strict;
use warnings;
no warnings qw/ uninitialized /;
use Test::More;
use WWW::Ohloh::API;
plan skip_all => <<'END_MSG', 1 unless $ENV{OHLOH_KEY};
set OHLOH_KEY to your api key to enable these tests
END_MSG
unless ( $ENV{TEST_OHLOH_ACCOUNT} =~ /(id|email):(.+)/ ) {
plan skip_all =>
"set TEST_OHLOH_ACCOUNT to 'id:accountid' or 'email:addie' "
. "to enable these tests";
}
plan 'no_plan';
require 't/Validators.pm';
my $ohloh = WWW::Ohloh::API->new( debug => 1, api_key => $ENV{OHLOH_KEY} );
diag "using account $ENV{TEST_OHLOH_ACCOUNT}";
$ENV{TEST_OHLOH_ACCOUNT} =~ s/(id|email)://;
my $stack = $ohloh->get_account_stack( $ENV{TEST_OHLOH_ACCOUNT} );
validate_stack($stack);