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