Test::Builder::Tester

use strict;
use Test::More tests => 3;
use Test::Builder::Tester;
use_ok('Test::Foo');

test_out("ok 1 - test if 'foo' eq 'foo'");
foo_ok('foo');
test_test("'foo_ok passes if passed 'foo'");