use strict;
no warnings;
use Config;
use IPC::Run3;
use Test::More tests => 1;
my $script = 'script/umlclass.pl';
my @cmd = ($^X, '-Ilib', $script);
my ($stdout, $stderr);
{
my $outfile = 'exclude01.png';
run3( [@cmd, '--dot', '/some/invalid/path/32fdsf232xcc/dot',
'-o', $outfile, '-E', $Config{archlibexp}],
\undef, \$stdout, \$stderr ),
"umlclass -o $outfile -E $Config{archlibexp}";
is $stderr, "ERROR: The dot program (/some/invalid/path/32fdsf232xcc/dot) cannot be found or be run.\n";
}