est_app( Grizzly => [qw(quote ibm)] );
isnt( $result->output, '', 'gives an output for quote info' );
my $result = test_app( Grizzly => [qw(quote msft)] );
isnt( $result->output, '', 'gives an output
est_app( Grizzly => [qw(quote)] );
like( $result->stdout, qr//, 'printed what we expected' );
is( $result->stderr, '', 'nothing sent to sderr' );
isnt( $result->error, undef, 'threw no exceptions' );
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
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' );