diff options
| author | Tom Phoenix <rootbeer@teleport.com> | 1996-12-29 17:46:21 -0800 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-01 08:59:00 +1200 |
| commit | 3524d3b9766c150548bbd837b65d78ef993d647d (patch) | |
| tree | a2d6506da30da1584d4c784254b5258564f0e0c6 /t/op/quotemeta.t | |
| parent | d5c001ddae568c5769b6a9eb70138c72d385cacb (diff) | |
| download | perl-3524d3b9766c150548bbd837b65d78ef993d647d.tar.gz | |
More tests
private-msgid: <Pine.GSO.3.95.961229170736.15213M-100000@solaris.teleport.co
Diffstat (limited to 't/op/quotemeta.t')
| -rwxr-xr-x | t/op/quotemeta.t | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/t/op/quotemeta.t b/t/op/quotemeta.t index 09794571b1..20dd312b31 100755 --- a/t/op/quotemeta.t +++ b/t/op/quotemeta.t @@ -1,15 +1,15 @@ #!./perl print "1..15\n"; -$_=join "", grep $_=chr($_), 32..127; +$_=join "", map chr($_), 32..127; -#95 characters - 52 letters - 10 digits = 33 backslashes -#95 characters + 33 backslashes = 128 characters +# 96 characters - 52 letters - 10 digits - 1 underscore = 33 backslashes +# 96 characters + 33 backslashes = 129 characters $_=quotemeta $_; -if ( length == 128 ){print "ok 1\n"} else {print "not ok 1\n"} -if (tr/\\//cd == 94){print "ok 2\n"} else {print "not ok 2\n"} +if ( length == 129 ){print "ok 1\n"} else {print "not ok 1\n"} +# 95 non-backslash characters +if (tr/\\//cd == 95){print "ok 2\n"} else {print "not ok 2\n"} -#perl5a11 bus errors on this: if (length quotemeta "" == 0){print "ok 3\n"} else {print "not ok 3\n"} print "aA\UbB\LcC\EdD" eq "aABBccdD" ? "ok 4\n" : "not ok 4 \n"; |