Browse files

added authentication test

  • Loading branch information...
1 parent 444f105 commit 3718e86a16a348c00d4a53a9d25d4793da939bad @rizen committed Nov 15, 2012
Showing with 7 additions and 19 deletions.
  1. +4 −0 Changes
  2. +1 −2 author.t/private_fetch.t
  3. +2 −0 t/02_public_fetch.t
  4. +0 −17 t/05_batchrequests.t
View
4 Changes
@@ -1,3 +1,7 @@
+1.0500 2012-11-15
+ - Added batch requests. Thanks to fayland.
+ - Fix: Facebook no longer allows public queries. Thanks to spazm.
+ - Added authentication test
1.0401 2012-05-07
- Added impersonation recipe.
View
3 author.t/private_fetch.t
@@ -13,5 +13,4 @@ my $sarah = eval{$fb->fetch('sarahbownds')};
use Data::Dumper;
die Dumper($@) if $@;
ok(ref $sarah eq 'HASH', 'got a hash ref back');
-ok(exists $sarah->{about}, 'got sarah');
-
+ok(exists $sarah->{updated_time}, 'got sarah');
View
2 t/02_public_fetch.t
@@ -9,3 +9,5 @@ my $sarah = $fb->fetch('sarahbownds');
ok(ref $sarah eq 'HASH', 'got a hash ref back');
is($sarah->{id}, '767598108', 'got sarah');
+use Data::Dumper;
+note Dumper $sarah;
View
17 t/05_batchrequests.t
@@ -1,17 +0,0 @@
-use Test::More tests => 3;
-use lib '../lib';
-use Ouch;
-use Facebook::Graph;
-
-my $fb = Facebook::Graph->new(access_token => $ENV{FB_ACCESS_TOKEN});
-
-my @batches = $fb->batch_requests
- ->add_request({"method" => "GET", "relative_url" => 'sarahbownds'})
- ->add_request({"method" => "GET", "relative_url" => '113515098748988'})
- ->request;
-
-is($batches[0]->{data}->{id}, '767598108', 'got sarah');
-is($batches[0]->{data}->{name}, 'Sarah Bownds', 'know her name');
-
-# 'location' => 'San Francisco Design Center',
-is($batches[1]->{data}->{location}, 'San Francisco Design Center', 'know event location');

0 comments on commit 3718e86

Please sign in to comment.