From 0c7665d653db4ae0b8caaa00436d110518c76730 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 14 Jun 2010 15:45:06 +0200
Subject: add more tests

---
 t/03_object.t | 42 ++++++++++++++++++++++++++++++++++++++++++
 t/04_bucket.t | 12 ++++++++++++
 t/05_links.t  | 18 ++++++++++++++++++
 3 files changed, 72 insertions(+)
 create mode 100644 t/03_object.t
 create mode 100644 t/04_bucket.t
 create mode 100644 t/05_links.t

diff --git a/t/03_object.t b/t/03_object.t
new file mode 100644
index 0000000..13de9d4
--- /dev/null
+++ b/t/03_object.t
@@ -0,0 +1,42 @@
+use strict;
+use warnings;
+use Test::More;
+
+use JSON;
+use HTTP::Response;
+
+use Net::Riak::Bucket;
+use Net::Riak::Client;
+use Net::Riak::Object;
+
+my $client = Net::Riak::Client->new();
+my $bucket = Net::Riak::Bucket->new(name => 'foo', client => $client);
+
+ok my $object =
+  Net::Riak::Object->new(key => 'bar', bucket => $bucket, client => $client),
+  'object bar created';
+
+my $response = HTTP::Response->new(400);
+
+ok !$object->exists, 'object don\'t exists';
+
+eval {
+    $object->populate($response, [200]);
+};
+
+like $@, qr/Expected status 200, received 400/, "can't populate with a 400";
+
+my $value = {value => 1};
+
+$response = HTTP::Response->new(200);
+$response->content(JSON::encode_json($value));
+
+$object->populate($response, [200]);
+
+ok $object->exists, 'object exists';
+
+is_deeply $value, $object->data, 'got same data';
+
+is $object->status, 200, 'last http code is 200';
+
+done_testing;
diff --git a/t/04_bucket.t b/t/04_bucket.t
new file mode 100644
index 0000000..eb46cd7
--- /dev/null
+++ b/t/04_bucket.t
@@ -0,0 +1,12 @@
+use strict;
+use warnings;
+use Test::More;
+
+use Net::Riak::Bucket;
+use Net::Riak::Client;
+
+my $client = Net::Riak::Client->new;
+ok my $bucket = Net::Riak::Bucket->new(name => 'foo', client => $client),
+  'client created';
+
+done_testing;
diff --git a/t/05_links.t b/t/05_links.t
new file mode 100644
index 0000000..ab2ebb0
--- /dev/null
+++ b/t/05_links.t
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+use Test::More;
+
+use Net::Riak::Client;
+use Net::Riak::Bucket;
+use Net::Riak::Link;
+
+my $client = Net::Riak::Client->new();
+my $bucket = Net::Riak::Bucket->new(name => 'foo', client => $client);
+
+ok my $link = Net::Riak::Link->new(bucket => $bucket), 'link created';
+
+my $header = $link->to_link_header($client);
+
+is $header, '</riak/foo/_>; riaktag="foo"', 'generate valid link string';
+
+done_testing;
-- 
cgit 1.4.1