diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/01_basic.t | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/t/01_basic.t b/t/01_basic.t index 44c56f7..2a02870 100644 --- a/t/01_basic.t +++ b/t/01_basic.t @@ -6,24 +6,23 @@ use HTTP::Response; use Net::Backtype; use Net::Backtweet; +my $q = 'lumberjaph'; +my $key = 's3kr3t'; + ok my $backtype = Net::Backtype->new, 'object backtype created'; _add_handler($backtype); - -ok my $res = $backtype->comments_search( - key => 's3kr3tk3y', - q => 'http://lumberjaph.net' - ), +ok my $res = $backtype->comments_search(key => $key, q => $q,), 'got result for backtype query'; ok my $backtweet = Net::Backtweet->new, 'object backtweet created'; _add_handler($backtweet); -ok $res = $backtweet->stats_by_url( - key => 's3kr3tk3y', - q => 'http://lumberjaph.net', - ), +ok $res = $backtweet->stats_by_url(key => $key, q => $q,), 'got result for backtweet query'; +ok my $compatilibity = $backtweet->backtweet_search(key => $key, q => $q), + 'got result for old compatibility method'; + sub _add_handler { my $object = shift; $object->api_useragent->add_handler( |