diff options
| author | Craig A. Berry <craigberry@mac.com> | 2003-07-20 05:43:32 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2003-07-21 14:26:43 +0000 |
| commit | 98a392ecbb7845edc25cfe254ee96c1a58aa132c (patch) | |
| tree | e1d960745726ba3913486194cb9ee57260c41bf4 /t | |
| parent | 42bc3d67f53713d43d4feb8de9def128eb32d283 (diff) | |
| download | perl-98a392ecbb7845edc25cfe254ee96c1a58aa132c.tar.gz | |
Re: [PATCH] test clean-up for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3F1AB8A4.2070207@mac.com>
p4raw-id: //depot/perl@20175
Diffstat (limited to 't')
| -rwxr-xr-x | t/io/argv.t | 2 | ||||
| -rwxr-xr-x | t/op/stat.t | 6 | ||||
| -rw-r--r-- | t/uni/write.t | 2 |
3 files changed, 7 insertions, 3 deletions
diff --git a/t/io/argv.t b/t/io/argv.t index f2f3245b10..33c4f1a8e7 100755 --- a/t/io/argv.t +++ b/t/io/argv.t @@ -127,6 +127,6 @@ unlink "Io_argv3.tmp"; **PROG** END { - unlink 'Io_argv1.tmp', 'Io_argv1.tmp_bak', + 1 while unlink 'Io_argv1.tmp', 'Io_argv1.tmp_bak', 'Io_argv2.tmp', 'Io_argv2.tmp_bak', 'Io_argv3.tmp'; } diff --git a/t/op/stat.t b/t/op/stat.t index 89046c364b..69caf8c68a 100755 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -40,7 +40,7 @@ my $tmpfile = 'Op_stat.tmp'; my $tmpfile_link = $tmpfile.'2'; -unlink $tmpfile; +1 while unlink $tmpfile; open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!"); close FOO; @@ -426,3 +426,7 @@ SKIP: { '-l _ croaks after -T _' ); unlink $linkname or print "# unlink $linkname failed: $!\n"; } + +END { + 1 while unlink $tmpfile; +} diff --git a/t/uni/write.t b/t/uni/write.t index 717fcaba54..0d5cedcee0 100644 --- a/t/uni/write.t +++ b/t/uni/write.t @@ -101,4 +101,4 @@ $ulite1 $bmulti$blite2 EOEXPECT -unlink 'Uni_write.tmp'; +1 while unlink 'Uni_write.tmp'; |