CPAN::Groonga

 qr/CPANSA-CPAN-2009-01/;
    like $stdout, qr/CPANSA-CPAN-2020-16156/;
    is $stderr,   '';
    isnt $exit,   0;
};

subtest 'command: module, with excluded result' => sub {
    my ( $stdout, $stder

 qr/CPANSA-CPAN-2009-01/;
    like $stdout, qr/CPANSA-CPAN-2020-16156/;
    is $stderr,   '';
    isnt $exit,   0;
};

subtest 'command: module, with excluded results from file' => sub {
    my $file 

 qr/CPANSA-CPAN-2009-01/;
    like $stdout, qr/CPANSA-CPAN-2020-16156/;
    is $stderr,   '';
    isnt $exit,   0;
};

subtest 'command: module, with excluded results from non-existent file' => sub {

 qr/CPANSA-CPAN-2009-01/;
    like $stdout, qr/CPANSA-CPAN-2020-16156/;
    is $stderr,   '';
    isnt $exit,   0;
};

subtest 'command: release, with excluded result' => sub {
    my ( $stdout, $stde

 qr/CPANSA-CPAN-2009-01/;
    like $stdout, qr/CPANSA-CPAN-2020-16156/;
    is $stderr,   '';
    isnt $exit,   0;
};

subtest 'command: module, with excluded results from file' => sub {
    my ( $std

 qr/CPANSA-CPAN-2009-01/;
    like $stdout, qr/CPANSA-CPAN-2020-16156/;
    is $stderr,   '';
    isnt $exit,   0;
};

subtest 'command: unknown release' => sub {
    my ( $stdout, $stderr, $exit ) = 

 qr/CPANSA-CPAN-2009-01/;
    like $stdout, qr/CPANSA-CPAN-2020-16156/;
    is $stderr,   '';
    isnt $exit,   0;
};

subtest 'command: modules with two modules' => sub {
    my ( $stdout, $stderr, $

NSA-CPAN-2020-16156/;
    like $stdout, qr/CPANSA-Mojolicious-2022-03/;
    is $stderr,   '';
    isnt $exit,   0;
};

subtest 'command: modules, with excluded result' => sub {
    my ( $stdout, $stde

A-CPAN-2020-16156/;
    unlike $stdout, qr/CPANSA-Mojolicious-2022-03/;
    is $stderr,   '';
    isnt $exit,   0;
};

subtest 'command: modules, with excluded results from file' => sub {
    my $file

'show', 'CPANSA-UNKNOWN' );

    is $stdout,   '';
    like $stderr, qr/Invalid advisory id/;
    isnt $exit,   0;
};

subtest 'command: show invalid invocation' => sub {
    my ( $stdout, $stderr, $e

xit ) = TestCommand->command('show');

    is $stdout,   '';
    like $stderr, qr/Error: Usage:/;
    isnt $exit,   0;
};

done_testing;