From: Abigail <abigail@abigail.be>
Date: Wed, 3 Feb 2010 17:25:46 +0000 (+0100)
Subject: Tests for RT #72432
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=872cbd3c8c2e3d888bf4b2c80ab2832bf782640d;p=p5sagit%2Fp5-mst-13.2.git

Tests for RT #72432
---

diff --git a/t/op/packagev.t b/t/op/packagev.t
index bc99ec4..8e8f19f 100644
--- a/t/op/packagev.t
+++ b/t/op/packagev.t
@@ -17,7 +17,8 @@ my @syntax_cases = (
 
 my @version_cases = <DATA>;
 
-plan tests => 5 * @syntax_cases + 5 * grep { $_ !~ /^#/ } @version_cases;
+plan tests => 5 * @syntax_cases + 5 * (grep { $_ !~ /^#/ } @version_cases)
+            + 3;
 
 use warnings qw/syntax/;
 use version;
@@ -94,6 +95,17 @@ for my $line (@version_cases) {
     }
 }
 
+#
+# Tests for #72432 - which reports a syntax error if there's a newline
+# between the package name and the version.
+#
+# Note that we are using 'run_perl' here - there's no problem if 
+# "package Foo\n1;" is evalled.
+#
+for my $v ("1", "1.23", "v1.2.3") {
+    ok (run_perl (prog => "package Foo\n$v; print 1;"),
+                          "New line between package name and version");
+}
 
 # The data is organized in tab delimited format with these columns:
 #