diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-06-07 11:21:27 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-06-07 11:21:27 +0200 |
| commit | 651150cddb47722a588a54eb8b2307f2042e630e (patch) | |
| tree | 6743c661e5b520ca658d184cf0634509a7066fcf /t | |
| parent | add urls; rename method, change url and args (diff) | |
| download | net-backtype-651150cddb47722a588a54eb8b2307f2042e630e.tar.gz | |
update POD
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( |