develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35958 - trunk/t/perl

From:
julianalbo
Date:
January 24, 2009 06:54
Subject:
[svn:parrot] r35958 - trunk/t/perl
Message ID:
20090124145420.7DA52CB9AE@x12.develooper.com
Author: julianalbo
Date: Sat Jan 24 06:54:18 2009
New Revision: 35958

Modified:
   trunk/t/perl/Parrot_Docs.t

Log:
apply patch fot TT #222, mikehh++

Modified: trunk/t/perl/Parrot_Docs.t
==============================================================================
--- trunk/t/perl/Parrot_Docs.t	(original)
+++ trunk/t/perl/Parrot_Docs.t	Sat Jan 24 06:54:18 2009
@@ -60,7 +60,7 @@
 is( $f->num_pod_errors, 0, 'num_pod_errors none' );
 
 # Not the best of tests, but at least something.
-like( $f->pod_as_html, qr|<html>.*?</html>|si, 'pod_as_html' );
+like( $f->pod_as_html, qr|<html.*?</html>|si, 'pod_as_html' );
 $f->write("=haed1 FOO\n\nFoo\n\n=cut\n\nbar\n");
 ok( $f->contains_pod, 'contains_pod yes, errors' );
 is( $f->num_pod_errors, 1, 'num_pod_errors one' );



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About