use strict;
use warnings;
use Test::Tester tests => 7;
use Test::More;
use Test::Deep;
use Test::Method;

{
	package Test;

	sub new {
		my $class = shift;
		return bless {}, $class;
	}

	sub method {
		return 'true';
	}
}

my $obj = Test->new;

check_test(
	sub {
		method_ok( $obj, 'method', undef, re('^t'));
	},
	{
		ok   => 1,
		name => q[Test->method() is Test::Deep::Regexp],
		diag => '',
	},
	'method_ok'
);