rev 1779 - trunk/Email-Simple/t

[prev] [thread] [next] [lurker] [Date index for 2004/11/09]

Author: richardc
Date: 2004-11-09 09:29:22 +0000 (Tue, 09 Nov 2004)
New Revision: 1779

Modified:
   trunk/Email-Simple/t/3.t
Log:
rt #6918, give it a plan so older harnesses don't barf


Modified: trunk/Email-Simple/t/3.t
===================================================================
--- trunk/Email-Simple/t/3.t	2004-08-25 11:27:26 UTC (rev 1778)
+++ trunk/Email-Simple/t/3.t	2004-11-09 09:29:22 UTC (rev 1779)
@@ -1,10 +1,8 @@
-use Test::More no_plan;
+#!perl -w
+use strict;
+use Test::More tests => 1;
 use Email::Simple;
 
-my $m = Email::Simple->new("Foo-Bar: Baz\n\ntest\n");                           
-$m->header_set("Foo-bar", "quux");                                              
-is($m->as_string, "Foo-Bar: quux
-
-test\n", "Only one header this time");
-
-
+my $m = Email::Simple->new("Foo-Bar: Baz\n\ntest\n");
+$m->header_set("Foo-bar", "quux");
+is($m->as_string, "Foo-Bar: quux\n\ntest\n", "Only one header this time");

• rev 1779 - trunk/Email-Simple/t richardc 09:29 on 09 Nov 2004

Generated at 01:00 on 04 Dec 2004 by mariachi 0.52