import my old svn repo here

[catagits/Catalyst-Component-ACCEPT_CONTEXT.git] / t / mro-ok.t

diff --git a/t/mro-ok.t b/t/mro-ok.t
new file mode 100644 (file)
index 0000000..724b22b
--- /dev/null
+++ b/t/mro-ok.t
@@ -0,0 +1,26 @@
+use strict;
+use warnings;
+use Test::More tests => 2;
+
+use Catalyst::Controller;
+my $NEW_CALLED;
+BEGIN { 
+    $NEW_CALLED = 0;
+    { no warnings;
+      sub Catalyst::Controller::new {
+          $NEW_CALLED = 1;
+          return shift->NEXT::new(@_);
+      }
+  }
+}
+
+BEGIN { is $NEW_CALLED, 0, 'new not called yet' }
+
+use FindBin qw($Bin);
+use lib "$Bin/lib";
+use Catalyst::Test qw(TestApp);
+
+is $NEW_CALLED, '1', 'Catalyst::Controller::new does get called';
+
+1;
+