SKIP: { my $have_TO = eval { require Test::Output; 1; }; print STDERR $@; skip 'these tests require Test::Output', 5 unless $have_TO; local @ARGV = qw(commands); my $temp = $ENV{TEMP}; # ADDED $ENV{TEMP} = '.'; # ADDED my ($output) = Test::Output::output_from( sub { $cmd->run } ); $ENV{TEMP} = $temp; # ADDED for my $name (qw(commands frobulate justusage stock bark)) { like( $output, qr/^\s+\Q$name\E/sm, "$name plugin in listing" ); } }