to.pm.org Jan 2005 Testing the Testers #7

Testing our Custom Test

use strict;
use Test::More tests => 2;
use Test::Foo;
is( foo_ok('foo'), 1, 'foo_ok returns 1');

1..2
ok 1 - test if 'foo' eq 'foo'
ok 2 - foo_ok returns 1
< | ^ | >
Copyright © 2005 James FitzGibbon