DEATH TO ALL zionist ELLIPSES

[gitmo/Moose.git] / t / 040_type_constraints / 018_custom_parameterized_types.t

diff --git a/t/040_type_constraints/018_custom_parameterized_types.t b/t/040_type_constraints/018_custom_parameterized_types.t
index 2de911b..638fc82 100644 (file)
--- a/t/040_type_constraints/018_custom_parameterized_types.t
+++ b/t/040_type_constraints/018_custom_parameterized_types.t
@@ -17,32 +17,32 @@ lives_ok {
             # no keys match non-alpha
             (grep { /[^a-zA-Z]/ } keys %$_) == 0
         };
-} '... created the subtype special okay';
+} 'created the subtype special okay';
 
 lives_ok {
     subtype 'Trihash' => as 'AlphaKeyHash'
         => where {
             keys(%$_) == 3
         };
-} '... created the subtype special okay';
+} 'created the subtype special okay';
 
 lives_ok {
     subtype 'Noncon' => as 'Item';
-} '... created the subtype special okay';
+} 'created the subtype special okay';
 
 {
     my $t = find_type_constraint('AlphaKeyHash');
     isa_ok($t, 'Moose::Meta::TypeConstraint');
 
-    is($t->name, 'AlphaKeyHash', '... name is correct');
+    is($t->name, 'AlphaKeyHash', 'name is correct');
 
     my $p = $t->parent;
     isa_ok($p, 'Moose::Meta::TypeConstraint');
 
-    is($p->name, 'HashRef', '... parent name is correct');
+    is($p->name, 'HashRef', 'parent name is correct');
 
-    ok($t->check({ one => 1, two => 2 }), '... validated it correctly');
-    ok(!$t->check({ one1 => 1, two2 => 2 }), '... validated it correctly');
+    ok($t->check({ one => 1, two => 2 }), 'validated it correctly');
+    ok(!$t->check({ one1 => 1, two2 => 2 }), 'validated it correctly');
 
     ok( $t->equals($t), "equals to self" );
     ok( !$t->equals($t->parent), "not equal to parent" );
@@ -50,10 +50,10 @@ lives_ok {
 
 my $hoi = Moose::Util::TypeConstraints::find_or_parse_type_constraint('AlphaKeyHash[Int]');
 
-ok($hoi->check({ one => 1, two => 2 }), '... validated it correctly');
-ok(!$hoi->check({ one1 => 1, two2 => 2 }), '... validated it correctly');
-ok(!$hoi->check({ one => 'uno', two => 'dos' }), '... validated it correctly');
-ok(!$hoi->check({ one1 => 'un', two2 => 'deux' }), '... validated it correctly');
+ok($hoi->check({ one => 1, two => 2 }), 'validated it correctly');
+ok(!$hoi->check({ one1 => 1, two2 => 2 }), 'validated it correctly');
+ok(!$hoi->check({ one => 'uno', two => 'dos' }), 'validated it correctly');
+ok(!$hoi->check({ one1 => 'un', two2 => 'deux' }), 'validated it correctly');
 
 ok( $hoi->equals($hoi), "equals to self" );
 ok( !$hoi->equals($hoi->parent), "equals to self" );
@@ -63,10 +63,10 @@ ok( !$hoi->equals( Moose::Meta::TypeConstraint::Parameterized->new( name => "Oin
 
 my $th = Moose::Util::TypeConstraints::find_or_parse_type_constraint('Trihash[Bool]');
 
-ok(!$th->check({ one => 1, two => 1 }), '... validated it correctly');
-ok($th->check({ one => 1, two => 0, three => 1 }), '... validated it correctly');
-ok(!$th->check({ one => 1, two => 2, three => 1 }), '... validated it correctly');
-ok(!$th->check({foo1 => 1, bar2 => 0, baz3 => 1}), '... validated it correctly');
+ok(!$th->check({ one => 1, two => 1 }), 'validated it correctly');
+ok($th->check({ one => 1, two => 0, three => 1 }), 'validated it correctly');
+ok(!$th->check({ one => 1, two => 2, three => 1 }), 'validated it correctly');
+ok(!$th->check({foo1 => 1, bar2 => 0, baz3 => 1}), 'validated it correctly');
 
 dies_ok {
     Moose::Meta::TypeConstraint::Parameterized->new(