From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 11 Oct 2014 22:36:15 +0000 (+0300)
Subject: Add a network test for get_users
X-Git-Tag: 0.000_003~1
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=fc54cb3f5f8469711453842d83a1136272fd7744;p=www-backpacktf.git

Add a network test for get_users
---

diff --git a/MANIFEST b/MANIFEST
index c111228..2d3dd0e 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -7,3 +7,4 @@ Makefile.PL
 MANIFEST
 README
 t/00-load.t
+t/50-network.t
diff --git a/Makefile.PL b/Makefile.PL
index d8833bc..6d4a2b7 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -14,6 +14,9 @@ WriteMakefile(
 		   LWP::Simple 0
 		   PerlX::Maybe 0/,
 	},
+	BUILD_REQUIRES    => {
+		qw/LWP::Online 0/,
+	},
 	META_MERGE        => {
 		dynamic_config => 0,
 		resources      => {
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/;