[libdancer2-perl] 06/07: Add patch to fix test failure in new test

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libdancer2-perl.

commit ff0ec9032b731504030605cf7427d1d9288d1afd
Author: gregor herrmann <gregoa at debian.org>
Date:   Wed Oct 15 20:24:12 2014 +0200

    Add patch to fix test failure in new test
    
    which occurs with regexp pattern meta-characters in the build path.
---
 debian/patches/series                     |  1 +
 debian/patches/t-basename-metachars.patch | 39 +++++++++++++++++++++++++++++++
 2 files changed, 40 insertions(+)

diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..83ce29a
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+t-basename-metachars.patch
diff --git a/debian/patches/t-basename-metachars.patch b/debian/patches/t-basename-metachars.patch
new file mode 100644
index 0000000..917e3ca
--- /dev/null
+++ b/debian/patches/t-basename-metachars.patch
@@ -0,0 +1,39 @@
+Description: fix (potential) test failure
+ t/classes/Dancer2-Core-Role-HasLocation/base.t fails if the build path
+ contains regex meta-characters (like '+' in my case).
+ Disable pattern metacharacters when removing $basedir.
+Origin: vendor
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2014-10-15
+Forwarded: https://github.com/PerlDancer/Dancer2/issues/727
+Bug: https://github.com/PerlDancer/Dancer2/issues/727
+
+--- a/t/classes/Dancer2-Core-Role-HasLocation/base.t
++++ b/t/classes/Dancer2-Core-Role-HasLocation/base.t
+@@ -42,7 +42,7 @@
+     isa_ok( $app, 'App' );
+ 
+     my $location = $app->location;
+-    $location =~ s/$basedir//;
++    $location =~ s/\Q$basedir\E//;
+ 
+     is(
+         $location,
+@@ -61,7 +61,7 @@
+     isa_ok( $app, 'App' );
+ 
+     my $location = $app->location;
+-    $location =~ s/$basedir//;
++    $location =~ s/\Q$basedir\E//;
+ 
+     is(
+         $location,
+@@ -80,7 +80,7 @@
+     isa_ok( $app, 'App' );
+ 
+     my $location = $app->location;
+-    $location =~ s/$basedir//;
++    $location =~ s/\Q$basedir\E//;
+ 
+     is(
+         $location,

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