From 84c82da487906645eec2128aa4d8f1cde743d405 Mon Sep 17 00:00:00 2001
From: Steve Hay <steve.m.hay@googlemail.com>
Date: Fri, 18 Oct 2013 18:20:31 +0100
Subject: Remove further IGNORABLE-like files under cpan/

These are all examples, demos and oddly named READMEs.
---
 cpan/IO-Compress/t/010examples-bzip2.t | 134 ---------------------------
 cpan/IO-Compress/t/010examples-zlib.t  | 135 ---------------------------
 cpan/IO-Compress/t/cz-05examples.t     | 163 ---------------------------------
 3 files changed, 432 deletions(-)
 delete mode 100644 cpan/IO-Compress/t/010examples-bzip2.t
 delete mode 100644 cpan/IO-Compress/t/010examples-zlib.t
 delete mode 100644 cpan/IO-Compress/t/cz-05examples.t

(limited to 'cpan/IO-Compress/t')

diff --git a/cpan/IO-Compress/t/010examples-bzip2.t b/cpan/IO-Compress/t/010examples-bzip2.t
deleted file mode 100644
index 2248535f7d..0000000000
--- a/cpan/IO-Compress/t/010examples-bzip2.t
+++ /dev/null
@@ -1,134 +0,0 @@
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-	chdir 't' if -d 't';
-	@INC = ("../lib", "lib/compress");
-    }
-}
-
-use lib qw(t t/compress);
-
-use strict;
-use warnings;
-use bytes;
-
-use Test::More ;
-use CompTestUtils;
-use IO::Compress::Bzip2 'bzip2' ;
-
-BEGIN 
-{ 
-    plan(skip_all => "Examples needs Perl 5.005 or better - you have Perl $]" )
-        if $] < 5.005 ;
-    
-    # use Test::NoWarnings, if available
-    my $extra = 0 ;
-    $extra = 1
-        if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
-
-    plan tests => 19 + $extra ;
-}
-
-
-my $Inc = join " ", map qq["-I$_"] => @INC;
-$Inc = '"-MExtUtils::testlib"'
-    if ! $ENV{PERL_CORE} && eval " require ExtUtils::testlib; " ;
-
-my $Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;
-$Perl = qq["$Perl"] if $^O eq 'MSWin32' ;
- 
-$Perl = "$Perl $Inc -w" ;
-#$Perl .= " -Mblib " ;
-my $examples = $ENV{PERL_CORE} ? "../ext/IO-Compress/examples/io/bzip2"
-                               : "./examples/io/bzip2";
-
-my $hello1 = <<EOM ;
-hello
-this is 
-a test
-message
-x ttttt
-xuuuuuu
-the end
-EOM
-
-my @hello1 = grep(s/$/\n/, split(/\n/, $hello1)) ;
-
-my $hello2 = <<EOM;
-
-Howdy
-this is the
-second
-file
-x ppppp
-xuuuuuu
-really the end
-EOM
-
-my @hello2 = grep(s/$/\n/, split(/\n/, $hello2)) ;
-
-my ($file1, $file2, $stderr) ;
-my $lex = new LexFile $file1, $file2, $stderr ;
-
-bzip2 \$hello1 => $file1 ;
-bzip2 \$hello2 => $file2 ;
-
-sub check
-{
-    my $command = shift ;
-    my $expected = shift ;
-
-    my $lex = new LexFile my $stderr ;
-
-    my $cmd = "$command 2>$stderr";
-    my $stdout = `$cmd` ;
-
-    my $aok = 1 ;
-
-    $aok &= is $?, 0, "  exit status is 0" ;
-
-    $aok &= is readFile($stderr), '', "  no stderr" ;
-
-    $aok &= is $stdout, $expected, "  expected content is ok"
-        if defined $expected ;
-
-    if (! $aok) {
-        diag "Command line: $cmd";
-        my ($file, $line) = (caller)[1,2];
-        diag "Test called from $file, line $line";
-    }
-
-    1 while unlink $stderr;
-}
-
-# bzcat
-# #####
-
-title "bzcat - command line" ;
-check "$Perl ${examples}/bzcat $file1 $file2",  $hello1 . $hello2;
-
-title "bzcat - stdin" ;
-check "$Perl ${examples}/bzcat <$file1 ", $hello1;
-
-
-# bzgrep
-# ######
-
-title "bzgrep";
-check "$Perl  ${examples}/bzgrep the $file1 $file2",
-        join('', grep(/the/, @hello1, @hello2));
-
-for ($file1, $file2, $stderr) { 1 while unlink $_ } ;
-
-
-
-# bzstream
-# ########
-
-{
-    title "bzstream" ;
-    writeFile($file1, $hello1) ;
-    check "$Perl ${examples}/bzstream <$file1 >$file2";
-
-    title "bzcat" ;
-    check "$Perl ${examples}/bzcat $file2", $hello1 ;
-}
diff --git a/cpan/IO-Compress/t/010examples-zlib.t b/cpan/IO-Compress/t/010examples-zlib.t
deleted file mode 100644
index 70e7141088..0000000000
--- a/cpan/IO-Compress/t/010examples-zlib.t
+++ /dev/null
@@ -1,135 +0,0 @@
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-	chdir 't' if -d 't';
-	@INC = ("../lib", "lib/compress");
-    }
-}
-
-use lib qw(t t/compress);
-
-use strict;
-use warnings;
-use bytes;
-
-use Test::More ;
-use CompTestUtils;
-use IO::Compress::Gzip 'gzip' ;
-
-BEGIN 
-{ 
-    plan(skip_all => "Examples needs Perl 5.005 or better - you have Perl $]" )
-        if $] < 5.005 ;
-    
-    # use Test::NoWarnings, if available
-    my $extra = 0 ;
-    $extra = 1
-        if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
-
-    plan tests => 19 + $extra ;
-}
-
-
-my $Inc = join " ", map qq["-I$_"] => @INC;
-$Inc = '"-MExtUtils::testlib"'
-    if ! $ENV{PERL_CORE} && eval " require ExtUtils::testlib; " ;
-
-my $Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;
-$Perl = qq["$Perl"] if $^O eq 'MSWin32' ;
- 
-$Perl = "$Perl $Inc -w" ;
-#$Perl .= " -Mblib " ;
-my $examples = $ENV{PERL_CORE} ? "../ext/IO-Compress/examples/io/gzip"
-                               : "./examples/io/gzip";
-
-my $hello1 = <<EOM ;
-hello
-this is 
-a test
-message
-x ttttt
-xuuuuuu
-the end
-EOM
-
-my @hello1 = grep(s/$/\n/, split(/\n/, $hello1)) ;
-
-my $hello2 = <<EOM;
-
-Howdy
-this is the
-second
-file
-x ppppp
-xuuuuuu
-really the end
-EOM
-
-my @hello2 = grep(s/$/\n/, split(/\n/, $hello2)) ;
-
-my ($file1, $file2, $stderr) ;
-my $lex = new LexFile $file1, $file2, $stderr ;
-
-gzip \$hello1 => $file1 ;
-gzip \$hello2 => $file2 ;
-
-sub check
-{
-    my $command = shift ;
-    my $expected = shift ;
-
-    my $lex = new LexFile my $stderr ;
-
-
-    my $cmd = "$command 2>$stderr";
-    my $stdout = `$cmd` ;
-
-    my $aok = 1 ;
-
-    $aok &= is $?, 0, "  exit status is 0" ;
-
-    $aok &= is readFile($stderr), '', "  no stderr" ;
-
-    $aok &= is $stdout, $expected, "  expected content is ok"
-        if defined $expected ;
-
-    if (! $aok) {
-        diag "Command line: $cmd";
-        my ($file, $line) = (caller)[1,2];
-        diag "Test called from $file, line $line";
-    }
-
-    1 while unlink $stderr;
-}
-
-# gzcat
-# #####
-
-title "gzcat - command line" ;
-check "$Perl ${examples}/gzcat $file1 $file2",  $hello1 . $hello2;
-
-title "gzcat - stdin" ;
-check "$Perl ${examples}/gzcat <$file1 ", $hello1;
-
-
-# gzgrep
-# ######
-
-title "gzgrep";
-check "$Perl  ${examples}/gzgrep the $file1 $file2",
-        join('', grep(/the/, @hello1, @hello2));
-
-for ($file1, $file2, $stderr) { 1 while unlink $_ } ;
-
-
-
-# gzstream
-# ########
-
-{
-    title "gzstream" ;
-    writeFile($file1, $hello1) ;
-    check "$Perl ${examples}/gzstream <$file1 >$file2";
-
-    title "gzcat" ;
-    check "$Perl ${examples}/gzcat $file2", $hello1 ;
-}
diff --git a/cpan/IO-Compress/t/cz-05examples.t b/cpan/IO-Compress/t/cz-05examples.t
deleted file mode 100644
index 5a8fb33e20..0000000000
--- a/cpan/IO-Compress/t/cz-05examples.t
+++ /dev/null
@@ -1,163 +0,0 @@
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-	chdir 't' if -d 't';
-	@INC = ("../lib", "lib/compress");
-    }
-}
-
-use lib qw(t t/compress);
-
-use strict;
-use warnings;
-use bytes;
-
-use Test::More ;
-use CompTestUtils;
-use Compress::Zlib;
-
-BEGIN 
-{ 
-    plan(skip_all => "Examples needs Perl 5.005 or better - you have Perl $]" )
-        if $] < 5.005 ;
-    
-    # use Test::NoWarnings, if available
-    my $extra = 0 ;
-    $extra = 1
-        if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
-
-    plan tests => 26 + $extra ;
-}
-
-
-my $Inc = join " ", map qq["-I$_"] => @INC;
-$Inc = '"-MExtUtils::testlib"'
-    if ! $ENV{PERL_CORE} && eval " require ExtUtils::testlib; " ;
-
-my $Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;
-$Perl = qq["$Perl"] if $^O eq 'MSWin32' ;
- 
-$Perl = "$Perl $Inc -w" ;
-my $examples = $ENV{PERL_CORE} ? "../ext/IO-Compress/examples/compress-zlib" 
-                               : "./examples/compress-zlib";
-
-my $hello1 = <<EOM ;
-hello
-this is 
-a test
-message
-x ttttt
-xuuuuuu
-the end
-EOM
-
-my @hello1 = grep(s/$/\n/, split(/\n/, $hello1)) ;
-
-my $hello2 = <<EOM;
-
-Howdy
-this is the
-second
-file
-x ppppp
-xuuuuuu
-really the end
-EOM
-
-my @hello2 = grep(s/$/\n/, split(/\n/, $hello2)) ;
-
-my $file1 = "hello1.gz" ;
-my $file2 = "hello2.gz" ;
-my $stderr = "err.out" ;
-
-for ($file1, $file2, $stderr) { 1 while unlink $_ } ;
-
-
-my $gz = gzopen($file1, "wb");
-$gz->gzwrite($hello1);
-$gz->gzclose();
-
-$gz = gzopen($file2, "wb");
-$gz->gzwrite($hello2);
-$gz->gzclose();
-
-sub check
-{
-    my $command = shift ;
-    my $expected = shift ;
-
-    my $stderr = 'err.out';
-    1 while unlink $stderr;
-
-    my $cmd = "$command 2>$stderr";
-    my $stdout = `$cmd` ;
-
-    my $aok = 1 ;
-
-    $aok &= is $?, 0, "  exit status is 0" ;
-
-    $aok &= is readFile($stderr), '', "  no stderr" ;
-
-    $aok &= is $stdout, $expected, "  expected content is ok"
-        if defined $expected ;
-
-    if (! $aok) {
-        diag "Command line: $cmd";
-        my ($file, $line) = (caller)[1,2];
-        diag "Test called from $file, line $line";
-    }
-
-    1 while unlink $stderr;
-}
-
-# gzcat
-# #####
-
-title "gzcat - command line" ;
-check "$Perl ${examples}/gzcat $file1 $file2",  $hello1 . $hello2;
-
-title "gzcat - stdin" ;
-check "$Perl ${examples}/gzcat <$file1 ", $hello1;
-
-
-# gzgrep
-# ######
-
-title "gzgrep";
-check "$Perl  ${examples}/gzgrep the $file1 $file2",
-        join('', grep(/the/, @hello1, @hello2));
-
-for ($file1, $file2, $stderr) { 1 while unlink $_ } ;
-
-
-
-# filtdef/filtinf
-# ##############
-
-
-writeFile($file1, $hello1) ;
-writeFile($file2, $hello2) ;
-
-title "filtdef" ;
-# there's no way to set binmode on backticks in Win32 so we won't use $a later
-check "$Perl ${examples}/filtdef $file1 $file2" ;
-
-title "filtdef | filtinf";
-check "$Perl ${examples}/filtdef $file1 $file2 | $Perl ${examples}/filtinf",
-        $hello1 . $hello2;
-# gzstream
-# ########
-
-{
-    title "gzstream" ;
-    writeFile($file1, $hello1) ;
-    check "$Perl ${examples}/gzstream <$file1 >$file2";
-
-    title "gzcat" ;
-    check "$Perl ${examples}/gzcat $file2", $hello1 ;
-}
-
-END
-{
-    for ($file1, $file2, $stderr) { 1 while unlink $_ } ;
-}
-
-- 
cgit v1.2.1