From 7eb24bdc05cd341dd2b91449f4919d12f73bf7bf Mon Sep 17 00:00:00 2001
From: hiratara <hiratara@cpan.org>
Date: Fri, 29 Oct 2010 14:41:05 +0900
Subject: [PATCH] Changed a test for Mouse.

DOES means does() or isa().
---
 t/trait.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/trait.t b/t/trait.t
index 69bb1e1..e8acf79 100644
--- a/t/trait.t
+++ b/t/trait.t
@@ -20,7 +20,8 @@ our ($built, $demolished) = (0, 0);
 
 my $bus = AnyMQ->new_with_traits( traits => ['Test']);
 
-ok($bus->DOES('AnyMQ::Trait::Test'));
+# Mouse hasn't supported UNIVERSAL::DOES yet
+ok($bus->does('AnyMQ::Trait::Test') || $bus->isa('AnyMQ::Trait::Test'));
 
 ok($built);
 undef $bus;