t/04_wow.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

use strict;
use warnings;
use lib ('t/lib');

use Test::More;
use WoWArmory;

my ( $obj, $res );

ok $obj = WoWArmory->new();

ok $res = $obj->character( r => 'Elune', n => 'Aarnn' );
is $res->{characterInfo}->{character}->{name}, 'Aarnn',
    '... got valid player name';
done_testing();