#!/usr/bin/perl
# Test the implements method.
use Mooix::Thing;
use Test::More tests => 4, import => ['!fail'];
run sub {
	my $this=shift;
	ok($this->implements("test_regressions"), "implemnents on real method");
	ok(! $this->implements("no_such_method_I_hope"), "implemnents on nonexistant method");
	ok(! $this->implements("name"), "implements on field");
	ok($this->implements("destroy"), "implements on inherited method");
}
