#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 1; # last test to print
use Test::Run::Obj;
my $tester = Test::Run::Obj->new(
{
test_files => ["t/sample-tests/simple"],
}
);
$tester->runtests();
{
no warnings qw(redefine);
local *Test::Run::Core::_all_ok = sub { return 0 };
eval
{
$tester->_check_for_ok();
};
my $err = $@;
# TEST
like ($err, qr{\$ok is mutually exclusive},
"Got the right error."
);
}