The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
BEGIN { eval q{ use EV } }
BEGIN { eval q{ use Test::Clustericious::Log } }
use Test::More tests => 1;
use IO::Scalar;
use Clustericious::Commands;

use strict;

BEGIN {
    $ENV{LOG_LEVEL} = 'FATAL';
}

my $c;
{
    local $ENV{HARNESS_ACTIVE};
    tie *STDOUT, 'IO::Scalar', \$c;
    Clustericious::Commands->new->run('generate');
    untie *STDOUT;
}

like $c, qr/mbd_app/, 'help text has mbd_app';