diff options
| author | Karl Williamson <khw@khw-desktop.(none)> | 2010-06-24 11:00:06 -0600 |
|---|---|---|
| committer | David Golden <dagolden@cpan.org> | 2010-07-17 21:50:48 -0400 |
| commit | 84bb2957796edcfae3987d615d1b8f0f6495a3cf (patch) | |
| tree | d0cbc175064aa4fc8a8cf9a4ed514d95a796983b /t/op/qq.t | |
| parent | fa1639c581be6a27f090adf217f82a3e86ba3446 (diff) | |
| download | perl-84bb2957796edcfae3987d615d1b8f0f6495a3cf.tar.gz | |
Add tests for \400 for "" strings, s//replacement/
Signed-off-by: David Golden <dagolden@cpan.org>
Diffstat (limited to 't/op/qq.t')
| -rw-r--r-- | t/op/qq.t | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -5,7 +5,7 @@ BEGIN { @INC = '../lib'; } -print q(1..23 +print q(1..26 ); # This is() function is written to avoid "" @@ -61,6 +61,9 @@ is ("\x{000000000000000000000000000000000000000000000000000000000000000072}", is ("\x{0_06_5}", chr 101); is ("\x{1234}", chr 4660); is ("\x{10FFFD}", chr 1114109); +is ("\400", chr 0x100); +is ("\600", chr 0x180); +is ("\777", chr 0x1FF); # These kludged tests should change when we remove the temporary fatal error # in util.c for "\c{". And, the warning there should probably not be |