Testing Output and Errors

use strict;
use Test::More tests => (2 * 1) + (2 * 2);  # success * 2 + failure * 2
use Test::Builder;
use Test::Foo;
is( foo_ok('foo'), 1, 'foo_ok returns 1');