diff options
| author | Karl Williamson <khw@cpan.org> | 2021-01-14 07:52:26 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2021-01-20 06:51:50 -0700 |
| commit | 1b2f32d508340483aa270e0caf653ba0454345d1 (patch) | |
| tree | 154177a878f233a5023ff8bbb06271fed6526c38 /t/opbasic | |
| parent | a44b2be795f4c5f94384c6f6010860588e144b3c (diff) | |
| download | perl-1b2f32d508340483aa270e0caf653ba0454345d1.tar.gz | |
Allow blanks within and adjacent to {...} constructs
This was the consensus in
http://nntp.perl.org/group/perl.perl5.porters/258489
Diffstat (limited to 't/opbasic')
| -rw-r--r-- | t/opbasic/qq.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/opbasic/qq.t b/t/opbasic/qq.t index e633783df2..0856015331 100644 --- a/t/opbasic/qq.t +++ b/t/opbasic/qq.t @@ -8,7 +8,7 @@ BEGIN { # This file uses a specially crafted is() function rather than that found in # t/test.pl or Test::More. Hence, we place this file in directory t/opbasic. -print q(1..28 +print q(1..30 ); # This is() function is written to avoid "" @@ -47,6 +47,7 @@ is ("\xx9", chr (0) . 'x9'); # This will warn. \x9 is tab in EBCDIC too? is ("\x9_E", chr (9) . '_E'); # This will warn is ("\x{4E}", chr 78); +is ("\x{ 4E }", chr 78); is ("\x{6_9}", chr 105); is ("\x{_6_3}", chr 99); is ("\x{_6B}", chr 107); @@ -68,6 +69,7 @@ is ("\400", chr 0x100); is ("\600", chr 0x180); is ("\777", chr 0x1FF); is ("a\o{120}b", "a" . chr(0x50) . "b"); +is ("a\o{ 120 }b", "a" . chr(0x50) . "b"); is ("a\o{400}b", "a" . chr(0x100) . "b"); is ("a\o{1000}b", "a" . chr(0x200) . "b"); |