Test::Builder::Tester

1..3
ok 1 - use Test::Foo;
ok 2 - 'foo_ok passes if passed 'foo'
ok 3 - 'foo_ok fails if passed 'bar'

Not yet perfect