diff options
Diffstat (limited to 't/pragma/warn')
| -rw-r--r-- | t/pragma/warn/pp | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/t/pragma/warn/pp b/t/pragma/warn/pp index 8f42ba64ec..62f054a6ee 100644 --- a/t/pragma/warn/pp +++ b/t/pragma/warn/pp @@ -108,3 +108,43 @@ $_ = "\x80 \xff" ; reverse ; EXPECT ######## +# pp.c +use warnings 'pack' ; +print unpack("C", pack("C", -1)), "\n"; +print unpack("C", pack("C", 0)), "\n"; +print unpack("C", pack("C", 255)), "\n"; +print unpack("C", pack("C", 256)), "\n"; +print unpack("c", pack("c", -129)), "\n"; +print unpack("c", pack("c", -128)), "\n"; +print unpack("c", pack("c", 127)), "\n"; +print unpack("c", pack("c", 128)), "\n"; +no warnings 'pack' ; +print unpack("C", pack("C", -1)), "\n"; +print unpack("C", pack("C", 0)), "\n"; +print unpack("C", pack("C", 255)), "\n"; +print unpack("C", pack("C", 256)), "\n"; +print unpack("c", pack("c", -129)), "\n"; +print unpack("c", pack("c", -128)), "\n"; +print unpack("c", pack("c", 127)), "\n"; +print unpack("c", pack("c", 128)), "\n"; +EXPECT +Character in "C" format wrapped at - line 3. +Character in "C" format wrapped at - line 6. +Character in "c" format wrapped at - line 7. +Character in "c" format wrapped at - line 10. +255 +0 +255 +0 +127 +-128 +127 +-128 +255 +0 +255 +0 +127 +-128 +127 +-128 |