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 <kje...@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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to