X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Moose-t-failing%2F070_native_traits%2F204_trait_number.t;fp=Moose-t-failing%2F070_native_traits%2F204_trait_number.t;h=0000000000000000000000000000000000000000;hb=677ad8d01df4961c767a6f85c57d1c6e72933924;hp=c40757eefc0fecb9ea5075d6a6c49de2d16e6885;hpb=7dfa90afdf6b7bfd6cf1737fbcb1fe22fb66dd59;p=gitmo%2FMouse.git

diff --git a/Moose-t-failing/070_native_traits/204_trait_number.t b/Moose-t-failing/070_native_traits/204_trait_number.t
deleted file mode 100644
index c40757e..0000000
--- a/Moose-t-failing/070_native_traits/204_trait_number.t
+++ /dev/null
@@ -1,117 +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;
-$TODO = q{Mouse is not yet completed};
-use Test::Mouse;
-
-{
-    package Real;
-    use Mouse;
-
-    has 'integer' => (
-        traits  => ['Number'],
-        is      => 'ro',
-        isa     => 'Int',
-        default => 5,
-        handles => {
-            set         => 'set',
-            add         => 'add',
-            sub         => 'sub',
-            mul         => 'mul',
-            div         => 'div',
-            mod         => 'mod',
-            abs         => 'abs',
-            inc         => [ add => 1 ],
-            dec         => [ sub => 1 ],
-            odd         => [ mod => 2 ],
-            cut_in_half => [ div => 2 ],
-
-        },
-    );
-}
-
-my $real = Real->new;
-isa_ok( $real, 'Real' );
-
-can_ok( $real, $_ ) for qw[
-    set add sub mul div mod abs inc dec odd cut_in_half
-];
-
-is $real->integer, 5, 'Default to five';
-
-$real->add(10);
-
-is $real->integer, 15, 'Add ten for fithteen';
-
-$real->sub(3);
-
-is $real->integer, 12, 'Subtract three for 12';
-
-$real->set(10);
-
-is $real->integer, 10, 'Set to ten';
-
-$real->div(2);
-
-is $real->integer, 5, 'divide by 2';
-
-$real->mul(2);
-
-is $real->integer, 10, 'multiplied by 2';
-
-$real->mod(2);
-
-is $real->integer, 0, 'Mod by 2';
-
-$real->set(7);
-
-$real->mod(5);
-
-is $real->integer, 2, 'Mod by 5';
-
-$real->set(-1);
-
-$real->abs;
-
-is $real->integer, 1, 'abs 1';
-
-$real->set(12);
-
-$real->inc;
-
-is $real->integer, 13, 'inc 12';
-
-$real->dec;
-
-is $real->integer, 12, 'dec 13';
-
-## test the meta
-
-my $attr = $real->meta->get_attribute('integer');
-does_ok( $attr, 'Mouse::Meta::Attribute::Native::Trait::Number' );
-
-is_deeply(
-    $attr->handles,
-    {
-        set         => 'set',
-        add         => 'add',
-        sub         => 'sub',
-        mul         => 'mul',
-        div         => 'div',
-        mod         => 'mod',
-        abs         => 'abs',
-        inc         => [ add => 1 ],
-        dec         => [ sub => 1 ],
-        odd         => [ mod => 2 ],
-        cut_in_half => [ div => 2 ],
-    },
-    '... got the right handles mapping'
-);
-
-done_testing;