[libdist-zilla-plugin-test-podspelling-perl] 01/02: check for just content and content with line endings
Axel Beckert
abe at deuxchevaux.org
Mon May 25 10:03:24 UTC 2015
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 <xenoterracide at 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 <xenoterracide at 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
More information about the Pkg-perl-cvs-commits
mailing list