1*01826a49SYabin Cui. "$COMMON/platform.sh" 2*01826a49SYabin Cui 3*01826a49SYabin CuiGET_PERMS="stat -c %a" 4*01826a49SYabin Cuicase "$UNAME" in 5*01826a49SYabin Cui Darwin | FreeBSD | OpenBSD | NetBSD) GET_PERMS="stat -f %Lp" ;; 6*01826a49SYabin Cuiesac 7*01826a49SYabin Cui 8*01826a49SYabin CuiassertFilePermissions() { 9*01826a49SYabin Cui STAT1=$($GET_PERMS "$1") 10*01826a49SYabin Cui STAT2=$2 11*01826a49SYabin Cui [ "$STAT1" = "$STAT2" ] || die "permissions on $1 don't match expected ($STAT1 != $STAT2)" 12*01826a49SYabin Cui} 13*01826a49SYabin Cui 14*01826a49SYabin CuiassertSamePermissions() { 15*01826a49SYabin Cui STAT1=$($GET_PERMS "$1") 16*01826a49SYabin Cui STAT2=$($GET_PERMS "$2") 17*01826a49SYabin Cui [ "$STAT1" = "$STAT2" ] || die "permissions on $1 don't match those on $2 ($STAT1 != $STAT2)" 18*01826a49SYabin Cui} 19