X-Git-Url: https://mattmccutchen.net/rsync/rsync.git/blobdiff_plain/757287d8a58ee962933a77590117344076237587..ee5544112a2ac420d7e8737f275a8f268071f351:/testsuite/rsync.fns

diff --git a/testsuite/rsync.fns b/testsuite/rsync.fns
index 80c218dd..73e36eed 100644
--- a/testsuite/rsync.fns
+++ b/testsuite/rsync.fns
@@ -65,11 +65,20 @@ printmsg() {
     echo "$1"
 }
 
-
 rsync_ls_lR() {
     find "$@" -print | sort | sed 's/ /\\ /g' | xargs "$TOOLDIR/tls"
 }
 
+check_perms() {
+    perms=`"$TOOLDIR/tls" "$1" | sed 's/^[-d]\(.........\).*/\1/'`
+    if test $perms = $2; then
+	return 0
+    fi
+    echo "permissions: $perms on $1"
+    echo "should be:   $2"
+    test_fail "failed test $3"
+}
+
 rsync_getgroups() { 
     "$TOOLDIR/getgroups"
 }