--- a/t/00-vip-from.t Wed Sep 05 14:52:16 2007 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,34 +0,0 @@
-use Test::More tests => 2;
-use strict;
-use warnings;
-
-my $x = "a";
-
-is($x, "a");
-like($x, qr/a/);
-
-
-__END__
-use Fatal qw(:void open close seek);
-use FindBin qw($Bin);
-
-use IO::File;
-
-my $out = new_tmpfile IO::File;
-my $err = new_tmpfile IO::File;
-
-
-my $pid = open(CUTTER, "|-") or do {
- open(STDERR, ">&", $err);
- open(STDOUT, ">&", $out);
- exec "../mimecut";
- die "Can't exec: $!\n";
-};
-
-open(X, "$Bin/mail1.eml");
-
-print CUTTER <X>;
-close(CUTTER);
-
-seek($out, 0, 0);
-print <$out>;