diff options
| -rw-r--r-- | Changes | 5 | ||||
| -rw-r--r-- | dist.ini | 2 | ||||
| -rw-r--r-- | t/90_bug_links.t | 12 |
3 files changed, 13 insertions, 6 deletions
@@ -1,4 +1,7 @@ -0.13 (UNRELEASED) +0.14 Mon Mar 14 08:59:10 GMT 2011 + - fixed delete link (Simon Wistow) + +0.13 Tue, 08 Feb 2011 16:40:07 GMT - Enviroment variable for riak when running tests (Robin Edwards) - Connection caching (Andrew Sayers) - Automatic key generation support (Simon Wistow) @@ -3,7 +3,7 @@ author = franck cuny <franck@lumberjaph.net> license = Perl_5 copyright_holder = linkfluence copyright_year = 2011 -version = 0.13 +version = 0.14 [@Filter] bundle = @Basic diff --git a/t/90_bug_links.t b/t/90_bug_links.t index f42340e..d1851af 100644 --- a/t/90_bug_links.t +++ b/t/90_bug_links.t @@ -1,16 +1,17 @@ -use Data::Dumper; +use strict; +use warnings; use Net::Riak; use Test::More; BEGIN { - unless ( $ENV{RELEASE_TESTING} ) { + unless ( $ENV{RIAK_REST_HOST} ) { require Test::More; Test::More::plan( - skip_all => 'these tests are for release candidate testing' ); + skip_all => 'RIAK_REST_HOST not set.. skipping' ); } } -ok my $client = Net::Riak->new(host => 'http://127.0.0.1:8098'), 'client created'; +ok my $client = Net::Riak->new(host => $ENV{RIAK_REST_HOST}), 'client created'; # set up a bucket containing two person/user records and store them my $bucket_one = $client->bucket('ONE'); @@ -63,4 +64,7 @@ $test_links->remove_link($links->[0]); $links = $test_links->links; is $links->[0]->key, 'stewie@familyguy.com', 'good owner for second link after a remove link'; +$test_links->remove_link($links->[0]); +$links = $test_links->links; +is $links->[0]->key, 'griffins', 'good owner for second link after a remove link'; done_testing; |