+# faildir - emergency destination is maildir
+{
+ my $faildir= "$home/faildir/";
+ local $ENV{PI_EMERGENCY} = $faildir;
+ local $ENV{HOME} = $home;
+ local $ENV{RECIPIENT} = $addr;
+ local $ENV{PATH} = $fail_path;
+ my $in = <<EOF;
+From: Faildir <faildir\@example.com>
+To: You <you\@example.com>
+Cc: $addr
+Message-ID: <faildir\@example.com>
+Subject: faildir subject
+Date: Thu, 01 Jan 1970 00:00:00 +0000
+
+EOF
+ run([$mda], \$in);
+ ok(-d $faildir, "emergency exists");
+ my @new = glob("$faildir/new/*");
+ is(scalar(@new), 1, "message delivered");
+}
+