From: Guillermo Roditi <groditi@gmail.com>
Date: Mon, 1 Jun 2009 21:25:34 +0000 (-0400)
Subject: Add test for infinite recursion when creating an anon class with Moose::Object
X-Git-Tag: 0.80~16
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d2470ccf9e7f8184af11e62cd6711dc24910ed8a;p=gitmo%2FMoose.git

Add test for infinite recursion when creating an anon class with Moose::Object
as the superclass
---

diff --git a/t/100_bugs/026_create_anon_seep_recursion.t b/t/100_bugs/026_create_anon_seep_recursion.t
new file mode 100644
index 0000000..44a9676
--- /dev/null
+++ b/t/100_bugs/026_create_anon_seep_recursion.t
@@ -0,0 +1,15 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Test::More tests => 1;
+use Test::Exception;
+use Moose::Meta::Class;
+
+$SIG{__WARN__} = sub { die if shift =~ /recurs/ };
+
+my $meta;
+lives_ok {
+  $meta = Moose::Meta::Class->create_anon_class(
+    superclasses => [ 'Moose::Object', ],
+  );
+} 'Class is created successfully';