From: Dave Rolsky <autarch@urth.org>
Date: Mon, 7 Sep 2009 16:54:36 +0000 (-0500)
Subject: Make sure with_caller handles prototypes correctly as well
X-Git-Tag: 0.89_02~32^2~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5a204c51394c7ec79968672c0e4546be6aa68a06;p=gitmo%2FMoose.git

Make sure with_caller handles prototypes correctly as well
---

diff --git a/t/050_metaclasses/012_moose_exporter.t b/t/050_metaclasses/012_moose_exporter.t
index 5e59d8f..ef9db42 100644
--- a/t/050_metaclasses/012_moose_exporter.t
+++ b/t/050_metaclasses/012_moose_exporter.t
@@ -8,7 +8,7 @@ use Test::Exception;
 BEGIN {
     eval "use Test::Output;";
     plan skip_all => "Test::Output is required for this test" if $@;
-    plan tests => 62;
+    plan tests => 63;
 }
 
 
@@ -345,6 +345,12 @@ BEGIN {
     }
 
     is(
+        prototype( UseAllOptions->can('with_caller2') ),
+        prototype( AllOptions->can('with_caller2') ),
+        'using correct prototype on with_meta function'
+    );
+
+    is(
         prototype( UseAllOptions->can('with_meta2') ),
         prototype( AllOptions->can('with_meta2') ),
         'using correct prototype on with_meta function'