add more tests

3 files changed, 72 insertions, 0 deletions

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;