[Bps-public-commit] r11029 - Mail-GnuPG/trunk/t

[robert at bestpractical.com]

Author: robert
Date: Sat Mar  8 22:49:17 2008
New Revision: 11029

Modified:
   Mail-GnuPG/trunk/t/round-trip.t

Log:
[rt.cpan.org #21276] patch from ntyni at iki.fi to show test failure on large (many line) encryption


Modified: Mail-GnuPG/trunk/t/round-trip.t
==============================================================================
--- Mail-GnuPG/trunk/t/round-trip.t	(original)
+++ Mail-GnuPG/trunk/t/round-trip.t	Sat Mar  8 22:49:17 2008
@@ -31,11 +31,14 @@
 
 isa_ok($mg,"Mail::GnuPG");
 
+my $line = "x\n";
+my $string = $line x 100000;
+
 my $copy;
 my $me =  MIME::Entity->build(From    => 'me at myhost.com',
 			      To      => 'you at yourhost.com',
 			      Subject => "Hello, nurse!",
-			      Data    => ["Line 1","Line 2"]);
+			      Data    => [$string]);
 # Test MIME Signing Round Trip
 
 $copy = $me->dup;