Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

added authentication test

  • Loading branch information...
commit 3718e86a16a348c00d4a53a9d25d4793da939bad 1 parent 444f105
@rizen authored
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');
Please sign in to comment.
Something went wrong with that request. Please try again.