#-*-perl-*-
#$Id$
use Test::More tests => 3;
use Test::Exception;
use Module::Build;
use lib '../lib';
use lib 't/lib';
use Neo4p::Connect;
use strict;
use warnings;
no warnings qw(once);
my $build;
my ($user,$pass);
eval {
$build = Module::Build->current;
$user = $build->notes('user');
$pass = $build->notes('pass');
};
my $TEST_SERVER = $build ? $build->notes('test_server') : 'http://127.0.0.1:7474';
my $num_live_tests = 2;
use_ok('REST::Neo4p');
my $not_connected = connect($TEST_SERVER,$user,$pass);
diag "Test server unavailable (".$not_connected->message.") : tests skipped" if $not_connected;
SKIP : {
skip 'no local connection to neo4j', $num_live_tests if $not_connected;
throws_ok {
REST::Neo4p::Entity::new_from_json_response('REST::Neo4p::Index');
} 'REST::Neo4p::LocalException', 'new_from_json_response(undef) throws local exception';
ok !REST::Neo4p->get_index_by_name('node','sxxcfdsjgjkllrarsdwejrkl'),
'missing index is not found';
CLEANUP : {
1;
}
}