diff options
| author | Stephen McCamant <smcc@mit.edu> | 1998-05-29 18:52:26 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-10 05:58:00 +0000 |
| commit | 108ed793354cb72d90a06de859702b8d730ce020 (patch) | |
| tree | 8fca3ea949b3ae6e471a69709a778a118a4313f9 /t/op/stat.t | |
| parent | a59f352269a39a940b3a5b3b7a80fc4b1e7e1305 (diff) | |
| download | perl-108ed793354cb72d90a06de859702b8d730ce020.tar.gz | |
Re: Uninitialised error from -M()
Message-Id: <m0yfdd4-000Eb2C@alias-2.pr.mcs.net>
p4raw-id: //depot/perl@1089
Diffstat (limited to 't/op/stat.t')
| -rwxr-xr-x | t/op/stat.t | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index c7cd0961f3..4a2b4be15b 100755 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -9,7 +9,7 @@ BEGIN { use Config; -print "1..56\n"; +print "1..58\n"; $Is_MSWin32 = $^O eq 'MSWin32'; $Is_Dos = $^O eq 'dos'; @@ -109,8 +109,8 @@ else { if (-o 'Op.stat.tmp') {print "ok 26\n";} else {print "not ok 26\n";} if (-e 'Op.stat.tmp') {print "ok 27\n";} else {print "not ok 27\n";} -unlink 'Op.stat.tmp', 'Op.stat.tmp2'; -if (! -e 'Op.stat.tmp') {print "ok 28\n";} else {print "not ok 28\n";} +unlink 'Op.stat.tmp2'; +if (! -e 'Op.stat.tmp2') {print "ok 28\n";} else {print "not ok 28\n";} if ($Is_MSWin32 || $Is_Dos) {print "ok 29\n";} @@ -234,3 +234,10 @@ close(FOO); if (-T '/dev/null') {print "ok 55\n";} else {print "not ok 55\n";} if (-B '/dev/null') {print "ok 56\n";} else {print "not ok 56\n";} + +# and now, a few parsing tests: +$_ = 'Op.stat.tmp'; +if (-f) {print "ok 57\n";} else {print "not ok 57\n";} +if (-f()) {print "ok 58\n";} else {print "not ok 58\n";} + +unlink 'Op.stat.tmp'; |