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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
#!/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 => 2;
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');
}
# 2: emulate race in open_fh called by read_config
{
my $conf_file = "/etc/sbotools/sbotools.conf";
system('mkdir', '-p', '/etc/sbotools');
system('mv', $conf_file, "$conf_file.bak");
system('touch', $conf_file);
emulate_race($conf_file, 'open_fh');
my $out = capture_merged { SBO::Lib::read_config(); };
is ($out, "Unable to open $conf_file.\n", 'read_config output correct');
system('mv', "$conf_file.bak", $conf_file) if -e "$conf_file.bak";
}
|
