[svn:parrot] r34758 - in branches/pdd30install_stage3: lib/Parrot/Docs t/perl

[rurban]

Author: rurban
Date: Thu Jan  1 11:41:03 2009
New Revision: 34758

Modified:
   branches/pdd30install_stage3/lib/Parrot/Docs/POD2HTML.pm
   branches/pdd30install_stage3/t/perl/Parrot_Docs.t

Log:
[cage] Do not append html output to MANIFEST.generated while testing.
Check for internal key Parrot::Docs::Group->{TESTING}



Modified: branches/pdd30install_stage3/lib/Parrot/Docs/POD2HTML.pm
==============================================================================
--- branches/pdd30install_stage3/lib/Parrot/Docs/POD2HTML.pm    (original)
+++ branches/pdd30install_stage3/lib/Parrot/Docs/POD2HTML.pm    Thu Jan  1 
11:41:03 2009
@@ -593,9 +593,12 @@
     $docs_file->write( $self->html_for_file($file) );
     my $path = File::Spec->abs2rel(
        File::Spec->catfile($docs_file->{PATH}), $PConfig{build_dir});
-    chdir "..";
-    add_to_generated($path, "[main]", "html");
-    chdir "docs";
+
+    unless ($self->{TESTING}) {
+        chdir "..";
+        add_to_generated($path, "[main]", "html");
+        chdir "docs";
+    }
 }
 
 =item C<append_html_suffix($path)>

Modified: branches/pdd30install_stage3/t/perl/Parrot_Docs.t
==============================================================================
--- branches/pdd30install_stage3/t/perl/Parrot_Docs.t   (original)
+++ branches/pdd30install_stage3/t/perl/Parrot_Docs.t   Thu Jan  1 11:41:03 2009
@@ -112,6 +112,7 @@
 
 my $tgt = Parrot::Docs::Directory->new( tmp_dir_path('tgt') );
 
+$s->{TESTING} = 1;
 $s->write_html( $src, $tgt, 1 );
 
 $f = $tgt->file_with_name('index.html');