Skip to content

Commit 244856c

Browse files
committed
In the tests, sleep a bit before removing temp files, as AV scanner might lock it on Windows.
1 parent b7b93ff commit 244856c

1 file changed

Lines changed: 4 additions & 1 deletion

File tree

t/04misc.t

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -279,7 +279,7 @@ SKIP: {
279279
};
280280
$@ and skip ('Must have File::Temp to complete trace flag testing', 9);
281281

282-
my ($fh,$filename) = File::Temp::tempfile('dbdpg_test_XXXXXX', SUFFIX => '.tst', UNLINK => 1);
282+
my ($fh,$filename) = File::Temp::tempfile('dbdpg_test_XXXXXX', SUFFIX => '.tst', UNLINK => 0);
283283
my ($flag, $info, $expected, $SQL);
284284

285285
$t=q{Trace flag 'SQL' works as expected};
@@ -453,6 +453,9 @@ dbdpg: Begin _sqlstate
453453
$info =~ s/(Login connection string: ).+/$1/g;
454454
is ($info, "$expected", $t);
455455

456+
$^O =~ /Win32/ and sleep 1;
457+
unlink $filename;
458+
456459
} ## end trace flag testing using File::Temp
457460

458461
#

0 commit comments

Comments
 (0)