diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-29 14:25:17 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-29 14:25:17 +0000 |
| commit | 2898e2cc516011c930234c57dc67480ae22276d8 (patch) | |
| tree | 9aea422796241f021c2058778a14603913d2c298 /t | |
| parent | c79a664e3936124d4b9a65ea603c210925d2fb81 (diff) | |
| download | perl-2898e2cc516011c930234c57dc67480ae22276d8.tar.gz | |
Disabling the one test is a bit tricky.
p4raw-id: //depot/perl@6884
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/ftmp-security.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/t/lib/ftmp-security.t b/t/lib/ftmp-security.t index ca579927ea..24669161e2 100755 --- a/t/lib/ftmp-security.t +++ b/t/lib/ftmp-security.t @@ -9,7 +9,7 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require Test; import Test; - plan(tests => 12); + plan(tests => 13); } use strict; @@ -103,10 +103,12 @@ sub test_security { # Explicitly # Disabled temporarily since people seem to have funky owner/permissions setups -# (if and when re-enabling this, remember to bump the number of tests, too) # --jhi 2000-08-29 # my ($fh2, $fname2) = tempfile ($template, UNLINK => 1 ); -# ok( (-e $fname2) ); + my($fname2) = "foobar$$"; + my $fh2; + open($fh2, ">$fname2") || warn "$0: failed to create '$fname2': $!\n"; + ok( (-e $fname2) ); close($fh2); # Store filenames for the end block |