Regenerate test files

[gitmo/Mouse.git] / t / 040_type_constraints / failing / 019_coerced_parameterized_types.t

diff --git a/t/040_type_constraints/failing/019_coerced_parameterized_types.t b/t/040_type_constraints/failing/019_coerced_parameterized_types.t
deleted file mode 100644 (file)
index 5b57ad3..0000000
--- a/t/040_type_constraints/failing/019_coerced_parameterized_types.t
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 11;
-use Test::Exception;
-
-BEGIN {
-    use_ok("Mouse::Util::TypeConstraints");
-    use_ok('Mouse::Meta::TypeConstraint::Parameterized');
-}
-
-BEGIN {
-    package MyList;
-    sub new {
-        my $class = shift;
-        bless { items => \@_ }, $class;
-    }
-
-    sub items {
-        my $self = shift;
-        return @{ $self->{items} };
-    }
-}
-
-subtype 'MyList' => as 'Object' => where { $_->isa('MyList') };
-
-lives_ok {
-    coerce 'ArrayRef'
-        => from 'MyList'
-            => via { [ $_->items ] }
-} '... created the coercion okay';
-
-my $mylist = Mouse::Util::TypeConstraints::find_or_parse_type_constraint('MyList[Int]');
-
-ok($mylist->check(MyList->new(10, 20, 30)), '... validated it correctly (pass)');
-ok(!$mylist->check(MyList->new(10, "two")), '... validated it correctly (fail)');
-ok(!$mylist->check([10]), '... validated it correctly (fail)');
-
-subtype 'EvenList' => as 'MyList' => where { $_->items % 2 == 0 };
-
-# XXX: get this to work *without* the declaration. I suspect it'll be a new
-# method in Mouse::Meta::TypeCoercion that will look at the parents of the
-# coerced type as well. but will that be too "action at a distance"-ey?
-lives_ok {
-    coerce 'ArrayRef'
-        => from 'EvenList'
-            => via { [ $_->items ] }
-} '... created the coercion okay';
-
-my $evenlist = Mouse::Util::TypeConstraints::find_or_parse_type_constraint('EvenList[Int]');
-
-ok(!$evenlist->check(MyList->new(10, 20, 30)), '... validated it correctly (fail)');
-ok($evenlist->check(MyList->new(10, 20, 30, 40)), '... validated it correctly (pass)');
-ok(!$evenlist->check(MyList->new(10, "two")), '... validated it correctly (fail)');
-ok(!$evenlist->check([10, 20]), '... validated it correctly (fail)');
-