diff --git a/tests/extrac01.sh b/tests/extrac01.sh
new file mode 100755
index 00000000..9344cc46
--- /dev/null
+++ b/tests/extrac01.sh
@@ -0,0 +1,13 @@
+#! /bin/sh
+# There was a diagnostic when directory already exists.
+
+. ./preset
+. $srcdir/before
+
+set -e
+mkdir directory
+touch directory/file
+tar cf archive directory || exit 1
+tar xf archive || exit 1
+
+. $srcdir/after