The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl

use Test::More tests => 1;
use Test::Exception;

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/lib";

use File::Temp;
use App::CmdDispatch;

throws_ok
{
    App::CmdDispatch->new(
        {
            noop => {
                code => sub { }
            }
        },
        { config => 'xyzzy' }
    );
}
qr/Supplied config is not a file./, 'Exception if supplied bad file name';