From: Shawn M Moore <sartak@gmail.com>
Date: Thu, 2 Oct 2008 03:34:07 +0000 (+0000)
Subject: Remove the barrage for now, because we are getting weird failures
X-Git-Tag: 0.59~24
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f61d2545f0895e7bf305c39888692f0a0dd489fb;p=gitmo%2FMoose.git

Remove the barrage for now, because we are getting weird failures
---

diff --git a/t/040_type_constraints/028_barrage.t b/t/040_type_constraints/028_barrage.t
deleted file mode 100644
index b1dacda..0000000
--- a/t/040_type_constraints/028_barrage.t
+++ /dev/null
@@ -1,102 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More;
-use Test::Exception;
-use IO::Handle;
-
-my @types = qw/Any Item Bool Undef Defined Value Num Int Str ClassName
-               Ref ScalarRef ArrayRef HashRef CodeRef RegexpRef GlobRef
-               FileHandle Object/;
-
-my @type_values = (
-    undef              => [qw/Any Item Undef Bool/],
-    0                  => [qw/Any Item Defined Bool Value Num Int Str/],
-    1                  => [qw/Any Item Defined Bool Value Num Int Str/],
-    1.5                => [qw/Any Item Defined Value Num Str/],
-    ''                 => [qw/Any Item Defined Bool Value Str/],
-    't'                => [qw/Any Item Defined Value Str/],
-    'f'                => [qw/Any Item Defined Value Str/],
-    'undef'            => [qw/Any Item Defined Value Str/],
-    'Test::More'       => [qw/Any Item Defined Value Str ClassName/],
-    \undef             => [qw/Any Item Defined Ref ScalarRef/],
-    \1                 => [qw/Any Item Defined Ref ScalarRef/],
-    \"foo"             => [qw/Any Item Defined Ref ScalarRef/],
-    [],                => [qw/Any Item Defined Ref ArrayRef/],
-    [undef, \1]        => [qw/Any Item Defined Ref ArrayRef/],
-    {}                 => [qw/Any Item Defined Ref HashRef/],
-    sub { die }        => [qw/Any Item Defined Ref CodeRef/],
-    qr/.*/             => [qw/Any Item Defined Ref RegexpRef/],
-    \*main::ok         => [qw/Any Item Defined Ref GlobRef/],
-    \*STDOUT           => [qw/Any Item Defined Ref GlobRef FileHandle/],
-    IO::Handle->new    => [qw/Any Item Defined Ref Object FileHandle/],
-    Test::Builder->new => [qw/Any Item Defined Ref Object/],
-);
-
-my %values_for_type;
-
-for (my $i = 1; $i < @type_values; $i += 2) {
-    my ($value, $valid_types) = @type_values[$i-1, $i];
-    my %is_invalid = map { $_ => 1 } @types;
-    delete @is_invalid{@$valid_types};
-
-    push @{ $values_for_type{$_}{invalid} }, $value
-        for grep { $is_invalid{$_} } @types;
-
-    push @{ $values_for_type{$_}{valid} }, $value
-        for grep { !$is_invalid{$_} } @types;
-}
-
-my $plan = 0;
-$plan += 5 * @{ $values_for_type{$_}{valid} || [] }   for @types;
-$plan += 4 * @{ $values_for_type{$_}{invalid} || [] } for @types;
-$plan++; # can_ok
-
-plan tests => $plan;
-
-do {
-    package Class;
-    use Moose;
-
-    for my $type (@types) {
-        has $type => (
-            is  => 'rw',
-            isa => $type,
-        );
-    }
-};
-
-can_ok(Class => @types);
-
-for my $type (@types) {
-    for my $value (@{ $values_for_type{$type}{valid} }) {
-        lives_ok {
-            my $via_new = Class->new($type => $value);
-            is_deeply($via_new->$type, $value, "correctly set a $type in the constructor");
-        };
-
-        lives_ok {
-            my $via_set = Class->new;
-            is($via_set->$type, undef, "initially unset");
-            $via_set->$type($value);
-            is_deeply($via_set->$type, $value, "correctly set a $type in the setter");
-        };
-    }
-
-    for my $value (@{ $values_for_type{$type}{invalid} }) {
-        my $display = defined($value) ? overload::StrVal($value) : 'undef';
-        my $via_new;
-        throws_ok {
-            $via_new = Class->new($type => $value);
-        } qr/Attribute \($type\) does not pass the type constraint because: Validation failed for '$type' failed with value \Q$display\E/;
-        is($via_new, undef, "no object created");
-
-        my $via_set = Class->new;
-        throws_ok {
-            $via_set->$type($value);
-        } qr/Attribute \($type\) does not pass the type constraint because: Validation failed for '$type' failed with value \Q$display\E/;
-
-        is($via_set->$type, undef, "value for $type not set");
-    }
-}
-