From be2f866b4cacadbed2d18bd6b3e23ae0afc04d4e Mon Sep 17 00:00:00 2001
From: Martin Pool <mbp@samba.org>
Date: Fri, 11 Jan 2002 08:01:05 +0000
Subject: [PATCH] Add concept of expected-failure.

---
 runtests.sh         | 7 +++++++
 testsuite/rsync.fns | 8 ++++++++
 2 files changed, 15 insertions(+)

diff --git a/runtests.sh b/runtests.sh
index 62121210..9a9b07d6 100755
--- a/runtests.sh
+++ b/runtests.sh
@@ -209,6 +209,13 @@ do
 	skipped=`expr $skipped + 1`
 	discard_scratch
 	;;
+    78)
+        # It failed, but we expected that.  don't dump out error logs, 
+	# because most users won't want to see them.  But do leave
+	# the working directory around.
+	echo "XFAIL   $testbase"
+	failed=`expr $failed + 1`
+	;;
     *)
 	echo "FAIL    $testbase"
 	echo "----- $testbase failed: log follows"
diff --git a/testsuite/rsync.fns b/testsuite/rsync.fns
index 2d27a8c3..165dfa0c 100644
--- a/testsuite/rsync.fns
+++ b/testsuite/rsync.fns
@@ -222,5 +222,13 @@ test_fail() {
     exit 1
 }
 
+# It failed, but we expected that.  don't dump out error logs, 
+# because most users won't want to see them.  But do leave
+# the working directory around.
+test_xfail() {
+    echo "$@" >&2
+    exit 78
+}
+
 # be reproducible
 umask 077
\ No newline at end of file
-- 
2.34.1