view release on metacpan or  search on metacpan

t/cli.t  view on Meta::CPAN

use File::Temp qw(tempfile);
use Test::Most;

# Check if bin/random-string exists
my $cli = 'bin/random-string';
unless (-f $cli) {
	plan skip_all => "CLI script not found at $cli";
}

# Make sure it's executable
chmod 0755, $cli;

sub run_cli {
	my @args = @_;
	my ($out, $err);

	eval {
		run3([$^X, $cli, @args], \undef, \$out, \$err);
	};

	return {