From: 大沢 和宏 <yappo@shibuya.pl>
Date: Fri, 5 Dec 2008 00:21:12 +0000 (+0000)
Subject: oops remove t/800_shikabased/007-create_class.t
X-Git-Tag: 0.19~136^2~33
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=085a5c2d90e1c478ceefa2cce7b8d62b37ceaac0;hp=368e3d4a07a0a955e8884a19ccb3821491f44b51;p=gitmo%2FMouse.git

oops remove t/800_shikabased/007-create_class.t
---

diff --git a/t/800_shikabased/007-create_class.t b/t/800_shikabased/007-create_class.t
deleted file mode 100644
index 63a9df8..0000000
--- a/t/800_shikabased/007-create_class.t
+++ /dev/null
@@ -1,68 +0,0 @@
-use strict;
-use warnings;
-use Mouse;
-use Test::More tests => 14;
-use Test::Exception;
-
-# error handling
-throws_ok {
-    Mouse::Meta::Class->create(
-        superclasses => "foo"
-    );
-} qr/You must pass an ARRAY ref of superclasses/;
-
-
-throws_ok {
-    Mouse::Meta::Class->create(
-        attributes => "foo"
-    );
-} qr/You must pass an ARRAY ref of attributes/;
-
-throws_ok {
-    Mouse::Meta::Class->create(
-        methods => "foo"
-    );
-} qr/You must pass a HASH ref of methods/;
-
-
-throws_ok {
-    Mouse::Meta::Class->create()
-} qr/You must pass a package name/;
-
-# normal cases
-isa_ok(Mouse::Meta::Class->create("FooBar"), "Mouse::Meta::Class");
-is FooBar->meta->name, "FooBar";
-
-isa_ok(
-    Mouse::Meta::Class->create(
-        package      => "Baz",
-        superclasses => [ "FooBar", "Mouse::Object" ],
-        attributes   => [
-            Mouse::Meta::Attribute->new(
-                name => "foo", is => "rw", default => "yay"
-            )
-        ],
-        methods => {
-            dooo => sub { "iiiit" },
-        }
-    ),
-    "Mouse::Meta::Class"
-);
-isa_ok Baz->new(), "FooBar";
-is Baz->new()->foo, "yay";
-is Baz->new()->dooo, "iiiit";
-
-{
-    my $meta = Mouse::Meta::Class->create_anon_class(
-        superclasses => [ "Mouse::Object" ],
-        methods => {
-            dooo => sub { "iiiit" },
-        }
-    );
-    isa_ok($meta, "Mouse::Meta::Class");
-    is $meta->name, "Mouse::Meta::Class::__ANON__::SERIAL::1";
-    is $meta->name->new->dooo(), "iiiit";
-
-    my $anon2 = Mouse::Meta::Class->create_anon_class();
-    is $anon2->name, "Mouse::Meta::Class::__ANON__::SERIAL::2";
-}