Shorter version.

This commit is contained in:
pjd 2008-11-23 19:57:16 +00:00
parent ad301e0dc0
commit e20a8f04f0

View File

@ -12,18 +12,8 @@ n0=`namegen`
n1=`namegen`
expect 0 symlink ${n0} ${n1}
case "${os}" in
SunOS)
expect ELOOP open ${n1} O_RDONLY,O_CREAT,O_NOFOLLOW 0644
expect ELOOP open ${n1} O_RDONLY,O_NOFOLLOW
expect ELOOP open ${n1} O_WRONLY,O_NOFOLLOW
expect ELOOP open ${n1} O_RDWR,O_NOFOLLOW
;;
*)
expect EMLINK open ${n1} O_RDONLY,O_CREAT,O_NOFOLLOW 0644
expect EMLINK open ${n1} O_RDONLY,O_NOFOLLOW
expect EMLINK open ${n1} O_WRONLY,O_NOFOLLOW
expect EMLINK open ${n1} O_RDWR,O_NOFOLLOW
;;
esac
expect "EMLINK|ELOOP" open ${n1} O_RDONLY,O_CREAT,O_NOFOLLOW 0644
expect "EMLINK|ELOOP" open ${n1} O_RDONLY,O_NOFOLLOW
expect "EMLINK|ELOOP" open ${n1} O_WRONLY,O_NOFOLLOW
expect "EMLINK|ELOOP" open ${n1} O_RDWR,O_NOFOLLOW
expect 0 unlink ${n1}