fixed: handle http method DELETE and fix lists tests to actually use …

…::Lite!
semifor · May 14, 2010 · 4069cf6 · 4069cf6
1 parent 49b8e33
commit 4069cf6
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 5 deletions.
diff --git a/src/net-twitter-lite.tt2 b/src/net-twitter-lite.tt2
@@ -363,13 +363,16 @@ sub _basic_authenticated_request {
     _encode_args($args);
 
     my $msg;
-    if ( $http_method eq 'GET' ) {
+    if ( $http_method =~ /^(?:GET|DELETE)$/ ) {
         $uri->query_form($args);
-        $msg = GET($uri);
+        $msg = HTTP::Request->new($http_method, $uri);
     }
     elsif ( $http_method eq 'POST' ) {
         $msg = $self->_mk_post_msg($uri, $args);
     }
+    else {
+        croak "unexpected HTTP method: $http_method";
+    }
 
     if ( $authenticate && $self->{username} && $self->{password} ) {
         $msg->headers->authorization_basic(@{$self}{qw/username password/});

diff --git a/t/60-api_lists.t b/t/60-api_lists.t
@@ -2,17 +2,17 @@
 use warnings;
 use strict;
 use Test::More;
-use Net::Twitter;
+use Net::Twitter::Lite;
 
 eval 'use LWP::UserAgent 5.819';
 plan skip_all => 'LWP::UserAgent 5.819 required' if $@;
 
-my $nt = Net::Twitter->new(traits => [qw/API::Lists/], username => 'fred', password => 'secret');
+my $nt = Net::Twitter::Lite->new(username => 'fred', password => 'secret');
 
 my $req;
 my $res = HTTP::Response->new(200);
 $res->content('{"response":"done"}');
-$nt->ua->add_handler(request_send => sub { $req = shift; return $res });
+$nt->{ua}->add_handler(request_send => sub { $req = shift; return $res });
 
 my @tests = (
     create_list => {