use strict;
use warnings;
use Test::More;

require '/path/to/myscript.pl';

can_ok MyScript => qw(greet greeting make_subject make_hello main);

is MyScript::make_hello, 'Hello', 'Got Hello';
is MyScript::make_subject('Monk'), 'Monk', 'Got correct subject.';
is MyScript::greeting('Monk'), 'Hello Monk', 'Got a correct greeting.';

use Capture::Tiny qw(capture_stdout);

my $resp = capture_stdout {MyScript::greet('Monk')};

is $resp, "Hello Monk\n", 'Got correct output in STDOUT.';

done_testing();