aboutsummaryrefslogtreecommitdiff
path: root/t/30-race-sboconfig.t
diff options
context:
space:
mode:
Diffstat (limited to 't/30-race-sboconfig.t')
-rwxr-xr-xt/30-race-sboconfig.t34
1 files changed, 0 insertions, 34 deletions
diff --git a/t/30-race-sboconfig.t b/t/30-race-sboconfig.t
deleted file mode 100755
index 8b245e2..0000000
--- a/t/30-race-sboconfig.t
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-use Test::More;
-use Test::Exit;
-use FindBin '$RealBin';
-use lib $RealBin;
-use Test::Sbotools 'load';
-use Capture::Tiny qw/ capture_merged /;
-use File::Temp 'tempdir';
-use Cwd;
-
-plan tests => 2;
-
-# 1-2: sbocheck race test...
-{
- load('sboconfig');
-
- my $file = "/etc/sbotools/sbotools.conf";
- mkdir "/etc/sbotools";
- rename $file, "$file.bak";
-
- no warnings 'redefine', 'once';
- local *main::open_fh = sub { return "Unable to open $file.\n", 6; };
-
- my $exit;
- my $out = capture_merged { $exit = exit_code { main::config_write(1,2); }; };
-
- like ($out, qr/\QUnable to open $file./, "sboconfig's config_write() gave correct output");
- is ($exit, 6, "sboconfig's config_write() exited with 6");
-
- rename "$file.bak", $file;
-}