diff options
Diffstat (limited to 't/05_links.t')
-rw-r--r-- | t/05_links.t | 18 |
1 files changed, 18 insertions, 0 deletions
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; |