diff options
author | Robin Edwards <robin.ge@gmail.com> | 2011-04-20 14:38:43 +0100 |
---|---|---|
committer | Robin Edwards <robin.ge@gmail.com> | 2011-04-20 14:38:43 +0100 |
commit | 79bea382fd2c0753ca9ace79a11bb74c9a1d722b (patch) | |
tree | bde42a47792a27e0a863ee527b88c8c24258f7e9 /t/06_host.t | |
parent | Merge remote branch 'simon/fix_link_encoding' (diff) | |
download | net-riak-79bea382fd2c0753ca9ace79a11bb74c9a1d722b.tar.gz |
merged pbc branch to master
Diffstat (limited to 't/06_host.t')
-rw-r--r-- | t/06_host.t | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/t/06_host.t b/t/06_host.t deleted file mode 100644 index 801e8b4..0000000 --- a/t/06_host.t +++ /dev/null @@ -1,20 +0,0 @@ -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; |