aboutsummaryrefslogtreecommitdiff
path: root/t/20-config.t
diff options
context:
space:
mode:
Diffstat (limited to 't/20-config.t')
-rwxr-xr-xt/20-config.t105
1 files changed, 0 insertions, 105 deletions
diff --git a/t/20-config.t b/t/20-config.t
deleted file mode 100755
index 8d65ad4..0000000
--- a/t/20-config.t
+++ /dev/null
@@ -1,105 +0,0 @@
-#!/usr/bin/env perl
-
-use 5.16.0;
-use strict;
-use warnings FATAL => 'all';
-use Test::More;
-use FindBin '$RealBin';
-use lib $RealBin;
-use Test::Sbotools qw/ sboconfig /;
-
-plan tests => 20;
-
-# 1-7: test invalid arguments
-sboconfig '-c', 'invalid', { exit => 1, expected => "You have provided an invalid parameter for -c\n" };
-sboconfig '-d', 'invalid', { exit => 1, expected => "You have provided an invalid parameter for -d\n" };
-sboconfig '-j', 'invalid', { exit => 1, expected => "You have provided an invalid parameter for -j\n" };
-sboconfig '-p', 'invalid', { exit => 1, expected => "You have provided an invalid parameter for -p\n" };
-sboconfig '-s', 'invalid', { exit => 1, expected => "You have provided an invalid parameter for -s\n" };
-sboconfig '-o', 'invalid', { exit => 1, expected => "You have provided an invalid parameter for -o\n" };
-sboconfig '-V', 'invalid', { exit => 1, expected => "You have provided an invalid parameter for -V\n" };
-
-# 8-9: move original dir away and run tests on the config file
-SKIP: {
- skip "Only run this test under Travis CI", 13 unless $ENV{TRAVIS};
-
- my $dir = '/etc/sbotools';
- rename $dir, "$dir.moved";
- system 'touch', $dir;
-
- sboconfig '-V', '14.1', { exit => 1, expected => qr"\QUnable to create $dir. Exiting." };
-
- unlink $dir;
-
- sboconfig '-V', '14.1', { test => 0 };
- ok(-d $dir, "$dir created correctly.");
-
- unlink "$dir/sbotools.conf";
-
- # set up sbotools.conf
- open my $fh, '>', "$dir/sbotools.conf" or do {
- my $err = $!;
- fail "Writing sbotools.conf";
- diag "Could not open $dir/sbotools.conf for writing: $err";
- skip 10, "Could not write sbotools.conf";
- goto CLEANUP;
- };
-
- say $fh "#comment=foo";
- say $fh "#comment=bar";
- say $fh "";
- say $fh "";
- say $fh "FOO=FOO";
- say $fh "FOO=BAR";
- say $fh "";
- say $fh "SLACKWARE_VERSION=14.0";
- say $fh "SLACKWARE_VERSION=14.2";
-
- close $fh;
-
- sboconfig '-V', '14.1', { test => 0 };
-
- open my $cfh, '<', "$dir/sbotools.conf" or do {
- my $err = $!;
- fail "Reading sbotools.conf";
- diag "Could not open $dir/sbotools.conf for reading: $err";
- skip 10, "Could not read sbotools.conf";
- goto CLEANUP;
- };
-
- chomp(my @lines = readline $cfh);
-
- close $cfh;
-
- is($lines[0], "#comment=foo", "First comment preserved.");
- is($lines[1], "#comment=bar", "Second comment preserved.");
- is($lines[2], "", "First empty line preserved.");
- is($lines[3], "", "Second empty line preserved.");
- is($lines[4], "FOO=FOO", "First setting preserved.");
- is($lines[5], "", "Second setting correctly collapsed. Third empty line preserved.");
- is($lines[6], "SLACKWARE_VERSION=14.1", "SLACKWARE_VERSION correctly set.");
- is($lines[7], undef, "SLACKWARE_VERSION correctly collapsed.");
-
- sboconfig qw[ -V 14.0 -j 2 ], { test => 0 };
-
- open $cfh, '<', "$dir/sbotools.conf" or do {
- my $err = $!;
- fail "Reading sbotools.conf";
- diag "Could not open $dir/sbotools.conf for reading: $err";
- skip 3, "Could not read sbotools.conf";
- goto CLEANUP;
- };
-
- chomp(@lines = readline $cfh);
-
- close $cfh;
-
- is($lines[6], "SLACKWARE_VERSION=14.0", "SLACKWARE_VERSION correctly set again.");
- is($lines[7], "JOBS=2", "JOBS correctly set.");
- is($lines[8], undef, "Nothing new collapsed.");
-
- CLEANUP:
- unlink "$dir/sbotools.conf";
- rmdir $dir;
- rename "$dir.moved", $dir;
-}