[libatteanx-query-cache-perl] 09/09: escape more curly brackets

[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 7fc02892d368ae132f4fe7066e7e03d46338655e
Author: Kjetil Kjernsmo <kjetil at kjernsmo.net>
Date:   Wed Feb 17 22:25:10 2016 +0100

    escape more curly brackets
---
 t/simple-sparql-tpf-planner.t | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/t/simple-sparql-tpf-planner.t b/t/simple-sparql-tpf-planner.t
index 6af3f42..8a98a3a 100644
--- a/t/simple-sparql-tpf-planner.t
+++ b/t/simple-sparql-tpf-planner.t
@@ -316,7 +316,7 @@ my $test = TestLDFCreateStore->new;
 		my ($join, $ldfplan1)	= @children;
 		isa_ok($join, 'Attean::Plan::HashJoin');
 		isa_ok($ldfplan1, 'AtteanX::Store::LDF::Plan::Triple');
-		like($ldfplan1->as_string, qr(^- LDFTriple { \?o, <http://example\.org/m/b>, "2" }), 'First LDF ok');
+		like($ldfplan1->as_string, qr(^- LDFTriple \{ \?o, <http://example\.org/m/b>, "2" }), 'First LDF ok');
 		# sorting the strings should result in a Table followed by a SPARQLBGP
 		my @grandchildren	= sort { "$a" cmp "$b" } @{ $join->children };
 		foreach my $cplan (@grandchildren) {
@@ -325,7 +325,7 @@ my $test = TestLDFCreateStore->new;
 		my ($table, $ldfplan2)	= @grandchildren;
 		isa_ok($table, 'Attean::Plan::Table');
 		isa_ok($ldfplan2, 'AtteanX::Store::LDF::Plan::Triple');
-		like($ldfplan2->as_string, qr(^- LDFTriple { \?a, <http://example\.org/m/c>, \?s }), 'Second LDF ok');
+		like($ldfplan2->as_string, qr(^- LDFTriple \{ \?a, <http://example\.org/m/c>, \?s }), 'Second LDF ok');
 	};
 
 	subtest '3-triple BGP chain with cache on two' => sub {
@@ -340,7 +340,7 @@ my $test = TestLDFCreateStore->new;
 		my @ldfs	= $plan->subpatterns_of_type('AtteanX::Store::LDF::Plan::Triple');
 		is(scalar @ldfs, 1, 'Should be only one LDF in the plan');
 		my $ldf = shift @ldfs;
-		like($ldf->as_string, qr(^- LDFTriple { \?a, <http://example\.org/m/c>, \?s }), 'Second LDF ok');
+		like($ldf->as_string, qr(^- LDFTriple \{ \?a, <http://example\.org/m/c>, \?s }), 'Second LDF ok');
 	};
 
 

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