diff options
| author | Nicholas Clark <nick@ccl4.org> | 2002-01-09 17:56:04 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-09 19:08:15 +0000 |
| commit | c19e406d5e8b2d85346a6af09d86280d24d8e49b (patch) | |
| tree | cdda00f406139a934cd0eb0aac560b1e8bfcb84b /t | |
| parent | 4116aceb1537469dd7cae296441b74ef9a13a4e3 (diff) | |
| download | perl-c19e406d5e8b2d85346a6af09d86280d24d8e49b.tar.gz | |
op/readdir.t (was Re: perl@14152)
Message-ID: <20020109175604.H354@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@14154
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/readdir.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/op/readdir.t b/t/op/readdir.t index 39d4e4cb00..7cfecdb565 100755 --- a/t/op/readdir.t +++ b/t/op/readdir.t @@ -24,7 +24,12 @@ 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 > 100 && @D < 120) { print "ok 2\n"; } else { print "not ok 2\n"; } +my ($min, $max) = (115, 135); +if (@D > $min && @D < $max) { print "ok 2\n"; } +else { + printf "not ok 2 # counting op/*.t, expect $min < %d < $max files\n", + scalar @D; +} @R = sort @D; @G = sort <op/*.t>; |