view release on metacpan or  search on metacpan

script/advice.pl  view on Meta::CPAN

use lib '../lib';
use v5.36;
use Acme::Free::Advice;
use Getopt::Long;
use Pod::Usage;
use open qw[:std :encoding(UTF-8)];

# Test
#~ @ARGV = qw[];
#~ @ARGV = qw[-json];
#~ @ARGV = qw[-h];
#~ @ARGV = qw[-unsolicited];
#~ @ARGV = qw[-unsolicited -json];
#~ @ARGV = qw[-slip];
#~ @ARGV = qw[-slip -json];
#~ @ARGV = qw[-flavors];

t/00_compile.t  view on Meta::CPAN

use Test2::V0;
use open qw[:std :encoding(UTF-8)];
#
use lib '../lib', 'lib';
use Acme::Free::Advice qw[:all];
#
imported_ok qw[advice flavors];
#
ok my @flavors = flavors(), 'flavors() returns a list';
ok +advice(),               'advice()';
subtest 'flavors' => sub {
    ok advice($_), 'advice(' . $_ . ')' for sort @flavors;