From 79bea382fd2c0753ca9ace79a11bb74c9a1d722b Mon Sep 17 00:00:00 2001
From: Robin Edwards <robin.ge@gmail.com>
Date: Wed, 20 Apr 2011 14:38:43 +0100
Subject: merged pbc branch to master

---
 t/hosts.t | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 t/hosts.t

(limited to 't/hosts.t')

diff --git a/t/hosts.t b/t/hosts.t
new file mode 100644
index 0000000..801e8b4
--- /dev/null
+++ b/t/hosts.t
@@ -0,0 +1,20 @@
+use strict;
+use warnings;
+use Test::More;
+
+package test::host;
+use Moose; with 'Net::Riak::Role::Hosts';
+
+package main;
+
+my $test = test::host->new();
+is scalar @{$test->host}, 1, 'got one host';
+
+ok my $host = $test->get_host, 'got host';
+is $host, 'http://127.0.0.1:8098', 'host is ok';
+
+$test = test::host->new(host => ['http://10.0.0.40', 'http://10.0.0.41']);
+is scalar @{$test->host}, 2, 'got two hosts';
+ok $host = $test->get_host, 'got host';
+
+done_testing;
-- 
cgit 1.4.1