Ticket #222: perl_Parrot_Docs_t.patch

File perl_Parrot_Docs_t.patch, 0.6 KB (added by mikehh, 13 years ago)

fix test for valid html (revision 35953)

  • t/perl/Parrot_Docs.t

     
    6060is( $f->num_pod_errors, 0, 'num_pod_errors none' ); 
    6161 
    6262# Not the best of tests, but at least something. 
    63 like( $f->pod_as_html, qr|<html>.*?</html>|si, 'pod_as_html' ); 
     63like( $f->pod_as_html, qr|<html.*?</html>|si, 'pod_as_html' ); 
    6464$f->write("=haed1 FOO\n\nFoo\n\n=cut\n\nbar\n"); 
    6565ok( $f->contains_pod, 'contains_pod yes, errors' ); 
    6666is( $f->num_pod_errors, 1, 'num_pod_errors one' );