From 1931d497364d7afef46f7d54d94d0b13efad5850 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Thu, 26 Nov 2009 18:21:01 +0100 Subject: update tests makefile pod and declaration --- t/01_basic.t | 23 +++++++++-------------- 1 file changed, 9 insertions(+), 14 deletions(-) (limited to 't') diff --git a/t/01_basic.t b/t/01_basic.t index 83b718f..9e0c120 100644 --- a/t/01_basic.t +++ b/t/01_basic.t @@ -5,8 +5,10 @@ use Net::Backtype; use Net::Backtweet; use YAML::Syck; -sum_methods( 'Net::Backtype', 11 ); -sum_methods( 'Net::Backtweet', 12 ); +BEGIN { + plan skip_all => 'set $ENV{BACKTYPE_KEY} for this test' + unless $ENV{BACKTYPE_KEY}; +} my $obj = Net::Backtweet->new; ok $obj, '... object created'; @@ -14,17 +16,10 @@ my $method = $obj->meta->find_method_by_name('user_comments'); ok $method->meta->has_attribute('method'), '... got method as attribute'; is $method->method, 'GET', '... method is GET'; +my $res = $obj->backtweet_search( + key => $ENV{BACKTYPE_KEY}, + q => 'http://lumberjaph.net' +); +cmp_ok scalar @{ $res->{tweets} }, '>=', 1, '... got more than one result'; done_testing; - -sub sum_methods { - my $module = shift; - my $expect = shift; - my $obj = $module->new(); - my @methods = $obj->meta->get_all_methods(); - my $total = 0; - foreach my $m (@methods) { - ++$total if $m->meta->has_attribute('description'); - } - is $total, $expect, "... got $expect methods in our client"; -} -- cgit v1.2.3