use strict;
use warnings;
use Test::Clustericious::Command;
use Test::More;
requires undef, 5;
extract_data;
mirror 'bin' => 'bin';
$ENV{CLUSTERICIOUS_SANE} = 1;
run_ok('foo', 'configtest')
->exit_is(0)
->out_like(qr{config okay})
->note;
$ENV{CLUSTERICIOUS_SANE} = 0;
run_ok('foo', 'configtest')
->exit_is(2)
->note;
__DATA__
@@ bin/foo
#!/usr/bin/perl
use strict;
use warnings;
use Clustericious::Commands;
$ENV{MOJO_APP} = 'Foo';
Clustericious::Commands->start;
@@ lib/Foo.pm
package Foo;
use strict;
use warnings;
use base qw( Clustericious::App );
sub sanity_check { $ENV{CLUSTERICIOUS_SANE} }
1;