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

Test::Tester

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

check_test(
  sub { foo_ok('foo') },
  {
    ok   => 1,
    name => "test if 'foo' eq 'foo'",
  },
  "foo_ok('foo')",
);

check_test(
  sub { foo_ok('bar') },
  {
    ok   => 0,
    name => "test if 'bar' eq 'foo'",
    diag => "'bar' does not equal 'foo'\n",
  },
  "foo_ok('bar')",
);
< | ^ | >
Copyright © 2005 James FitzGibbon