From 8bf5e6931a1bd96df0cdb1ceb94bbb3e578a8126 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 4 Sep 2013 19:38:21 -0400
Subject: packaging

---
 t/51-buggy-constructors.t | 94 -----------------------------------------------
 1 file changed, 94 deletions(-)
 delete mode 100644 t/51-buggy-constructors.t

(limited to 't/51-buggy-constructors.t')

diff --git a/t/51-buggy-constructors.t b/t/51-buggy-constructors.t
deleted file mode 100644
index bbe5127..0000000
--- a/t/51-buggy-constructors.t
+++ /dev/null
@@ -1,94 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More;
-use Test::Fatal;
-use Test::Moose;
-
-{
-    package Foo;
-
-    sub new { bless {}, shift }
-}
-
-{
-    package Foo::Sub;
-    use Moose;
-    use MooseX::NonMoose;
-
-    extends 'Foo';
-}
-
-with_immutable {
-    my $foo;
-    is(exception { $foo = Foo::Sub->new }, undef,
-       "subclassing nonmoose classes with correct constructors works");
-    isa_ok($foo, 'Foo');
-    isa_ok($foo, 'Foo::Sub');
-} 'Foo::Sub';
-
-{
-    package BadFoo;
-
-    sub new { bless {} }
-}
-
-{
-    package BadFoo::Sub;
-    use Moose;
-    use MooseX::NonMoose;
-
-    extends 'BadFoo';
-}
-
-with_immutable {
-    my $foo;
-    is(exception { $foo = BadFoo::Sub->new }, undef,
-       "subclassing nonmoose classes with incorrect constructors works");
-    isa_ok($foo, 'BadFoo');
-    isa_ok($foo, 'BadFoo::Sub');
-} 'BadFoo::Sub';
-
-{
-    package BadFoo2;
-
-    sub new { {} }
-}
-
-{
-    package BadFoo2::Sub;
-    use Moose;
-    use MooseX::NonMoose;
-
-    extends 'BadFoo2';
-}
-
-with_immutable {
-    my $foo;
-    like(exception { $foo = BadFoo2::Sub->new; },
-         qr/\QThe constructor for BadFoo2 did not return a blessed instance/,
-         "subclassing nonmoose classes with incorrect constructors dies properly");
-} 'BadFoo2::Sub';
-
-{
-    package BadFoo3;
-
-    sub new { bless {}, 'Something::Else::Entirely' }
-}
-
-{
-    package BadFoo3::Sub;
-    use Moose;
-    use MooseX::NonMoose;
-
-    extends 'BadFoo3';
-}
-
-with_immutable {
-    my $foo;
-    like(exception { $foo = BadFoo3::Sub->new },
-         qr/\QThe constructor for BadFoo3 returned an object whose class is not a parent of BadFoo3::Sub/,
-         "subclassing nonmoose classes with incorrect constructors dies properly");
-} 'BadFoo3::Sub';
-
-done_testing;
-- 
cgit v1.2.3-54-g00ecf