[libatteanx-query-cache-perl] 07/09: escape curly brackets in regexps

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to tag dev-release-0.001-01
in repository libatteanx-query-cache-perl.

commit 22076524d9fe30758d3fbf8476fb01cbe089b495
Author: Kjetil Kjernsmo <kjetil at kjernsmo.net>
Date:   Wed Feb 17 22:15:44 2016 +0100

    escape curly brackets in regexps
---
 t/simple-sparql-planner.t     | 6 +++---
 t/simple-sparql-tpf-planner.t | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/t/simple-sparql-planner.t b/t/simple-sparql-planner.t
index 1f2e9ce..94c033a 100644
--- a/t/simple-sparql-planner.t
+++ b/t/simple-sparql-planner.t
@@ -92,7 +92,7 @@ does_ok($p, 'Attean::API::CostPlanner');
 		does_ok($plan, 'Attean::API::Plan', '1-triple BGP');
 		isa_ok($plan, 'AtteanX::Store::SPARQL::Plan::BGP');
 		is(scalar @{$plan->children}, 1, '1-triple BGP child');
-		like($plan->as_string, qr|SPARQLBGP.*?Quad { \?s, <p>, \?o, <http://test.invalid/graph> }|s, 'Good plan');
+		like($plan->as_string, qr|SPARQLBGP.*?Quad \{ \?s, <p>, \?o, <http://test.invalid/graph> }|s, 'Good plan');
 		is($plan->plan_as_string, 'SPARQLBGP', 'Good plan_as_string');
 	};
 
@@ -149,7 +149,7 @@ does_ok($p, 'Attean::API::CostPlanner');
 		does_ok($plans[1], 'Attean::API::Plan', '1-triple BGP');
 		isa_ok($plans[1], 'AtteanX::Store::SPARQL::Plan::BGP');
 		is(scalar @{$plans[1]->children}, 1, '1-triple BGP child');
-		like($plans[1]->as_string, qr|SPARQLBGP.*?Quad { \?s, <p>, \?o, <http://test.invalid/graph> }|s, 'Good plan');
+		like($plans[1]->as_string, qr|SPARQLBGP.*?Quad \{ \?s, <p>, \?o, <http://test.invalid/graph> }|s, 'Good plan');
 	};
 
 	subtest '1-triple BGP single variable object, with cache' => sub {
@@ -179,7 +179,7 @@ does_ok($p, 'Attean::API::CostPlanner');
 		does_ok($plans[1], 'Attean::API::Plan', '1-triple BGP');
 		isa_ok($plans[1], 'AtteanX::Store::SPARQL::Plan::BGP');
 		is(scalar @{$plans[1]->children}, 1, '1-triple BGP child');
-		like($plans[1]->as_string, qr|SPARQLBGP.*?Quad { <http://example.org/foo>, <dahut>, \?name, <http://test.invalid/graph> }|s, 'Good plan');
+		like($plans[1]->as_string, qr|SPARQLBGP.*?Quad \{ <http://example.org/foo>, <dahut>, \?name, <http://test.invalid/graph> }|s, 'Good plan');
 	};
 
 	subtest '2-triple BGP with join variable with cache on both' => sub {
diff --git a/t/simple-sparql-tpf-planner.t b/t/simple-sparql-tpf-planner.t
index 9f7cf54..6af3f42 100644
--- a/t/simple-sparql-tpf-planner.t
+++ b/t/simple-sparql-tpf-planner.t
@@ -141,7 +141,7 @@ my $test = TestLDFCreateStore->new;
 		does_ok($plan, 'Attean::API::Plan', '1-triple BGP');
 		isa_ok($plan, 'AtteanX::Store::SPARQL::Plan::BGP');
 		is(scalar @{$plan->children}, 1, '1-triple BGP child');
-		like($plan->as_string, qr|SPARQLBGP.*?Quad { \?s, <http://example.org/m/p>, \?o, <http://test.invalid/graph> }|s, 'Good plan');
+		like($plan->as_string, qr|SPARQLBGP.*?Quad \{ \?s, <http://example.org/m/p>, \?o, <http://test.invalid/graph> }|s, 'Good plan');
 		is($plan->plan_as_string, 'SPARQLBGP', 'Good plan_as_string');
 	};
 
@@ -193,7 +193,7 @@ my $test = TestLDFCreateStore->new;
 		is($plans[1]->plan_as_string, 'LDFTriple { ?s, <http://example.org/m/p>, ?o }', 'Good plan');
 		isa_ok($plans[2], 'AtteanX::Store::SPARQL::Plan::BGP');
 		is(scalar @{$plans[2]->children}, 1, '1-triple BGP child');
-		like($plans[2]->as_string, qr|SPARQLBGP.*?Quad { \?s, <http://example.org/m/p>, \?o, <http://test.invalid/graph> }|s, 'Good plan');
+		like($plans[2]->as_string, qr|SPARQLBGP.*?Quad \{ \?s, <http://example.org/m/p>, \?o, <http://test.invalid/graph> }|s, 'Good plan');
 	};
 
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libatteanx-query-cache-perl.git