blob: 07b9b743c9b8bbb718e9ce32c78a14bbec3b4db8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Exit;
use FindBin '$RealBin';
use lib "$RealBin/../SBO-Lib/lib";
use SBO::Lib qw/ open_fh /;
use Capture::Tiny qw/ capture_merged /;
use File::Temp 'tempdir';
plan tests => 1;
sub emulate_race {
my ($file, $caller) = @_;
$caller = "SBO::Lib::$caller";
no warnings 'redefine';
*_race::cond = sub { unlink $file if $caller eq (caller(1))[3]; };
}
# 1: emulate race condition for open_fh
{
my $tempdir = tempdir(CLEANUP => 1);
my $file = "$tempdir/foo";
system('touch', $file);
emulate_race($file, 'open_fh');
my ($fh, $exit) = open_fh $file, '<';
is ($exit, 6, 'open_fh returned exit value 6');
}
|
