]>
iEval git - www-backpacktf.git/blob - t/50-network.t
5 use Test
::RequiresInternet
'backpack.tf' => 80;
6 use Test
::More tests
=> 6;
9 my $bp = WWW
::BackpackTF
->new;
10 my $user = $bp->get_users('76561198057056782');
11 is
$user->{name
}, 'gmariusx', '$user->{name} is correct';
12 ok
exists $user->{$_}, "\$user->{$_} exists" for qw
/steamid backpack_value backpack_update backpack_tf_reputation notifications/;
This page took 0.049676 seconds and 4 git commands to generate.