http://www.perforce.com/perforce/technotes/note014.html

I want a disintegrate command, and right now I know where I want to
aim it.
(Missing un-adds from reversing back to MM 6.17)

p4raw-id: //depot/maint-5.8/perl@22077

2 files changed, 0 insertions, 186 deletions

diff --git a/t/lib/MakeMaker/Test/Setup/BFD.pm b/t/lib/MakeMaker/Test/Setup/BFD.pm
deleted file mode 100644
index 2509a2cfb0..0000000000
--- a/t/lib/MakeMaker/Test/Setup/BFD.pm
+++ /dev/null
@@ -1,130 +0,0 @@
-package MakeMaker::Test::Setup::BFD;
-
-@ISA = qw(Exporter);
-require Exporter;
-@EXPORT = qw(setup_recurs teardown_recurs);
-
-use strict;
-use File::Path;
-use File::Basename;
-
-
-my %Files = (
-             'Big-Dummy/lib/Big/Dummy.pm'     => <<'END',
-package Big::Dummy;
-
-$VERSION = 0.01;
-
-=head1 NAME
-
-Big::Dummy - Try "our" hot dog's
-
-=cut
-
-1;
-END
-
-             'Big-Dummy/Makefile.PL'          => <<'END',
-use ExtUtils::MakeMaker;
-
-# This will interfere with the PREREQ_PRINT tests.
-printf "Current package is: %s\n", __PACKAGE__ unless "@ARGV" =~ /PREREQ/;
-
-WriteMakefile(
-    NAME          => 'Big::Dummy',
-    VERSION_FROM  => 'lib/Big/Dummy.pm',
-    PREREQ_PM     => { strict => 0 },
-    ABSTRACT_FROM => 'lib/Big/Dummy.pm',
-    AUTHOR        => 'Michael G Schwern <schwern@pobox.com>',
-);
-END
-
-             'Big-Dummy/t/compile.t'          => <<'END',
-print "1..2\n";
-
-print eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
-print "ok 2 - TEST_VERBOSE\n";
-END
-
-             'Big-Dummy/Liar/t/sanity.t'      => <<'END',
-print "1..3\n";
-
-print eval "use Big::Dummy; 1;" ? "ok 1\n" : "not ok 1\n";
-print eval "use Big::Liar; 1;" ? "ok 2\n" : "not ok 2\n";
-print "ok 3 - TEST_VERBOSE\n";
-END
-
-             'Big-Dummy/Liar/lib/Big/Liar.pm' => <<'END',
-package Big::Liar;
-
-$VERSION = 0.01;
-
-1;
-END
-
-             'Big-Dummy/Liar/Makefile.PL'     => <<'END',
-use ExtUtils::MakeMaker;
-
-my $mm = WriteMakefile(
-              NAME => 'Big::Liar',
-              VERSION_FROM => 'lib/Big/Liar.pm',
-              _KEEP_AFTER_FLUSH => 1
-             );
-
-print "Big::Liar's vars\n";
-foreach my $key (qw(INST_LIB INST_ARCHLIB)) {
-    print "$key = $mm->{$key}\n";
-}
-END
-
-            );
-
-
-sub _setup_bfd_test_root {
-    if( $^O eq 'VMS' ) {
-        # On older systems we might exceed the 8-level directory depth limit
-        # imposed by RMS.  We get around this with a rooted logical, but we
-        # can't create logical names with attributes in Perl, so we do it
-        # in a DCL subprocess and put it in the job table so the parent sees it.
-        open( BFDTMP, '>bfdtesttmp.com' ) || 
-          die "Error creating command file; $!";
-        print BFDTMP <<'COMMAND';
-$ BFD_TEST_ROOT = F$PARSE("SYS$DISK:[-]",,,,"NO_CONCEAL")-".][000000"-"]["-"].;"+".]"
-$ DEFINE/JOB/NOLOG/TRANSLATION=CONCEALED BFD_TEST_ROOT 'BFD_TEST_ROOT'
-COMMAND
-        close BFDTMP;
-
-        system '@bfdtesttmp.com';
-        1 while unlink 'bfdtesttmp.com';
-    }
-}
-
-sub setup_recurs {
-    _setup_bfd_test_root();
-
-    while(my($file, $text) = each %Files) {
-        # Convert to a relative, native file path.
-        $file = File::Spec->catfile(File::Spec->curdir, split m{\/}, $file);
-
-        my $dir = dirname($file);
-        mkpath $dir;
-        open(FILE, ">$file") || die "Can't create $file: $!";
-        print FILE $text;
-        close FILE;
-    }
-
-    return 1;
-}
-
-sub teardown_recurs { 
-    foreach my $file (keys %Files) {
-        my $dir = dirname($file);
-        if( -e $dir ) {
-            rmtree($dir) || return;
-        }
-    }
-    return 1;
-}
-
-
-1;
diff --git a/t/lib/MakeMaker/Test/Setup/Problem.pm b/t/lib/MakeMaker/Test/Setup/Problem.pm
deleted file mode 100644
index 4cb14b59ac..0000000000
--- a/t/lib/MakeMaker/Test/Setup/Problem.pm
+++ /dev/null
@@ -1,56 +0,0 @@
-package MakeMaker::Test::Setup::Problem;
-
-@ISA = qw(Exporter);
-require Exporter;
-@EXPORT = qw(setup_recurs teardown_recurs);
-
-use strict;
-use File::Path;
-use File::Basename;
-
-my %Files = (
-             'Problem-Module/Makefile.PL'   => <<'END',
-use ExtUtils::MakeMaker;
-
-WriteMakefile(
-    NAME    => 'Problem::Module',
-);
-END
-
-             'Problem-Module/subdir/Makefile.PL'    => <<'END',
-printf "\@INC %s .\n", (grep { $_ eq '.' } @INC) ? "has" : "doesn't have";
-
-warn "I think I'm going to be sick\n";
-die "YYYAaaaakkk\n";
-END
-
-);
-
-
-sub setup_recurs {
-    while(my($file, $text) = each %Files) {
-        # Convert to a relative, native file path.
-        $file = File::Spec->catfile(File::Spec->curdir, split m{\/}, $file);
-
-        my $dir = dirname($file);
-        mkpath $dir;
-        open(FILE, ">$file") || die "Can't create $file: $!";
-        print FILE $text;
-        close FILE;
-    }
-
-    return 1;
-}
-
-sub teardown_recurs { 
-    foreach my $file (keys %Files) {
-        my $dir = dirname($file);
-        if( -e $dir ) {
-            rmtree($dir) || return;
-        }
-    }
-    return 1;
-}
-
-
-1;