Revert autogenerated tests. Tests should not changed radically.

[gitmo/Mouse.git] / t / 070_native_traits / 100_collection_with_roles.t

diff --git a/t/070_native_traits/100_collection_with_roles.t b/t/070_native_traits/100_collection_with_roles.t
deleted file mode 100644 (file)
index 75092ab..0000000
--- a/t/070_native_traits/100_collection_with_roles.t
+++ /dev/null
@@ -1,127 +0,0 @@
-#!/usr/bin/perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
-
-use strict;
-use warnings;
-
-use Test::More;
-
-{
-    package Subject;
-
-    use Mouse::Role;
-
-    has observers => (
-        traits     => ['Array'],
-        is         => 'ro',
-        isa        => 'ArrayRef[Observer]',
-        auto_deref => 1,
-        default    => sub { [] },
-        handles    => {
-            'add_observer'    => 'push',
-            'count_observers' => 'count',
-        },
-    );
-
-    sub notify {
-        my ($self) = @_;
-        foreach my $observer ( $self->observers() ) {
-            $observer->update($self);
-        }
-    }
-}
-
-{
-    package Observer;
-
-    use Mouse::Role;
-
-    requires 'update';
-}
-
-{
-    package Counter;
-
-    use Mouse;
-
-    with 'Subject';
-
-    has count => (
-        traits  => ['Counter'],
-        is      => 'ro',
-        isa     => 'Int',
-        default => 0,
-        handles => {
-            inc_counter => 'inc',
-            dec_counter => 'dec',
-        },
-    );
-
-    after qw(inc_counter dec_counter) => sub {
-        my ($self) = @_;
-        $self->notify();
-    };
-}
-
-{
-
-    package Display;
-
-    use Test::More;
-
-    use Mouse;
-
-    with 'Observer';
-
-    sub update {
-        my ( $self, $subject ) = @_;
-        like $subject->count, qr{^-?\d+$},
-            'Observed number ' . $subject->count;
-    }
-}
-
-package main;
-
-my $count = Counter->new();
-
-ok( $count->can('add_observer'), 'add_observer method added' );
-
-ok( $count->can('count_observers'), 'count_observers method added' );
-
-ok( $count->can('inc_counter'), 'inc_counter method added' );
-
-ok( $count->can('dec_counter'), 'dec_counter method added' );
-
-$count->add_observer( Display->new() );
-
-is( $count->count_observers, 1, 'Only one observer' );
-
-is( $count->count, 0, 'Default to zero' );
-
-$count->inc_counter;
-
-is( $count->count, 1, 'Increment to one ' );
-
-$count->inc_counter for ( 1 .. 6 );
-
-is( $count->count, 7, 'Increment up to seven' );
-
-$count->dec_counter;
-
-is( $count->count, 6, 'Decrement to 6' );
-
-$count->dec_counter for ( 1 .. 5 );
-
-is( $count->count, 1, 'Decrement to 1' );
-
-$count->dec_counter for ( 1 .. 2 );
-
-is( $count->count, -1, 'Negative numbers' );
-
-$count->inc_counter;
-
-is( $count->count, 0, 'Back to zero' );
-
-done_testing;