The extracted string should contain the newline as well.

diff --git a/t/multiline-proto.t b/t/multiline-proto.t
index b549313..f6daf8a 100644 (file)
--- a/t/multiline-proto.t
+++ b/t/multiline-proto.t
@@ -21,4 +21,4 @@ use Devel::Declare fun => [ DECLARE_PROTO, \&handle_fun ];
 my $foo = fun ($a,
 $b) { "woot" };
 
-is($foo->(), '$a, $b: woot', 'proto declarator ok');
+is($foo->(), "\$a,\n\$b: woot", 'proto declarator ok');