X-Git-Url: http://git.ieval.ro/?p=www-backpacktf.git;a=blobdiff_plain;f=t%2F50-network.t;fp=t%2F50-network.t;h=3f58417405e0437ed8350738d1791b64177be2a9;hp=0000000000000000000000000000000000000000;hb=fc54cb3f5f8469711453842d83a1136272fd7744;hpb=6b77261fb586b2fbb961fe82333e7028e690ecec diff --git a/t/50-network.t b/t/50-network.t new file mode 100644 index 0000000..3f58417 --- /dev/null +++ b/t/50-network.t @@ -0,0 +1,12 @@ +#!/usr/bin/perl -w +use strict; +use warnings; + +use LWP::Online ':skip_all'; +use Test::More tests => 6; +use WWW::BackpackTF; + +my $bp = WWW::BackpackTF->new; +my $user = $bp->get_users('76561198057056782'); +is $user->{name}, 'gmariusx', '$user->{name} is correct'; +ok exists $user->{$_}, "\$user->{$_} exists" for qw/steamid backpack_value backpack_update backpack_tf_reputation notifications/;