blob: cdef7fad1c01b029af34352abf8a56d8c5636485 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
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';
done_testing;
|