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

abe pushed a commit to annotated tag 2.002005
in repository libdist-zilla-plugin-test-podspelling-perl.

commit 429453bc9206ae75d88a5d7512b4baf6dfe24613
Author: Caleb Cushing <xenoterrac...@gmail.com>
Date:   Wed Jun 27 13:56:20 2012 -0500

    check for just content and content with line endings
    
    fix for bug in test with perl 5.8.8
    
    Signed-off-by: Caleb Cushing <xenoterrac...@gmail.com>
---
 t/dashed.t | 21 +++++++++++++++++----
 1 file changed, 17 insertions(+), 4 deletions(-)

diff --git a/t/dashed.t b/t/dashed.t
index 0975082..5c14030 100644
--- a/t/dashed.t
+++ b/t/dashed.t
@@ -41,9 +41,22 @@ sub get_content {
 }
 
 my $content = get_content({});
-like $content, qr/^$fname $/xms, q[includes first name];
-like $content, qr/^$lname1$/xms, q[includes last name 1];
-like $content, qr/^$lname2$/xms, q[includes last name 2];
-unlike $content, qr/^$mi  $/xms, q[doesnot include the midddle initial];
+
+like   $content, qr/$fname /xms, 'includes first name';
+like   $content, qr/$lname1/xms, 'includes last name 1';
+like   $content, qr/$lname2/xms, 'includes last name 2';
+unlike $content, qr/$mi    /xms, 'does not include the midddle initial';
+
+SKIP: {
+       use English '-no_match_Vars';
+       skip 'qr//m does not work properly in 5.8.8', 4,
+               unless $PERL_VERSION gt v5.10
+               ;
+
+       like   $content, qr/^$fname $/xms, q[includes first name];
+       like   $content, qr/^$lname1$/xms, q[includes last name 1];
+       like   $content, qr/^$lname2$/xms, q[includes last name 2];
+       unlike $content, qr/^$mi    $/xms, q[does not include the midddle 
initial];
+}
 
 done_testing;

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-plugin-test-podspelling-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