From: Tomas Doran <bobtfish@bobtfish.net>
Date: Sun, 22 Mar 2009 02:05:29 +0000 (+0000)
Subject: Metaclass compatibility fail. This needs to be reduced to a test for Moose..
X-Git-Tag: 5.80001~40^2~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=4556c26ffaed4e01208c6ba8d636b033ecf90389

Metaclass compatibility fail. This needs to be reduced to a test for Moose..
---

diff --git a/TODO.register_actions b/TODO.register_actions
index 33765da..2168a5b 100644
--- a/TODO.register_actions
+++ b/TODO.register_actions
@@ -1,4 +1,4 @@
-module.Catalyst-Controller-FormBuilder
+module.Catalyst-Controller-FormBuilder - t/unit_metaclass_compat_non_moose.t
 module.Catalyst-Controller-WrapCGI
 module.Catalyst-Log-Log4perl
 module.Catalyst-Model-Search
diff --git a/t/lib/TestAppMetaCompat.pm b/t/lib/TestAppMetaCompat.pm
new file mode 100644
index 0000000..e9ead78
--- /dev/null
+++ b/t/lib/TestAppMetaCompat.pm
@@ -0,0 +1,8 @@
+package TestAppMetaCompat;
+use base qw/Catalyst/;
+
+__PACKAGE__->config(name => __PACKAGE__);
+__PACKAGE__->setup;
+
+1;
+
diff --git a/t/lib/TestAppMetaCompat/Action/UsesCAF.pm b/t/lib/TestAppMetaCompat/Action/UsesCAF.pm
new file mode 100644
index 0000000..9e4ecbd
--- /dev/null
+++ b/t/lib/TestAppMetaCompat/Action/UsesCAF.pm
@@ -0,0 +1,8 @@
+package TestAppMetaCompat::Action::UsesCAF;
+
+use strict;
+
+use base qw/Catalyst::Action Class::Accessor::Fast/;
+__PACKAGE__->mk_accessors(qw/ foo /);
+
+1;
diff --git a/t/lib/TestAppMetaCompat/Controller/Base.pm b/t/lib/TestAppMetaCompat/Controller/Base.pm
new file mode 100644
index 0000000..0a66d50
--- /dev/null
+++ b/t/lib/TestAppMetaCompat/Controller/Base.pm
@@ -0,0 +1,6 @@
+package TestAppMetaCompat::Controller::Base;
+
+use strict;
+use base qw/Catalyst::Controller/;
+
+1;
diff --git a/t/lib/TestAppMetaCompat/Controller/Books.pm b/t/lib/TestAppMetaCompat/Controller/Books.pm
new file mode 100644
index 0000000..01acb99
--- /dev/null
+++ b/t/lib/TestAppMetaCompat/Controller/Books.pm
@@ -0,0 +1,9 @@
+package TestAppMetaCompat::Controller::Books;
+
+use strict;
+use base qw/TestAppMetaCompat::Controller::Base/;
+
+sub edit : Local ActionClass('+Catalyst::Controller::FormBuilder::Action') {
+}
+
+1;
diff --git a/t/unit_metaclass_compat_non_moose.t b/t/unit_metaclass_compat_non_moose.t
new file mode 100644
index 0000000..8c9c279
--- /dev/null
+++ b/t/unit_metaclass_compat_non_moose.t
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use lib 't/lib';
+use Test::More tests => 1;
+use_ok('TestAppMetaCompat');
+