view release on metacpan or  search on metacpan

script/advice_slip.pl  view on Meta::CPAN

use lib '../lib';
use v5.38;
no warnings 'experimental::builtin';
use Acme::Free::Advice::Slip;
use Getopt::Long;
use Pod::Usage;

# Test
#~ @ARGV = qw[-id 2];
#~ @ARGV = qw[-help];
#~ @ARGV = qw[-search time];

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

use Test2::V0;
#
use lib '../lib', 'lib';
use Acme::Free::Advice::Slip qw[:all];
#
imported_ok qw[advice search];
#
ok +advice(), 'stringify';
#
subtest 'random advice' => sub {
    is my $slip = advice(), hash {
        field advice => D();
        field id     => D();