X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=tests%2Ftestsuite.at;h=d5c602393be5cc4ddb47985247f3fb544c051a66;hb=643a8844a578ff146cfe746fe6091d29502b6c40;hp=97f5e4120b74726df82b09b97a9c07deedb20acf;hpb=099f71f78da3ef9a1aa525f070d93c87ed06cb98;p=chaz%2Ftar

diff --git a/tests/testsuite.at b/tests/testsuite.at
index 97f5e41..d5c6023 100644
--- a/tests/testsuite.at
+++ b/tests/testsuite.at
@@ -103,6 +103,16 @@ rm -f $[]$
 test $result -eq 0 && AT_SKIP_TEST
 ])
 
+dnl AT_PRIVILEGED_PREREQ - Skip test if not running at root privileges
+m4_define([AT_PRIVILEGED_PREREQ],[
+echo "test" > $[]$
+chmod 0 $[]$
+cat $[]$ > /dev/null 2>&1
+result=$?
+rm -f $[]$
+test $result -eq 0 || AT_SKIP_TEST
+])
+
 m4_define([AT_TAR_MKHIER],[
 install-sh -d $1 >/dev/null dnl
 m4_if([$2],,,&& genfile --file [$1]/[$2]) || AT_SKIP_TEST])
@@ -186,6 +196,7 @@ m4_include([listed01.at])
 m4_include([listed02.at])
 m4_include([listed03.at])
 m4_include([listed04.at])
+m4_include([listed05.at])
 m4_include([incr03.at])
 m4_include([incr04.at])
 m4_include([incr05.at])