#!/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";
}