diff options
Diffstat (limited to 't/20-config.t')
-rwxr-xr-x | t/20-config.t | 105 |
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; -} |