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

use strict;
use warnings;

use Test::More;

use App::Cmd::Tester;
use HiD::App;

{
  my $result = test_app( 'HiD::App' => [ 'help' ]);

  like $result->stdout    , qr/^Available commands:/m , 'expected STDOUT';
  is   $result->stderr    , ''                        , 'empty STDERR';
  is   $result->exit_code , 0                         , 'success';
}

done_testing();