From 47ac2afabe0c62aa76356e5835375a8e566a737b Mon Sep 17 00:00:00 2001
From: Arne Johannessen <noreply@arne.johannessen.de>
Date: Fri, 6 Dec 2024 07:44:30 +0100
Subject: [PATCH] Skip tests with MATCH queries failing on Neo4j 1

Back when Neo4p was updated for Neo4j 4, queries that begin with MATCH were added to some tests. My understanding is that such queries are unsupported on Neo4j 1. This change simply skips the affected tests on Neo4j 1.
---
 t/006_query.t          | 1 +
 t/011_neo4p_synopsis.t | 1 +
 t/id_roundtrip.t       | 1 +
 t/json_utf8.t          | 1 +
 t/rt_81128.t           | 1 +
 t/rt_91640.t           | 6 +++---
 6 files changed, 8 insertions(+), 3 deletions(-)

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; };
   }
+}