Add a network test for get_users

[www-backpacktf.git] / t / 50-network.t

diff --git a/t/50-network.t b/t/50-network.t
new file mode 100644 (file)
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/;