#!perl
use strict;
use warnings;
use Test::More tests => 5;
BEGIN { use_ok('WWW::XBoxLive::Game'); }
require_ok('WWW::XBoxLive::Game');
my $profile = new_ok(
'WWW::XBoxLive::Game',
[
title => 'Fifa 12',
percentage_complete => '50',
]
);
is( $profile->title, 'Fifa 12' );
is( $profile->percentage_complete, '50' );