Changeset 16937 for lang/perl/Atomik

Timestamp:

08/01/08 15:10:13 (5 years ago)

Author:

daisuke

Message:

still broken, but implemented entry_update

Location:

lang/perl/Atomik/trunk

Files:

• lib/Atomik/Client.pm (modified) (1 diff)
• t/21_entry_crud.t (modified) (2 diffs)

lang/perl/Atomik/trunk/lib/Atomik/Client.pm

@@ -133 +133 @@
 }
 
+sub entry_update {
+    my ($self, %args) = @_;
+
+    my $uri = $args{uri} || confess "no URI given to entry_update()";
+    my $entry = $args{entry} || confess "no entry given to entry_update()";
+
+    my $request = $self->request_create(
+        %args,
+        method => 'PUT',
+    );
+
+    my $content  = $entry->as_xml();
+    $request->content_type( (&Atomik::MediaType::ENTRY)->as_string );
+    my $response = $self->send_request( request => $request );
+    if (! $response->is_success) {
+        confess "Request to $uri failed: " . $response->as_string;
+    }
+
+    my $ct = Atomik::MediaType->from_string($response->content_type);
+    $ct->assert_subtype_of( &Atomik::MediaType::ENTRY );
+
+    my $result = Atomik::Entry->from_xml( $response->content_ref );
+    return $result;
+}
 
 sub send_request {

lang/perl/Atomik/trunk/t/21_entry_crud.t

@@ -3 +3 @@
 use Test::More;
 use Test::Atomik
-    tests => 8,
+    tests => 9,
     network => 1,
     env_default => {
@@ -46 +46 @@
     ok( $got_entry, "Accessed entry $entry_uri" );
     isa_ok( $got_entry, 'Atomik::Entry' );
+
+    $entry->content( "New text" );
+    my $updated_entry = $client->entry_update( uri => $entry_uri, entry => $entry );
+
+    is( $updated_entry->content, "New text" );
 }