Grizzly/t/news.t
use Test::More tests => 5;
use App::Cmd::Tester;
use v5.36;
use Grizzly;
my $result = test_app( Grizzly => [qw(news ibm)] );
isnt( $result->output, '', 'gives an output for newse info' );
my $result = test_app( Grizzly => [qw(news msft)] );
isnt( $result->output, '', 'gives an output for news info' );
my $result = test_app( Grizzly => [qw(news)] );
like( $result->stdout, qr//, 'printed what we expected' );
is( $result->stderr, '', 'nothing sent to sderr' );
isnt( $result->error, undef, 'threw no exceptions' );