tested_sub();
ok(some side effect, "expected side effect");
my $scalar_response = tested_sub();
is($scalar_response, $expected, "gives proper scalar value");
my @list_response = tested_sub();
is_deeply(\@list_response,\@expected_response, "gives proper list value");