diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-07-04 06:23:16 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-08-14 17:49:28 -0700 |
| commit | 0484b4037860bf2ebf5cd350c42e4c38189fbf95 (patch) | |
| tree | e4c760223396cc69c6d4a7b462ee43e18319a3c0 /t | |
| parent | 8fece1a6a312fd37ff9b223a465879e996f626e2 (diff) | |
| download | perl-0484b4037860bf2ebf5cd350c42e4c38189fbf95.tar.gz | |
Test initial tick in sub declaration
Diffstat (limited to 't')
| -rw-r--r-- | t/comp/parser.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/comp/parser.t b/t/comp/parser.t index 8ada9ab720..d22e9b3875 100644 --- a/t/comp/parser.t +++ b/t/comp/parser.t @@ -3,7 +3,7 @@ # Checks if the parser behaves correctly in edge cases # (including weird syntax errors) -print "1..138\n"; +print "1..139\n"; sub failed { my ($got, $expected, $name) = @_; @@ -397,6 +397,9 @@ $_ write }).*/; +sub 'Hello'_he_said (_); +is prototype "Hello::_he_said", '_', 'initial tick in sub declaration'; + # Add new tests HERE (above this line) # bug #74022: Loop on characters in \p{OtherIDContinue} |