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 (file)
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';