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

Testing our Custom Test

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

1..2
not ok 1 - test if 'bar' eq 'foo'
#     Failed test (test_foo_failure.t at line 4)
# 'bar' does not equal 'foo'
ok 2 - foo_ok does not returns 1
# Looks like you failed 1 test of 2.
< | ^ | >
Copyright © 2005 James FitzGibbon