diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-11 17:55:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-11 17:55:36 +0000 |
| commit | b0f2b690b4ba59b02c372a35658748cb0f31c38e (patch) | |
| tree | 2f4566a6929a0d44860c18d4d25b521e266ab84b /t/op/readdir.t | |
| parent | a59bce4bbbbefbc5a4b29acdba0b61be1c1754bf (diff) | |
| download | perl-b0f2b690b4ba59b02c372a35658748cb0f31c38e.tar.gz | |
Add t/op/lc.t to see if lc, uc, lcfirst, ucfirst, quotemeta work.
Smoked out bugs (well, the same bug twice) from ucfirst and lcfirst
in Unicode handling.
p4raw-id: //depot/perl@11637
Diffstat (limited to 't/op/readdir.t')
| -rwxr-xr-x | t/op/readdir.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/readdir.t b/t/op/readdir.t index 00199b0fec..39d4e4cb00 100755 --- a/t/op/readdir.t +++ b/t/op/readdir.t @@ -24,7 +24,7 @@ closedir(OP); ## This range will have to adjust as the number of tests expands, ## as it's counting the number of .t files in src/t ## -if (@D > 90 && @D < 110) { print "ok 2\n"; } else { print "not ok 2\n"; } +if (@D > 100 && @D < 120) { print "ok 2\n"; } else { print "not ok 2\n"; } @R = sort @D; @G = sort <op/*.t>; |