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

#!/usr/bin/perl -w
use strict;
use warnings;

use Test::RequiresInternet 'backpack.tf' => 80;
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/;
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/;