Add tests for or-combination operator

diff --git a/t/001_mouse/810-isa-or.t b/t/001_mouse/810-isa-or.t
index 57b212c..aeb326a 100644 (file)
--- a/t/001_mouse/810-isa-or.t
+++ b/t/001_mouse/810-isa-or.t
@@ -6,7 +6,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 18;
+use Test::More tests => 22;
 
 {   
     package Foo;
@@ -103,3 +103,19 @@ isa_ok $k->foo, 'KLASS';
 $k->foo(undef);
 is $k->foo, undef, 'foo is undef';
 
+# or-combination operator ('|')
+{
+    use Mouse::Util::TypeConstraints;
+    my $Int    = find_type_constraint 'Int';
+    my $Str    = find_type_constraint 'Str';
+    my $Object = find_type_constraint 'Object';
+
+    *t = \&Mouse::Util::TypeConstraints::find_or_parse_type_constraint; # alias
+
+    is $Int | $Str, t('Int | Str');
+    is $Str | $Int, t('Int | Str');
+
+    is $Int | $Str | $Object, t('Int | Str | Object');
+    is $Str | $Object | $Int, t('Int | Str | Object');
+}
+