use strict;
use warnings;
no warnings qw/ uninitialized /;

use Test::More;                      # last test to print

use WWW::Ohloh::API;

plan skip_all => <<'END_MSG', 1 unless $ENV{OHLOH_KEY};
set the environment variable OHLOH_KEY to your api key to enable these tests
END_MSG

plan tests => 1;

my $ohloh = WWW::Ohloh::API->new( api_key => $ENV{OHLOH_KEY} );

eval { $ohloh->get_project( 999999 ) };

ok !!$@, "unexisting project causes an exception";