t/26-race-sbocheck.t


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

#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use Test::Exit;
use FindBin '$RealBin';
use lib "$RealBin/../SBO-Lib/lib";
use Capture::Tiny qw/ capture_merged /;
use File::Temp 'tempdir';
use Cwd;

plan tests => 2;

sub load {
	my ($script, %opts) = @_;

	local @ARGV = exists $opts{argv} ? @{ $opts{argv} } : '-h';
	my ($ret, $exit, $out, $do_err);
	my $eval = eval {
		$out = capture_merged { $exit = exit_code {
			$ret = do "$RealBin/../$script";
			$do_err = $@;
		}; };
		1;
	};
	my $err = $@;

	note explain { ret => $ret, exit => $exit, out => $out, eval => $eval, err => $err, do_err => $do_err } if $opts{explain};
}

# 1-2: sbocheck race test...
{
	load('sbocheck');

	my $logfile = '/var/log/sbocheck.log';
	unlink $logfile;
	mkdir $logfile;

	my $exit;
	my $out = capture_merged { $exit = exit_code { main::print_output('foo'); }; };

	like ($out, qr/\QUnable to open $logfile./, "sbocheck's print_output() gave correct output");
	is ($exit, undef, "sbocheck's print_output() didn't exit");

	unlink $logfile;
}