Test::Mouse

  use Test::More plan => 1;
  use Test::Mouse;
  meta_ok($class_or_obj, "... Foo has a ->meta");
  does_ok($class_or_obj, $role, "... Foo does the Baz role");
  has_attribute_ok($class_or_obj, $attr_name, "... Foo has the 'bar' attribute");

This module provides some useful test functions for Mouse based classes. It is an experimental first release, so comments and suggestions are very welcome.

meta_ok ($class_or_object)

Tests if a class or object has a metaclass.

does_ok ($class_or_object, $role, ?$message)

Tests if a class or object does a certain role, similar to what "isa_ok" does for the "isa" method.

has_attribute_ok($class_or_object, $attr_name, ?$message)

Tests if a class or object has a certain attribute, similar to what "can_ok" does for the methods.

with_immutable { CODE } @class_names

Runs CODE *which should contain normal tests) twice, and make each class in @class_names immutable between the two runs.

Mouse

Test::Moose

Test::More