diff options
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 2531d71954..e5d3145114 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..634\n"; +print "1..639\n"; BEGIN { chdir 't' if -d 't'; @@ -1796,3 +1796,22 @@ if(test_o('abc','..(.)') eq 'a') { print "not ok 634\n"; } +# 635..639: ID 20010619.003 (only the space character is +# supposed to be [:print:], not the whole isprint()). + +print "not " if "\n" =~ /[[:print:]]/; +print "ok 635\n"; + +print "not " if "\t" =~ /[[:print:]]/; +print "ok 636\n"; + +# Amazingly verrical tabulator is the same in ASCII and EBCDIC. +print "not " if "\014" =~ /[[:print:]]/; +print "ok 637\n"; + +print "not " if "\r" =~ /[[:print:]]/; +print "ok 638\n"; + +print "not " unless " " =~ /[[:print:]]/; +print "ok 639\n"; + |