# -*- perl -*-

# t/002_load_user.t - check user module loading

use Test::More tests => 6;

BEGIN { use_ok( 'WWW::SourceForge::User' ); }

my $user = WWW::SourceForge::User->new( username => 'rbowen' );
isa_ok ($user, 'WWW::SourceForge::User', 'WWW::SourceForge::User interface loads ok');
is( $user->id(), '40648' );
is( $user->sf_email(), 'rbowen@users.sf.net' );

my @projects = $user->projects();
is( scalar( @projects ), 26, '26 projects' );

my $p = $projects[0];
is( $p->name(), 'modules.a.o' );