12:25 >set TEMP=.

12:25 >set TEMP
TEMP=.

12:26 >perl -T -MFile::Temp=tempfile -wE "say $ENV{TEMP}; tempfile();"
.
Error in tempfile() using template \XXXXXXXXXX: Could not create temp file \JFwYM0_6Kz: Permission denied at -e line 1.

12:26 >perl -T -MFile::Temp=tempfile -wE "$ENV{TEMP} = '.'; say $ENV{TEMP}; tempfile();"
.

12:26 >

##</code><code>##

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" );
    }
}