Commit | Line | Data |
---|---|---|
fc54cb3f MG |
1 | #!/usr/bin/perl -w |
2 | use strict; | |
3 | use warnings; | |
4 | ||
5 | use LWP::Online ':skip_all'; | |
6 | use Test::More tests => 6; | |
7 | use WWW::BackpackTF; | |
8 | ||
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/; |