import some (modified) MXMS tests

[p5sagit/Function-Parameters.git] / t / foreign / MooseX-Method-Signatures / caller.t

diff --git a/t/foreign/MooseX-Method-Signatures/caller.t b/t/foreign/MooseX-Method-Signatures/caller.t
new file mode 100644 (file)
index 0000000..cbf009a
--- /dev/null
+++ b/t/foreign/MooseX-Method-Signatures/caller.t
@@ -0,0 +1,23 @@
+use strict;
+use warnings FATAL => 'all';
+use Test::More tests => 1;
+
+{
+       package TestClass;
+
+       use Function::Parameters qw(:strict);
+
+       use Carp ();
+
+       method callstack_inner($class:) {
+               return Carp::longmess("Callstack is");
+       }
+
+       method callstack($class:) {
+               return $class->callstack_inner;
+       }
+}
+
+my $callstack = TestClass->callstack();
+
+unlike $callstack, qr/Test::Class::.*?__ANON__/, "No anon methods in call chain";