From fda0360e34556d205ea05f2bbe5671679b3e7129 Mon Sep 17 00:00:00 2001 From: Andreas Guldstrand Date: Sat, 4 Jun 2016 18:40:19 +0200 Subject: 01-unit.t: add sboconfig unit testing --- t/01-unit.t | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/t/01-unit.t b/t/01-unit.t index ab3a6e8..1c29de2 100755 --- a/t/01-unit.t +++ b/t/01-unit.t @@ -11,7 +11,7 @@ use Capture::Tiny qw/ capture_merged /; use File::Temp 'tempdir'; use Cwd; -plan tests => 59; +plan tests => 61; sub load { my ($script, %opts) = @_; @@ -340,3 +340,15 @@ SKIP: { is ($out, "A fatal script error has occurred:\nremove_stuff requires an argument.\nExiting.\n", "sboclean's remove_stuff() gave correct output"); is ($exit, 2, "sboclean's remove_stuff() gave correct exit status"); } + +# 60-61: sboconfig unit tests... +{ + local (*main::show_usage, *main::config_write); + load('sboconfig'); + + my $exit; + my $out = capture_merged { $exit = exit_code { main::config_write(); }; }; + + is ($out, "A fatal script error has occurred:\nconfig_write requires two arguments.\nExiting.\n", "sboconfig's config_write() gave correct output"); + is ($exit, 2, "sboconfig's config_write() gave correct exit status"); +} -- cgit v1.2.3