# HG changeset patch
# User heiko
# Date 1188832367 0
# Node ID 388a9b037a364910cd7e9fe6df83c25d660e9b07
# Parent  b58ecd25d1f17f08fe3196995c6555b2801ea6ae
- na ja, ein Anfang (krude) für die Tests...

diff -r b58ecd25d1f1 -r 388a9b037a36 t/00-vip-from.t
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/t/00-vip-from.t	Mon Sep 03 15:12:47 2007 +0000
@@ -0,0 +1,34 @@
+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>;