diff options
author | franck cuny <franck@lumberjaph.net> | 2010-08-10 10:32:19 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-08-10 10:34:56 +0200 |
commit | b87eb70f7504e76434494de2a0e2fdb24f796659 (patch) | |
tree | 090df1fb8bc0b482333775faf40c108e1f7b5b8f /t | |
parent | prepare for release (diff) | |
download | net-riak-b87eb70f7504e76434494de2a0e2fdb24f796659.tar.gz |
test shouldn't be run by users
Diffstat (limited to 't')
-rw-r--r-- | t/90_bug_links.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/t/90_bug_links.t b/t/90_bug_links.t index 32b30f0..e1f71db 100644 --- a/t/90_bug_links.t +++ b/t/90_bug_links.t @@ -1,6 +1,14 @@ use Data::Dumper; use Net::Riak; -use Test::More tests => 9; +use Test::More; + +BEGIN { + unless ( $ENV{RELEASE_TESTING} ) { + require Test::More; + Test::More::plan( + skip_all => 'these tests are for release candidate testing' ); + } +} ok my $client = Net::Riak->new(host => 'http://127.0.0.1:8098'), 'client created'; @@ -50,3 +58,5 @@ 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'; + +done_testing; |