t/50-network.t

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