From: Dave Rolsky <autarch@urth.org>
Date: Thu, 21 Apr 2011 20:55:22 +0000 (-0500)
Subject: Make sure that every type passes all its tests when unioned with itself
X-Git-Tag: 2.0100~45
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=28599293dd6f9c9e423e31b41bd0feb78a8aa4cc;p=gitmo%2FMoose.git

Make sure that every type passes all its tests when unioned with itself
---

diff --git a/t/type_constraints/util_std_type_constraints.t b/t/type_constraints/util_std_type_constraints.t
index 0ff5b20..9f8eac0 100644
--- a/t/type_constraints/util_std_type_constraints.t
+++ b/t/type_constraints/util_std_type_constraints.t
@@ -717,6 +717,12 @@ my %tests = (
 
 for my $name ( sort keys %tests ) {
     test_constraint( $name, $tests{$name} );
+
+    test_constraint(
+        Moose::Util::TypeConstraints::find_or_create_type_constraint(
+            "$name|$name"),
+        $tests{$name}
+    );
 }
 
 # We need to test that the Str constraint accepts the return val of substr() -