diff -r af315e1a9b1e -r 1fccf68e52c6 t/10-x.t
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/t/10-x.t	Wed Sep 05 23:15:45 2007 +0000
@@ -0,0 +1,48 @@
+use Test::More tests => 2;
+use strict;
+use warnings;
+use Fatal qw(:void open seek truncate);
+use FindBin qw($Bin);
+use File::Temp qw(tempfile);;
+use File::Compare;
+
+my $MIMECUT = "$Bin/../hs12";
+
+my $tmpout = tempfile();
+open(my $saveout, ">&STDOUT");
+open(STDOUT, ">&", $tmpout);
+
+foreach (qw(plain signed)) {
+    seek($tmpout, 0, 0);
+    truncate($tmpout, 0);
+
+    system("$MIMECUT <$Bin/../messages/$_.in");
+    seek($tmpout, 0, 0);
+    is(compare($tmpout, "$Bin/../messages/$_.out"), 0, $_);
+}
+
+
+__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>;