#!/usr/bin/perl
use strict;
use warnings;
use WebService::HabitRPG;
use Config::Tiny;
use Test::More;
if (not $ENV{AUTHOR_TESTING}) {
    plan skip_all => "Author only tests... skipping";
}
my $config = Config::Tiny->read( "$ENV{HOME}/.habitrpgrc" );
if (not $config->{auth}{testing}) {
    plan skip_all => "Online testing uses the author's account";
}
my $hrpg = WebService::HabitRPG->new(
    api_token => $config->{auth}{api_token},
    user_id   => $config->{auth}{user_id},
);
my $user = $hrpg->user;
is( $user->{profile}{name}, "Paul Fenwick" );
is( $user->{tasks}{'c343fb63-f978-4d73-b8d8-7cb48f01e415'}{text},
    "Laptop backup" );
like( $user->{stats}{maxHealth}, qr/^\d+$/, "MaxHealth" );
done_testing;