update foreign tests

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

diff --git a/t/foreign/Method-Signatures/attributes.t b/t/foreign/Method-Signatures/attributes.t
index 71e11ce..784c075 100644 (file)
--- a/t/foreign/Method-Signatures/attributes.t
+++ b/t/foreign/Method-Signatures/attributes.t
@@ -22,6 +22,17 @@ use attributes;
 
 
 {
+    package Foo;
+
+    use Test::More;
+    use Function::Parameters qw(:strict);
+
+    my $code = fun () : method {};
+    is_deeply( [attributes::get $code], ['method'] );
+}
+
+
+{
     package Things;
 
     use Function::Parameters qw(:strict);