annihilate Moo since this is going to be the Role-Tiny repo now

[gitmo/Role-Tiny.git] / t / moo.t

diff --git a/t/moo.t b/t/moo.t
deleted file mode 100644 (file)
index 2ba2a00..0000000
--- a/t/moo.t
+++ /dev/null
@@ -1,80 +0,0 @@
-use strictures 1;
-use Test::More;
-
-{
-  package MyClass0;
-
-  BEGIN { our @ISA = 'ZeroZero' }
-
-  use Moo;
-}
-
-BEGIN {
-  is(
-    $INC{'Class/Tiny/Object.pm'}, undef,
-    'Object.pm not loaded if not required'
-  );
-}
-
-{
-  package MyClass1;
-
-  use Moo;
-}
-
-is_deeply(
-  [ @MyClass1::ISA ], [ 'Moo::Object' ], 'superclass defaulted'
-);
-
-{
-  package MyClass2;
-
-  use base qw(MyClass1);
-  use Moo;
-}
-
-is_deeply(
-  [ @MyClass2::ISA ], [ 'MyClass1' ], 'prior superclass left alone'
-);
-
-{
-  package MyClass3;
-
-  use Moo;
-
-  extends 'MyClass2';
-}
-
-is_deeply(
-  [ @MyClass3::ISA ], [ 'MyClass2' ], 'extends sets superclass'
-);
-
-{ package WhatTheFlyingFornication; sub wtff {} }
-
-{
-  package MyClass4;
-
-  use Moo;
-
-  extends 'WhatTheFlyingFornication';
-
-  extends qw(MyClass2 MyClass3);
-}
-
-is_deeply(
-  [ @MyClass4::ISA ], [ qw(MyClass2 MyClass3) ], 'extends overwrites'
-);
-
-{
-  package MyClass5;
-
-  use Moo;
-
-  sub foo { 'foo' }
-
-  around foo => sub { my $orig = shift; $orig->(@_).' with around' };
-}
-
-is(MyClass5->foo, 'foo with around', 'method modifier');
-
-done_testing;