steal more tests from other modules

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

diff --git a/t/foreign/Method-Signatures/slurpy.t b/t/foreign/Method-Signatures/slurpy.t
index 63e106c..b9c4fcf 100644 (file)
--- a/t/foreign/Method-Signatures/slurpy.t
+++ b/t/foreign/Method-Signatures/slurpy.t
@@ -32,15 +32,8 @@ use Test::More;
         like $@, qr{\bslurpy_middle\b};
     }
 
-#    ok !eval q[fun slurpy_positional(:@that) { return \@that; }];
-#    like $@, qr{slurpy parameter \@that cannot be named, use a reference instead};
-#
-#    TODO: {
-#        local $TODO = "error message incorrect inside an eval";
-#
-#        like $@, qr{Stuff::};
-#        like $@, qr{slurpy_positional\(\)};
-#    }
+    ok !eval q[fun slurpy_positional(:@that) { return \@that; }];
+    like $@, qr{\bnamed\b.+\@that\b.+\barray\b};
 
     ok !eval q[fun slurpy_two($this, @that, @other) { return $this, \@that, \@other }];
     like $@, qr{\@that\b.+\@other\b};