]>
Commit | Line | Data |
---|---|---|
fc54cb3f MG |
1 | #!/usr/bin/perl -w |
2 | use strict; | |
3 | use warnings; | |
4 | ||
8ab94679 | 5 | use Test::RequiresInternet 'backpack.tf' => 80; |
fc54cb3f MG |
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/; |