[svn:parrot] r39127 - in branches/test_install: . t/tools/install t/tools/install/testlib t/tools/install/testlib/compilers/nqp t/tools/install/testlib/compilers/nqp/bootstrap t/tools/install/testlib/docs t/tools/install/testlib/docs/pct t/tools/install/testlib/lib t/tools/install/testlib/lib/Parrot t/tools/install/testlib/runtime/parrot/library t/tools/install/testlib/src t/tools/install/testlib/src/ops t/tools/install/testlib/src/pmc t/tools/install/testlib/tools t/tools/install/testlib/tools/build tools/dev

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Sun May 24 03:48:23 UTC 2009


Author: jkeenan
Date: Sun May 24 03:48:19 2009
New Revision: 39127
URL: https://trac.parrot.org/parrot/changeset/39127

Log:
Add a program which tests the overall operation of tools/dev/install_dev_files.pl.

Added:
   branches/test_install/t/tools/install/dev_overall.t
      - copied, changed from r39119, branches/test_install/t/tools/install/overall.t
   branches/test_install/t/tools/install/testlib/compilers/nqp/
   branches/test_install/t/tools/install/testlib/compilers/nqp/bootstrap/
   branches/test_install/t/tools/install/testlib/compilers/nqp/bootstrap/actions.pm
      - copied unchanged from r39096, branches/test_install/t/tools/install/testlib/LICENSE
   branches/test_install/t/tools/install/testlib/dev_generated_pseudo
      - copied, changed from r39116, branches/test_install/t/tools/install/testlib/generated_pseudo
   branches/test_install/t/tools/install/testlib/dev_manifest_pseudo
      - copied, changed from r39117, branches/test_install/t/tools/install/testlib/manifest_pseudo
   branches/test_install/t/tools/install/testlib/docs/compiler_faq.pod
      - copied unchanged from r39096, branches/test_install/t/tools/install/testlib/docs/gettingstarted.pod
   branches/test_install/t/tools/install/testlib/docs/pct/
   branches/test_install/t/tools/install/testlib/docs/pct/past_building_blocks.pod
      - copied unchanged from r39096, branches/test_install/t/tools/install/testlib/docs/gettingstarted.pod
   branches/test_install/t/tools/install/testlib/lib/
   branches/test_install/t/tools/install/testlib/lib/Parrot/
   branches/test_install/t/tools/install/testlib/lib/Parrot/Configure.pm
      - copied unchanged from r39096, branches/test_install/t/tools/install/testlib/LICENSE
   branches/test_install/t/tools/install/testlib/runtime/parrot/library/
   branches/test_install/t/tools/install/testlib/runtime/parrot/library/TGE.pbc
      - copied unchanged from r39096, branches/test_install/t/tools/install/testlib/LICENSE
   branches/test_install/t/tools/install/testlib/src/
   branches/test_install/t/tools/install/testlib/src/ops/
   branches/test_install/t/tools/install/testlib/src/ops/ops.num
      - copied unchanged from r39096, branches/test_install/t/tools/install/testlib/LICENSE
   branches/test_install/t/tools/install/testlib/src/pmc/
   branches/test_install/t/tools/install/testlib/src/pmc/pmc_object.h
      - copied unchanged from r39096, branches/test_install/t/tools/install/testlib/LICENSE
   branches/test_install/t/tools/install/testlib/tools/
   branches/test_install/t/tools/install/testlib/tools/build/
   branches/test_install/t/tools/install/testlib/tools/build/ops2c.pl
      - copied unchanged from r39096, branches/test_install/t/tools/install/testlib/LICENSE
   branches/test_install/t/tools/install/testlib/vtable.dump
      - copied unchanged from r39096, branches/test_install/t/tools/install/testlib/LICENSE
Modified:
   branches/test_install/MANIFEST
   branches/test_install/t/tools/install/overall.t
   branches/test_install/tools/dev/install_dev_files.pl

Modified: branches/test_install/MANIFEST
==============================================================================
--- branches/test_install/MANIFEST	Sun May 24 03:40:46 2009	(r39126)
+++ branches/test_install/MANIFEST	Sun May 24 03:48:19 2009	(r39127)
@@ -1,7 +1,7 @@
 # ex: set ro:
 # $Id$
 #
-# generated by tools/dev/mk_manifest_and_skip.pl Sat May 23 21:46:38 2009 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Sun May 24 03:47:48 2009 UT
 #
 # See tools/dev/install_files.pl for documentation on the
 # format of this file.
@@ -2002,17 +2002,29 @@
 t/tools/dev/searchops.t                                     [test]
 t/tools/dev/searchops/samples.pm                            [test]
 t/tools/dump_pbc.t                                          [test]
+t/tools/install/dev_overall.t                               [test]
 t/tools/install/overall.t                                   [test]
 t/tools/install/testlib/LICENSE                             [test]
+t/tools/install/testlib/compilers/nqp/bootstrap/actions.pm  [test]
 t/tools/install/testlib/compilers/pge/PGE.pir               [test]
+t/tools/install/testlib/dev_generated_pseudo                [test]
+t/tools/install/testlib/dev_manifest_pseudo                 [test]
+t/tools/install/testlib/docs/compiler_faq.pod               [test]
 t/tools/install/testlib/docs/gettingstarted.pod             [test]
+t/tools/install/testlib/docs/pct/past_building_blocks.pod   [test]
 t/tools/install/testlib/docs/resources/phony_resource       [test]
 t/tools/install/testlib/generated_pseudo                    [test]
 t/tools/install/testlib/include/parrot/charset.h            [test]
 t/tools/install/testlib/install_config.fpmc                 [test]
+t/tools/install/testlib/lib/Parrot/Configure.pm             [test]
 t/tools/install/testlib/manifest_pseudo                     [test]
 t/tools/install/testlib/parrot.pc                           [test]
 t/tools/install/testlib/runtime/parrot/include/sockets.pasm [test]
+t/tools/install/testlib/runtime/parrot/library/TGE.pbc      [test]
+t/tools/install/testlib/src/ops/ops.num                     [test]
+t/tools/install/testlib/src/pmc/pmc_object.h                [test]
+t/tools/install/testlib/tools/build/ops2c.pl                [test]
+t/tools/install/testlib/vtable.dump                         [test]
 t/tools/ops2cutils/01-new.t                                 [test]
 t/tools/ops2cutils/02-usage.t                               [test]
 t/tools/ops2cutils/03-print_c_header_file.t                 [test]

Copied and modified: branches/test_install/t/tools/install/dev_overall.t (from r39119, branches/test_install/t/tools/install/overall.t)
==============================================================================
--- branches/test_install/t/tools/install/overall.t	Sat May 23 22:08:53 2009	(r39119, copy source)
+++ branches/test_install/t/tools/install/dev_overall.t	Sun May 24 03:48:19 2009	(r39127)
@@ -1,12 +1,11 @@
 #! perl
 # Copyright (C) 2007-2008, Parrot Foundation.
 # $Id$
-# overall.t
+# dev_overall.t
 
 use strict;
 use warnings;
-#use Data::Dumper;$Data::Dumper::Indent = 1;
-use Test::More qw(no_plan); # tests =>  4;
+use Test::More tests =>  4;
 use Carp;
 use Cwd;
 use File::Basename;
@@ -21,14 +20,14 @@
 my $DEBUG = 0;
 
 my $cwd = cwd();
-my $installer = File::Spec->catfile( 'tools', 'dev', 'install_files.pl' );
+my $installer = File::Spec->catfile( 'tools', 'dev', 'install_dev_files.pl' );
 my $full_installer = File::Spec->catfile( $cwd, $installer );
 ok(-f $full_installer, "Able to locate $installer");
 
 my $testlibdir = File::Spec->catdir( qw| t tools install testlib | );
-my $man_pseudo = File::Spec->catfile( $testlibdir, q|manifest_pseudo| );
+my $man_pseudo = File::Spec->catfile( $testlibdir, q|dev_manifest_pseudo| );
 my $full_man_pseudo = File::Spec->catfile( $cwd, $man_pseudo );
-my $gen_pseudo = File::Spec->catfile( $testlibdir, q|generated_pseudo| );
+my $gen_pseudo = File::Spec->catfile( $testlibdir, q|dev_generated_pseudo| );
 my $full_gen_pseudo = File::Spec->catfile( $cwd, $gen_pseudo );
 
 {
@@ -41,50 +40,63 @@
     my $includedir = File::Spec->catdir( $prefixdir, 'include' );
     my $libdir = File::Spec->catdir( $prefixdir, 'lib' );
     my $docdir = File::Spec->catdir( $prefixdir, 'share', 'doc' );
+    my $srcdir = File::Spec->catdir( $prefixdir, 'src' );
     my $versiondir = $PConfig{versiondir};
 
     my %testfiles = (
-        'LICENSE'                 => {
-            start   => File::Spec->catfile( qw| . LICENSE | ),
+        'compilers/nqp/bootstrap/actions.pm'                 => {
+            start   => File::Spec->catfile(
+                        qw| .  compilers nqp bootstrap actions.pm | ),
             end     => File::Spec->catfile(
-                        $docdir, $versiondir, 'LICENSE' )
+                        $libdir, $versiondir, 'languages', 'nqp', 'bootstrap', 'actions.pm' ),
         },
-        'docs/gettingstarted.pod' => {
-            start   => File::Spec->catfile( qw| . docs gettingstarted.pod | ),
+        'docs/compiler_faq.pod' => {
+            start   => File::Spec->catfile( qw| . docs compiler_faq.pod | ),
             end     => File::Spec->catfile(
-                        $docdir,  $versiondir, 'pod', 'gettingstarted.pod' ),
+                        $docdir,  $versiondir, 'pod', 'compiler_faq.pod' ),
         },
-        'docs/resources/phony_resource' => {
-            start   => File::Spec->catfile( qw| . docs resources phony_resource | ),
+        'docs/pct/past_building_blocks.pod' => {
+            start   => File::Spec->catfile(
+                        qw| . docs pct past_building_blocks.pod | ),
             end     => File::Spec->catfile(
-                        $docdir,  $versiondir, 'resources', 'phony_resource' ),
+                        $docdir,  $versiondir, 'pod', 'pct', 'past_building_blocks.pod' ),
         },
-        'include/parrot/charset.h' => {
-            start   => File::Spec->catfile( qw| . include parrot charset.h | ),
+        'lib/Parrot/Configure.pm' => {
+            start   => File::Spec->catfile(
+                        qw| . lib Parrot Configure.pm | ),
             end     => File::Spec->catfile(
-                        $includedir, $versiondir, 'parrot', 'charset.h' ),
+                        $libdir, $versiondir, 'tools', 'lib', 'Parrot', 'Configure.pm' ),
         },
-        'runtime/parrot/include/sockets.pasm' => {
-            start   => File::Spec->catfile( qw| . runtime parrot include sockets.pasm | ),
+        'src/ops/ops.num' => {
+            start   => File::Spec->catfile(
+                        qw| . src ops ops.num | ),
             end     => File::Spec->catfile(
-                        $libdir, $versiondir, 'include', 'sockets.pasm' ),
+                        $srcdir, $versiondir, 'ops', 'ops.num' ),
         },
-        'install_config.fpmc'                 => {
-            start   => File::Spec->catfile( qw| . install_config.fpmc | ),
+        'tools/build/ops2c.pl' => {
+            start   => File::Spec->catfile(
+                        qw| . tools build ops2c.pl | ),
             end     => File::Spec->catfile(
-                        $libdir, $versiondir, 'include', 'config.fpmc' ),
+                        $libdir, $versiondir, 'tools', 'build', 'ops2c.pl' ),
         },
-        'parrot.pc'                 => {
-            start   => File::Spec->catfile( qw| . | ),
+        'runtime/parrot/library/TGE.pbc' => {
+            start   => File::Spec->catfile(
+                        qw| . runtime parrot library TGE.pbc | ),
             end     => File::Spec->catfile(
-                        $libdir, 'pkgconfig', $versiondir, 'parrot.pc' ),
+                        $libdir, $versiondir, 'library', 'TGE.pbc' ),
         },
-        'compilers/pge/PGE.pir'                 => {
-            start   => File::Spec->catfile( qw| . compilers pge PGE.pir | ),
+        'src/pmc/pmc_object.h' => {
+            start   => File::Spec->catfile(
+                        qw| . src pmc pmc_object.h | ),
             end     => File::Spec->catfile(
-                        $libdir, $versiondir, 'languages', 'pge', 'PGE.pir' ),
+                        $includedir, $versiondir, 'pmc', 'pmc_object.h' ),
+        },
+        'vtable.dump' => {
+            start   => File::Spec->catfile(
+                        qw| . vtable.dump | ),
+            end     => File::Spec->catfile(
+                        $srcdir, $versiondir, 'vtable.dump' ),
         },
-
     );
     chdir $builddir or croak "Unable to change to tempdir for testing: $!";
     my $man_quasi = File::Spec->catfile( $builddir, 'MANIFEST' );
@@ -95,11 +107,13 @@
         or croak "Unable to copy $gen_pseudo for testing: $!";
 
     my @dirs_needed = qw(
-        src
-        docs/resources
-        include/parrot
-        runtime/parrot/include
-        compilers/pge
+        compilers/nqp/bootstrap
+        docs/pct
+        lib/Parrot
+        src/ops
+        tools/build
+        runtime/parrot/library
+        src/pmc
     );
     my @created =
         mkpath( map { File::Spec->catdir( $builddir, $_ ) } @dirs_needed );
@@ -114,6 +128,7 @@
     $cmd .= qq{ --libdir=$libdir};
     $cmd .= qq{ --versiondir=$versiondir};
     $cmd .= qq{ --docdir=$docdir};
+    $cmd .= qq{ --srcdir=$srcdir};
 #    $cmd .= qq{ --dry-run=1} if $DEBUG;
     $cmd .= qq{ MANIFEST MANIFEST.generated};
     print "cmd: $cmd\n" if $DEBUG;
@@ -142,137 +157,21 @@
         or croak "Unable to return to top-level directory after testing: $!";
 }
 
-$installer = File::Spec->catfile( 'tools', 'dev', 'install_dev_files.pl' );
-$full_installer = File::Spec->catfile( $cwd, $installer );
-ok(-f $full_installer, "Able to locate $installer");
-$DEBUG=1;
-
-{
-    my $builddir    = tempdir( CLEANUP => 1 );
-    my $prefixdir   = tempdir( CLEANUP => 1 );
-    if ($DEBUG) {
-        print STDERR "$builddir\n$prefixdir\n";
-    }
-
-    my $includedir = File::Spec->catdir( $prefixdir, 'include' );
-    my $libdir = File::Spec->catdir( $prefixdir, 'lib' );
-    my $docdir = File::Spec->catdir( $prefixdir, 'share', 'doc' );
-    my $versiondir = $PConfig{versiondir};
-
-    my %testfiles = (
-        'LICENSE'                 => {
-            start   => File::Spec->catfile( qw| . LICENSE | ),
-            end     => File::Spec->catfile(
-                        $docdir, $versiondir, 'LICENSE' )
-        },
-        'docs/gettingstarted.pod' => {
-            start   => File::Spec->catfile( qw| . docs gettingstarted.pod | ),
-            end     => File::Spec->catfile(
-                        $docdir,  $versiondir, 'pod', 'gettingstarted.pod' ),
-        },
-        'docs/resources/phony_resource' => {
-            start   => File::Spec->catfile( qw| . docs resources phony_resource | ),
-            end     => File::Spec->catfile(
-                        $docdir,  $versiondir, 'resources', 'phony_resource' ),
-        },
-        'include/parrot/charset.h' => {
-            start   => File::Spec->catfile( qw| . include parrot charset.h | ),
-            end     => File::Spec->catfile(
-                        $includedir, $versiondir, 'parrot', 'charset.h' ),
-        },
-        'runtime/parrot/include/sockets.pasm' => {
-            start   => File::Spec->catfile( qw| . runtime parrot include sockets.pasm | ),
-            end     => File::Spec->catfile(
-                        $libdir, $versiondir, 'include', 'sockets.pasm' ),
-        },
-        'install_config.fpmc'                 => {
-            start   => File::Spec->catfile( qw| . install_config.fpmc | ),
-            end     => File::Spec->catfile(
-                        $libdir, $versiondir, 'include', 'config.fpmc' ),
-        },
-        'parrot.pc'                 => {
-            start   => File::Spec->catfile( qw| . | ),
-            end     => File::Spec->catfile(
-                        $libdir, 'pkgconfig', $versiondir, 'parrot.pc' ),
-        },
-        'compilers/pge/PGE.pir'                 => {
-            start   => File::Spec->catfile( qw| . compilers pge PGE.pir | ),
-            end     => File::Spec->catfile(
-                        $libdir, $versiondir, 'languages', 'pge', 'PGE.pir' ),
-        },
-
-    );
-    chdir $builddir or croak "Unable to change to tempdir for testing: $!";
-    my $man_quasi = File::Spec->catfile( $builddir, 'MANIFEST' );
-    my $gen_quasi = File::Spec->catfile( $builddir, 'MANIFEST.generated' );
-    copy $full_man_pseudo => $man_quasi
-        or croak "Unable to copy $man_pseudo for testing:  $!";
-    copy $full_gen_pseudo => $gen_quasi
-        or croak "Unable to copy $gen_pseudo for testing: $!";
-
-    my @dirs_needed = qw(
-        src
-        docs/resources
-        include/parrot
-        runtime/parrot/include
-        compilers/pge
-    );
-    my @created =
-        mkpath( map { File::Spec->catdir( $builddir, $_ ) } @dirs_needed );
-    print STDERR "dirs created:  @created\n" if $DEBUG;
-    foreach my $f ( keys %testfiles ) {
-        my $src = File::Spec->catfile( $cwd, $testlibdir, $f );
-        my $des = File::Spec->catfile( $builddir, $testfiles{$f}{start} );
-        copy $src, $des or croak "Unable to copy $f for testing: $!";
-    }
-    my $cmd = qq{$^X $full_installer --prefix=$prefixdir};
-    $cmd .= qq{ --includedir=$includedir};
-    $cmd .= qq{ --libdir=$libdir};
-    $cmd .= qq{ --versiondir=$versiondir};
-    $cmd .= qq{ --docdir=$docdir};
-#    $cmd .= qq{ --dry-run=1} if $DEBUG;
-    $cmd .= qq{ MANIFEST MANIFEST.generated};
-    print "cmd: $cmd\n" if $DEBUG;
-    my ($stdout, $stderr);
-#    capture(
-#        sub {
-#            system( $cmd ) and croak "Unable to execute $installer: $!";
-#        },
-#        \$stdout,
-#        \$stderr,
-#    );
-#    like( $stdout, qr/^Installing/, "Got expected standard output" );
-#    print STDERR "out:  $stdout\n" if $DEBUG;
-#    print STDERR "err:  $stderr\n" if $DEBUG;
-#    my $seen = 0;
-#    my $expected = scalar keys %testfiles;
-#    foreach my $f ( keys %testfiles ) {
-#        my $des = $testfiles{$f}{end};
-#        print STDERR "wanted:  $des\n" if $DEBUG;
-#        $seen++ if -f $des;
-#    }
-#    is( $seen, $expected,
-#        "Got all $expected expected files in installation" );
-
-    chdir $cwd
-        or croak "Unable to return to top-level directory after testing: $!";
-}
-
 pass("Completed all tests in $0");
 
 ################### DOCUMENTATION ###################
 
 =head1 NAME
 
-overall.t - test tools/dev/install_files.pl
+dev_overall.t - test tools/dev/install_dev_files.pl
 
 =head1 SYNOPSIS
 
-    % prove t/tools/install/overall.t
+    % prove t/tools/install/dev_overall.t
 
 =head1 DESCRIPTION
 
-This file simulates the operation of F<tools/dev/install_files.pl> and
+This file simulates the operation of F<tools/dev/install_dev_files.pl> and
 sanity-checks the results.
 
 =head1 AUTHOR
@@ -281,7 +180,7 @@
 
 =head1 SEE ALSO
 
-F<tools/dev/install_files.pl>.
+F<tools/dev/install_dev_files.pl>.
 
 =cut
 

Modified: branches/test_install/t/tools/install/overall.t
==============================================================================
--- branches/test_install/t/tools/install/overall.t	Sun May 24 03:40:46 2009	(r39126)
+++ branches/test_install/t/tools/install/overall.t	Sun May 24 03:48:19 2009	(r39127)
@@ -5,8 +5,7 @@
 
 use strict;
 use warnings;
-#use Data::Dumper;$Data::Dumper::Indent = 1;
-use Test::More qw(no_plan); # tests =>  4;
+use Test::More tests =>  4;
 use Carp;
 use Cwd;
 use File::Basename;
@@ -142,122 +141,6 @@
         or croak "Unable to return to top-level directory after testing: $!";
 }
 
-$installer = File::Spec->catfile( 'tools', 'dev', 'install_dev_files.pl' );
-$full_installer = File::Spec->catfile( $cwd, $installer );
-ok(-f $full_installer, "Able to locate $installer");
-$DEBUG=1;
-
-{
-    my $builddir    = tempdir( CLEANUP => 1 );
-    my $prefixdir   = tempdir( CLEANUP => 1 );
-    if ($DEBUG) {
-        print STDERR "$builddir\n$prefixdir\n";
-    }
-
-    my $includedir = File::Spec->catdir( $prefixdir, 'include' );
-    my $libdir = File::Spec->catdir( $prefixdir, 'lib' );
-    my $docdir = File::Spec->catdir( $prefixdir, 'share', 'doc' );
-    my $versiondir = $PConfig{versiondir};
-
-    my %testfiles = (
-        'LICENSE'                 => {
-            start   => File::Spec->catfile( qw| . LICENSE | ),
-            end     => File::Spec->catfile(
-                        $docdir, $versiondir, 'LICENSE' )
-        },
-        'docs/gettingstarted.pod' => {
-            start   => File::Spec->catfile( qw| . docs gettingstarted.pod | ),
-            end     => File::Spec->catfile(
-                        $docdir,  $versiondir, 'pod', 'gettingstarted.pod' ),
-        },
-        'docs/resources/phony_resource' => {
-            start   => File::Spec->catfile( qw| . docs resources phony_resource | ),
-            end     => File::Spec->catfile(
-                        $docdir,  $versiondir, 'resources', 'phony_resource' ),
-        },
-        'include/parrot/charset.h' => {
-            start   => File::Spec->catfile( qw| . include parrot charset.h | ),
-            end     => File::Spec->catfile(
-                        $includedir, $versiondir, 'parrot', 'charset.h' ),
-        },
-        'runtime/parrot/include/sockets.pasm' => {
-            start   => File::Spec->catfile( qw| . runtime parrot include sockets.pasm | ),
-            end     => File::Spec->catfile(
-                        $libdir, $versiondir, 'include', 'sockets.pasm' ),
-        },
-        'install_config.fpmc'                 => {
-            start   => File::Spec->catfile( qw| . install_config.fpmc | ),
-            end     => File::Spec->catfile(
-                        $libdir, $versiondir, 'include', 'config.fpmc' ),
-        },
-        'parrot.pc'                 => {
-            start   => File::Spec->catfile( qw| . | ),
-            end     => File::Spec->catfile(
-                        $libdir, 'pkgconfig', $versiondir, 'parrot.pc' ),
-        },
-        'compilers/pge/PGE.pir'                 => {
-            start   => File::Spec->catfile( qw| . compilers pge PGE.pir | ),
-            end     => File::Spec->catfile(
-                        $libdir, $versiondir, 'languages', 'pge', 'PGE.pir' ),
-        },
-
-    );
-    chdir $builddir or croak "Unable to change to tempdir for testing: $!";
-    my $man_quasi = File::Spec->catfile( $builddir, 'MANIFEST' );
-    my $gen_quasi = File::Spec->catfile( $builddir, 'MANIFEST.generated' );
-    copy $full_man_pseudo => $man_quasi
-        or croak "Unable to copy $man_pseudo for testing:  $!";
-    copy $full_gen_pseudo => $gen_quasi
-        or croak "Unable to copy $gen_pseudo for testing: $!";
-
-    my @dirs_needed = qw(
-        src
-        docs/resources
-        include/parrot
-        runtime/parrot/include
-        compilers/pge
-    );
-    my @created =
-        mkpath( map { File::Spec->catdir( $builddir, $_ ) } @dirs_needed );
-    print STDERR "dirs created:  @created\n" if $DEBUG;
-    foreach my $f ( keys %testfiles ) {
-        my $src = File::Spec->catfile( $cwd, $testlibdir, $f );
-        my $des = File::Spec->catfile( $builddir, $testfiles{$f}{start} );
-        copy $src, $des or croak "Unable to copy $f for testing: $!";
-    }
-    my $cmd = qq{$^X $full_installer --prefix=$prefixdir};
-    $cmd .= qq{ --includedir=$includedir};
-    $cmd .= qq{ --libdir=$libdir};
-    $cmd .= qq{ --versiondir=$versiondir};
-    $cmd .= qq{ --docdir=$docdir};
-#    $cmd .= qq{ --dry-run=1} if $DEBUG;
-    $cmd .= qq{ MANIFEST MANIFEST.generated};
-    print "cmd: $cmd\n" if $DEBUG;
-    my ($stdout, $stderr);
-#    capture(
-#        sub {
-#            system( $cmd ) and croak "Unable to execute $installer: $!";
-#        },
-#        \$stdout,
-#        \$stderr,
-#    );
-#    like( $stdout, qr/^Installing/, "Got expected standard output" );
-#    print STDERR "out:  $stdout\n" if $DEBUG;
-#    print STDERR "err:  $stderr\n" if $DEBUG;
-#    my $seen = 0;
-#    my $expected = scalar keys %testfiles;
-#    foreach my $f ( keys %testfiles ) {
-#        my $des = $testfiles{$f}{end};
-#        print STDERR "wanted:  $des\n" if $DEBUG;
-#        $seen++ if -f $des;
-#    }
-#    is( $seen, $expected,
-#        "Got all $expected expected files in installation" );
-
-    chdir $cwd
-        or croak "Unable to return to top-level directory after testing: $!";
-}
-
 pass("Completed all tests in $0");
 
 ################### DOCUMENTATION ###################

Copied: branches/test_install/t/tools/install/testlib/compilers/nqp/bootstrap/actions.pm (from r39096, branches/test_install/t/tools/install/testlib/LICENSE)
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ branches/test_install/t/tools/install/testlib/compilers/nqp/bootstrap/actions.pm	Sun May 24 03:48:19 2009	(r39127, copy of r39096, branches/test_install/t/tools/install/testlib/LICENSE)
@@ -0,0 +1,2 @@
+# $Id$
+

Copied and modified: branches/test_install/t/tools/install/testlib/dev_generated_pseudo (from r39116, branches/test_install/t/tools/install/testlib/generated_pseudo)
==============================================================================
--- branches/test_install/t/tools/install/testlib/generated_pseudo	Sat May 23 21:19:33 2009	(r39116, copy source)
+++ branches/test_install/t/tools/install/testlib/dev_generated_pseudo	Sun May 24 03:48:19 2009	(r39127)
@@ -2,8 +2,9 @@
 # See tools/dev/install_files.pl for documentation on the
 # format of this file.
 # Please re-sort this file after *EVERY* modification
-install_config.fpmc                               [main]lib
-parrot.pc                                         [main]pkgconfig
+runtime/parrot/library/TGE.pbc                    [tge]
+src/pmc/pmc_object.h                              [devel]include
+vtable.dump                                       [devel]src
 # Local variables:
 #   mode: text
 # End:

Copied and modified: branches/test_install/t/tools/install/testlib/dev_manifest_pseudo (from r39117, branches/test_install/t/tools/install/testlib/manifest_pseudo)
==============================================================================
--- branches/test_install/t/tools/install/testlib/manifest_pseudo	Sat May 23 21:26:21 2009	(r39117, copy source)
+++ branches/test_install/t/tools/install/testlib/dev_manifest_pseudo	Sun May 24 03:48:19 2009	(r39127)
@@ -6,12 +6,12 @@
 # format of this file.
 # See docs/submissions.pod on how to recreate this file after SVN
 # has been told about new or deleted files.
-LICENSE                                                     [main]doc
-compilers/pge/PGE.pir                                       [pge]
-docs/gettingstarted.pod                                     [main]doc
-docs/resources/phony_resource                               [main]doc
-include/parrot/charset.h                                    [main]include
-runtime/parrot/include/sockets.pasm                         [library]
+compilers/nqp/bootstrap/actions.pm                          [nqp]
+docs/compiler_faq.pod                                       [devel]doc
+docs/pct/past_building_blocks.pod                           [pct]doc
+lib/Parrot/Configure.pm                                     [devel]lib
+src/ops/ops.num                                             [devel]src
+tools/build/ops2c.pl                                        [devel]
 # Local variables:
 #   mode: text
 # End:

Copied: branches/test_install/t/tools/install/testlib/docs/compiler_faq.pod (from r39096, branches/test_install/t/tools/install/testlib/docs/gettingstarted.pod)
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ branches/test_install/t/tools/install/testlib/docs/compiler_faq.pod	Sun May 24 03:48:19 2009	(r39127, copy of r39096, branches/test_install/t/tools/install/testlib/docs/gettingstarted.pod)
@@ -0,0 +1,2 @@
+# $Id$
+

Copied: branches/test_install/t/tools/install/testlib/docs/pct/past_building_blocks.pod (from r39096, branches/test_install/t/tools/install/testlib/docs/gettingstarted.pod)
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ branches/test_install/t/tools/install/testlib/docs/pct/past_building_blocks.pod	Sun May 24 03:48:19 2009	(r39127, copy of r39096, branches/test_install/t/tools/install/testlib/docs/gettingstarted.pod)
@@ -0,0 +1,2 @@
+# $Id$
+

Copied: branches/test_install/t/tools/install/testlib/lib/Parrot/Configure.pm (from r39096, branches/test_install/t/tools/install/testlib/LICENSE)
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ branches/test_install/t/tools/install/testlib/lib/Parrot/Configure.pm	Sun May 24 03:48:19 2009	(r39127, copy of r39096, branches/test_install/t/tools/install/testlib/LICENSE)
@@ -0,0 +1,2 @@
+# $Id$
+

Copied: branches/test_install/t/tools/install/testlib/runtime/parrot/library/TGE.pbc (from r39096, branches/test_install/t/tools/install/testlib/LICENSE)
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ branches/test_install/t/tools/install/testlib/runtime/parrot/library/TGE.pbc	Sun May 24 03:48:19 2009	(r39127, copy of r39096, branches/test_install/t/tools/install/testlib/LICENSE)
@@ -0,0 +1,2 @@
+# $Id$
+

Copied: branches/test_install/t/tools/install/testlib/src/ops/ops.num (from r39096, branches/test_install/t/tools/install/testlib/LICENSE)
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ branches/test_install/t/tools/install/testlib/src/ops/ops.num	Sun May 24 03:48:19 2009	(r39127, copy of r39096, branches/test_install/t/tools/install/testlib/LICENSE)
@@ -0,0 +1,2 @@
+# $Id$
+

Copied: branches/test_install/t/tools/install/testlib/src/pmc/pmc_object.h (from r39096, branches/test_install/t/tools/install/testlib/LICENSE)
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ branches/test_install/t/tools/install/testlib/src/pmc/pmc_object.h	Sun May 24 03:48:19 2009	(r39127, copy of r39096, branches/test_install/t/tools/install/testlib/LICENSE)
@@ -0,0 +1,2 @@
+# $Id$
+

Copied: branches/test_install/t/tools/install/testlib/tools/build/ops2c.pl (from r39096, branches/test_install/t/tools/install/testlib/LICENSE)
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ branches/test_install/t/tools/install/testlib/tools/build/ops2c.pl	Sun May 24 03:48:19 2009	(r39127, copy of r39096, branches/test_install/t/tools/install/testlib/LICENSE)
@@ -0,0 +1,2 @@
+# $Id$
+

Copied: branches/test_install/t/tools/install/testlib/vtable.dump (from r39096, branches/test_install/t/tools/install/testlib/LICENSE)
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ branches/test_install/t/tools/install/testlib/vtable.dump	Sun May 24 03:48:19 2009	(r39127, copy of r39096, branches/test_install/t/tools/install/testlib/LICENSE)
@@ -0,0 +1,2 @@
+# $Id$
+

Modified: branches/test_install/tools/dev/install_dev_files.pl
==============================================================================
--- branches/test_install/tools/dev/install_dev_files.pl	Sun May 24 03:40:46 2009	(r39126)
+++ branches/test_install/tools/dev/install_dev_files.pl	Sun May 24 03:48:19 2009	(r39127)
@@ -187,17 +187,19 @@
 }
 print("Installing ...\n");
 foreach ( @files, @installable_exe ) {
+#print STDERR "jo\n";
     my ( $src, $dest ) = @$_;
     $dest = $options{destdir} . $dest;
+#print STDERR "s,d: $src\n     $dest\n";
     if ( $options{'dry-run'} ) {
         print "$src -> $dest\n";
         next;
     }
     else {
-#        print STDERR "Before copy: $dest\n";
+#print STDERR "Before copy: $dest\n";
         next unless -e $src;
         copy( $src, $dest ) or die "copy $src to $dest: $!\n";
-#        print STDERR "After copy: $dest\n";
+#print STDERR "After copy: $dest\n";
         print "$dest\n";
     }
     my $mode = ( stat($src) )[2];


More information about the parrot-commits mailing list