added some overloading so that we can properly perform equality tests between a TC...

[gitmo/MooseX-Types.git] / t / regressions / 01-is_subtype_of.t

diff --git a/t/regressions/01-is_subtype_of.t b/t/regressions/01-is_subtype_of.t
index 1f2f000..d1a7054 100644 (file)
--- a/t/regressions/01-is_subtype_of.t
+++ b/t/regressions/01-is_subtype_of.t
@@ -1,27 +1,34 @@
 use strict;
 use warnings;
 
-use Test::More tests=>6;
+use Test::More tests=>5;
 use MooseX::Types;
 use MooseX::Types::Moose qw(Any Item );
 
 
 my $item = subtype as 'Item';
 
+ok Item->equals('Item');
+ok Item->equals(Item);
+
 ok ( $item->is_subtype_of('Any'),
   q[$item is subtype of 'Any']);
 
 ok ( Item->is_subtype_of('Any'),
   q[Item is subtype of 'Any']);
 
-ok ( $item->is_subtype_of(Any),
-  q[Item is subtype of Any]);
-
 ok ( Item->is_subtype_of(Any),
   q[Item is subtype of Any]);
 
+
+__END__
+
+
 my $any = subtype as 'Any';
 
+ok ( $item->is_subtype_of(Any),
+  q[Item is subtype of Any]);
+
 ok ( $item->is_subtype_of($any),
   q[$item is subtype of $any]);