sbotools2

Maintenance fork of the original sbotools version 2
git clone git://git.server.ky/slackcoder/sbotools2
Log | Files | Refs | README

24-unit-sboconfig.t (620B)

      1 #!/usr/bin/env perl
      2 
      3 use strict;
      4 use warnings;
      5 use Test::More;
      6 use Test::Exit;
      7 use FindBin '$RealBin';
      8 use lib $RealBin;
      9 use Test::Sbotools qw/ load /;
     10 use Capture::Tiny qw/ capture_merged /;
     11 use File::Temp 'tempdir';
     12 use Cwd;
     13 
     14 plan tests => 2;
     15 
     16 # 1-2: sboconfig unit tests...
     17 {
     18 	load('sboconfig');
     19 
     20 	my $exit;
     21 	my $out = capture_merged { $exit = exit_code { main::config_write(); }; };
     22 
     23 	is ($out, "A fatal script error has occurred:\nconfig_write requires at least two arguments.\nExiting.\n", "sboconfig's config_write() gave correct output");
     24 	is ($exit, 2, "sboconfig's config_write() gave correct exit status");
     25 }