use MyTestMoreRunner;
 
my $testMoreWrapper = MyTestMoreWrapper->new( 
    # the runner will set Test::More's test => 20
    numTests => 20,
    # the class I'm testing
    testClass => 'theClassImTesting',
);

$testMoreWrapper->runTest(
    # test name (Test::More assertion's 3rd arg
    testName => "testSomething returns 20",
    # these get passed to theClassImTesting
    params   => { foo => 'foo', bar => 'bar' },
    # assertions on what theClassImTesting returns
    is       => 20
);

$testMoreWrapper->done();

##</code><code>##

sub okExplain {
    my ($result, $desc, $dumpMeOnFailure, $moreDiag) = @_;
    $moreDiag ||= ""; 
    ok($result == 1, $desc) || diag(explain($dumpMeOnFailure), $moreDiag);
}