diff options
author | Robin Edwards <robin.ge@gmail.com> | 2011-04-11 15:54:40 +0100 |
---|---|---|
committer | Robin Edwards <robin.ge@gmail.com> | 2011-04-11 15:54:40 +0100 |
commit | 85a963d1cb0d12da402cdaf404ef9a6d749f5e8f (patch) | |
tree | e3870b1f551db73b815f57e9bb19ea3f8e944433 /t | |
parent | Updated Changes and version (diff) | |
parent | Fix issue with url encoded links (diff) | |
download | net-riak-85a963d1cb0d12da402cdaf404ef9a6d749f5e8f.tar.gz |
Merge remote branch 'simon/fix_link_encoding'
Diffstat (limited to '')
-rw-r--r-- | t/90_bug_links.t | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/t/90_bug_links.t b/t/90_bug_links.t index 0c464ba..d1851af 100644 --- a/t/90_bug_links.t +++ b/t/90_bug_links.t @@ -46,7 +46,7 @@ ok my $item = $bucket_two->new_object( '25FCBA57-8D75-41B6-9E5A-0E2528BB3342' => foreach my $person ( $ref1, $ref2 ) { my $link = Net::Riak::Link->new( bucket => $bucket_one, - key => $person->{username}, + key => $person->{email}, tag => 'owners' ); ok $item->add_link( $link ), 'link added to object'; @@ -57,8 +57,12 @@ ok $item->store( 1, 1 ), 'object stored'; my $test_links = $bucket_two->get('25FCBA57-8D75-41B6-9E5A-0E2528BB3342', [1]); my $links = $test_links->links; -is $links->[0]->key, 'griffinp', 'good owner for first link'; -is $links->[1]->key, 'griffins', 'good owner for second link'; +is $links->[0]->key, 'peter@familyguy.com', 'good owner for first link'; +is $links->[1]->key, 'stewie@familyguy.com', 'good owner for second link'; + +$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; |