From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 13 Aug 2016 02:39:26 +0000 (-0400)
Subject: Fix test
X-Git-Tag: 0.001001~1
X-Git-Url: http://git.ieval.ro/?p=www-backpacktf.git;a=commitdiff_plain;h=667a3b3753649a96ff368b20fffc940206892fea

Fix test
---

diff --git a/lib/WWW/BackpackTF/User.pm b/lib/WWW/BackpackTF/User.pm
index 3120bcb..a27667c 100644
--- a/lib/WWW/BackpackTF/User.pm
+++ b/lib/WWW/BackpackTF/User.pm
@@ -21,7 +21,7 @@ sub banned_backpack  { shift->{backpack_tf_banned} }
 sub banned_economy   { shift->{ban_economy} }
 sub banned_community { shift->{ban_community} }
 sub banned_vac       { shift->{ban_vac} }
-sub notifications    { shift->{notifications} }
+sub notifications    { shift->{notifications} // 0 }
 sub value            { shift->{backpack_value}->{shift // WWW::BackpackTF::TF2} }
 sub update           { shift->{backpack_update}->{shift // WWW::BackpackTF::TF2} }
 
diff --git a/t/50-network.t b/t/50-network.t
index 8f37da4..0bbb31c 100644
--- a/t/50-network.t
+++ b/t/50-network.t
@@ -3,10 +3,10 @@ use strict;
 use warnings;
 
 use Test::RequiresInternet 'backpack.tf' => 80;
-use Test::More tests => 6;
+use Test::More tests => 5;
 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/;
+ok exists $user->{$_}, "\$user->{$_} exists" for qw/steamid backpack_value backpack_update backpack_tf_reputation/;