Feeping Creaturism

use strict;
use Test::More tests => 4;
use Test::Builder;
use Test::Foo;
is( foo_ok('foo'), 1, 'foo_ok returns 1');
isnt( foo_ok('bar'), 1, 'foo_ok does not returns 1');

my $t = Test::Builder->new;
$t->no_ending(1);