diff --git a/t/006_query.t b/t/006_query.t index ea926e1..385d4da 100644 --- a/t/006_query.t +++ b/t/006_query.t @@ -41,6 +41,7 @@ is_deeply $q->params, { node_id => 1}, 'params accessor'; SKIP : { skip 'no local connection to neo4j', $num_live_tests if $not_connected; + skip 'MATCH query requires Neo4j 2 or later', $num_live_tests unless REST::Neo4p->_check_version(2,0,0,0); ok my $n1 = REST::Neo4p::Node->new({name => 'Fred', role => 'husband'}), 'Fred'; ok my $n2 = REST::Neo4p::Node->new({name => 'Wilma', role => 'wife'}), 'Wilma'; diff --git a/t/011_neo4p_synopsis.t b/t/011_neo4p_synopsis.t index bc9e931..33a1e21 100644 --- a/t/011_neo4p_synopsis.t +++ b/t/011_neo4p_synopsis.t @@ -30,6 +30,7 @@ diag "Test server unavailable (".$not_connected->message.") : tests skipped" if plan skip_all => neo4j_index_unavailable() if neo4j_index_unavailable(); plan skip_all => 'no local connection to neo4j' if $not_connected; +plan skip_all => 'MATCH query requires Neo4j 2 or later' unless REST::Neo4p->_check_version(2,0,0,0); plan tests => 13 + 4; { diff --git a/t/id_roundtrip.t b/t/id_roundtrip.t index 2aa06a8..7de2fd7 100644 --- a/t/id_roundtrip.t +++ b/t/id_roundtrip.t @@ -25,6 +25,7 @@ diag "Test server unavailable (".$not_connected->message.") : tests skipped" if SKIP : { skip 'no local connection to neo4j', 34 if $not_connected; + skip 'MATCH query requires Neo4j 2 or later', 34 unless REST::Neo4p->_check_version(2,0,0,0); my $n1 = REST::Neo4p::Node->new(); ok $n1, 'new node' and push @cleanup, $n1; diff --git a/t/json_utf8.t b/t/json_utf8.t index 440517a..6bbc3b1 100644 --- a/t/json_utf8.t +++ b/t/json_utf8.t @@ -34,6 +34,7 @@ sub to_hex ($) { SKIP : { skip 'no local connection to neo4j', 37 if $not_connected; + skip 'MATCH query requires Neo4j 2 or later', 37 unless REST::Neo4p->_check_version(2,0,0,0); my %props = ( singlebyte => "\N{U+0025}", # '%' PERCENT SIGN = 0x25 diff --git a/t/rt_81128.t b/t/rt_81128.t index 9ebe88c..e2dbc4c 100644 --- a/t/rt_81128.t +++ b/t/rt_81128.t @@ -29,6 +29,7 @@ diag "Test server unavailable (".$not_connected->message.") : tests skipped" if SKIP : { skip 'no local connection to neo4j', $num_live_tests if $not_connected; + skip 'MATCH query requires Neo4j 2 or later', $num_live_tests unless REST::Neo4p->_check_version(2,0,0,0); ok my $n1 = REST::Neo4p::Node->new( {name => 'ricky'} ), 'new node 1'; push @cleanup, $n1 if $n1; diff --git a/t/rt_91640.t b/t/rt_91640.t index 4baa6ca..830ceb2 100644 --- a/t/rt_91640.t +++ b/t/rt_91640.t @@ -29,8 +29,8 @@ my $not_connected = connect($TEST_SERVER,$user,$pass); diag "Test server unavailable (".$not_connected->message.") : tests skipped" if $not_connected; -#SKIP : { -# skip "Neo4j server version >= 2.0.0-M02 required, skipping...", $num_live_tests unless REST::Neo4p->_check_version(2,0,0,2); +SKIP : { + skip "Neo4j server version >= 2.0.0-M02 required, skipping...", $num_live_tests unless REST::Neo4p->_check_version(2,0,0,2); my $neo4p = 'REST::Neo4p'; my ($n, $m, $t); @@ -80,9 +80,9 @@ STMT1 is $$r[0]->get_property('utf8'), 'Сохранить', 'cyrillic property value retrieved correctly'; } -#} END { eval { $t && $t->delete_sample; }; } +}