[Bast-commits] r5893 - Devel-Declare/1.000/trunk/t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-04-18 09:42:00 +0100 (Sat, 18 Apr 2009)
New Revision: 5893

Modified:
   Devel-Declare/1.000/trunk/t/multiline-proto.t
Log:
The extracted string should contain the newline as well.

Modified: Devel-Declare/1.000/trunk/t/multiline-proto.t
===================================================================
--- Devel-Declare/1.000/trunk/t/multiline-proto.t	2009-04-17 23:46:01 UTC (rev 5892)
+++ Devel-Declare/1.000/trunk/t/multiline-proto.t	2009-04-18 08:42:00 UTC (rev 5893)
@@ -21,4 +21,4 @@
 my $foo = fun ($a,
 $b) { "woot" };
 
-is($foo->(), '$a, $b: woot', 'proto declarator ok');
+is($foo->(), "\$a,\n\$b: woot", 'proto declarator ok');