#!perl
use strict;
use warnings;
use Test::WWW::Mechanize;
use Net::Ping 2.33;
use Test::More tests => 17;
use HTTP::Online ':skip_all';
use WWW::XBoxLive;
my $mech = Test::WWW::Mechanize->new;
my $xbox_live = new_ok('WWW::XBoxLive');
my $gamercard = $xbox_live->get_gamercard('BrazenStraw3');
isa_ok( $gamercard, 'WWW::XBoxLive::Gamercard' );
is( $gamercard->gamertag, 'BrazenStraw3', 'gamertag' );
ok( $gamercard->is_valid, 'is_valid' );
like( $gamercard->account_status, qr/^(gold|silver)$/i, 'account_status' );
ok( $gamercard->bio, 'bio' );
ok( $gamercard->gamerscore, 'gamerscore' );
is( $gamercard->gender, 'male', 'gender' );
is( $gamercard->location, 'UK', 'location' );
ok( $gamercard->motto, 'motto' );
is( $gamercard->name, 'Andrew', 'name' );
like( $gamercard->reputation, qr/\d/, 'reputation' );
ok( $gamercard->recent_games, 'recent_games' );
$mech->get_ok( $gamercard->profile_link );
$mech->get_ok( $gamercard->avatar_small );
$mech->get_ok( $gamercard->avatar_large );
$mech->get_ok( $gamercard->avatar_body );
__END__
These are live tests, just to make sure the format of the gamercard does not change.