factor out and rename

[gitmo/Moo.git] / t / class-tiny-accessors.t

diff --git a/t/class-tiny-accessors.t b/t/class-tiny-accessors.t
deleted file mode 100644 (file)
index 3edae8a..0000000
--- a/t/class-tiny-accessors.t
+++ /dev/null
@@ -1,51 +0,0 @@
-use strictures 1;
-use Test::More;
-
-{
-  package Foo;
-
-  use Class::Tiny;
-
-  has one => (is => 'ro');
-  has two => (is => 'rw', init_arg => undef);
-  has three => (is => 'ro', init_arg => 'THREE', required => 1);
-
-  package Bar;
-
-  use Role::Tiny;
-
-  has four => (is => 'ro');
-
-  package Baz;
-
-  use Class::Tiny;
-
-  extends 'Foo';
-
-  with 'Bar';
-
-  has five => (is => 'rw');
-}
-
-my $foo = Foo->new(
-  one => 1,
-  THREE => 3
-);
-
-is_deeply(
-  { %$foo }, { one => 1, three => 3 }, 'simple class ok'
-);
-
-my $baz = Baz->new(
-  one => 1,
-  THREE => 3,
-  four => 4,
-  five => 5,
-);
-
-is_deeply(
-  { %$baz }, { one => 1, three => 3, four => 4, five => 5 },
-  'subclass with role ok'
-);
-
-done_testing;