In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/476e237d2f6c7190af95ee1801cd6e85315b3262?hp=6428272954846b6f268c5ccfae980f9c90424939>
- Log ----------------------------------------------------------------- commit 476e237d2f6c7190af95ee1801cd6e85315b3262 Author: Brad Gilbert <[email protected]> Date: Wed Dec 26 15:00:06 2012 -0600 Clean up indenting on t/win32/fs.t Previous commit removed the need for indents. M t/win32/fs.t commit 4eb3570cf75ab76f2621885bd7fb4ed49edfd2bb Author: Brad Gilbert <[email protected]> Date: Wed Dec 26 14:46:49 2012 -0600 Remove dead code from t/win32/fs.t tempfile() from t/test.pl already handles checking for existing files and removing them at the end of the test. This test also doesn't need Config loaded M t/win32/fs.t ----------------------------------------------------------------------- Summary of changes: t/win32/fs.t | 36 +++++++++++++----------------------- 1 files changed, 13 insertions(+), 23 deletions(-) diff --git a/t/win32/fs.t b/t/win32/fs.t index 89992c8..35d3617 100644 --- a/t/win32/fs.t +++ b/t/win32/fs.t @@ -8,31 +8,21 @@ BEGIN { die $@ if $@ and !is_miniperl(); } -use Config; - plan tests => 4; my $tmpfile1 = tempfile(); my $tmpfile2 = tempfile(); -SKIP: { - # RT #112272 - -e $tmpfile1 || -e $tmpfile2 - and skip("somehow, the files exist", 4); - ok(!link($tmpfile1, $tmpfile2), - "Cannot link to unknown file"); - is(0+$!, &Errno::ENOENT, "check errno is ENOENT"); - open my $fh, ">", $tmpfile1 - or skip("Cannot create test link src", 2); - close $fh; - open my $fh, ">", $tmpfile2 - or skip("Cannot create test link target", 2); - close $fh; - ok(!link($tmpfile1, $tmpfile2), - "Cannot link to existing file"); - is(0+$!, &Errno::EEXIST, "check for EEXIST"); -} - -END { - unlink($tmpfile1, $tmpfile2); -} +# RT #112272 +ok(!link($tmpfile1, $tmpfile2), + "Cannot link to unknown file"); +is(0+$!, &Errno::ENOENT, "check errno is ENOENT"); +open my $fh, ">", $tmpfile1 + or skip("Cannot create test link src", 2); +close $fh; +open my $fh, ">", $tmpfile2 + or skip("Cannot create test link target", 2); +close $fh; +ok(!link($tmpfile1, $tmpfile2), + "Cannot link to existing file"); +is(0+$!, &Errno::EEXIST, "check for EEXIST"); -- Perl5 Master Repository
