#
# Testsuite for fuser
#
proc cleanup { } {
	global test_file
	exec rm $test_file
}

set fuser "${topdir}src/fuser"
set test_file [ exec mktemp ]

set verbose_header "\\s+USER\\s+PID ACCESS COMMAND\\s*"

set test "fuser with no arguments"
spawn $fuser
expect_pass "$test" "^No process specification given\\s*Usage: fuser"

set test "fuser no args, no proc"
spawn $fuser $test_file
expect_nothing "$test"

set test "fuser -a no proc"
spawn $fuser -a $test_file
expect_pass "$test" "^${test_file}:\\s*$"

set test "fuser -v, no proc"
spawn $fuser $test_file
expect_nothing "$test"

set test "fuser -av, no proc"
spawn $fuser -av $test_file
expect_pass "$test" "^${verbose_header}${test_file}:\\s*$"

set test "fuser -va, no proc"
spawn $fuser -av $test_file
expect_pass "$test" "^${verbose_header}${test_file}:\\s*$"

set test "fuser -l"
spawn $fuser -l
expect_pass "$test" "^(\[A-Z12\]+\\s*)+$"

# Create test process to make named unix socket
# Needs a sleep otherwise the socket won't be
# available before the file exists comes along
set testsocket_path [ exec mktemp -u -p /tmp ]
make_socketproc ${testsocket_path}
sleep 1

if {[file exists ${testsocket_path} ]} {
  set test "fuser find socket from path"
  spawn sh -c "$fuser -v $testsocket_path"
  expect_pass "$test" "$socketproc_pid F"

  set test "fuser find socket from mount"
  spawn sh -c "$fuser -mv /tmp"
  expect_pass "$test" "$socketproc_pid F"
} else {
  unsupported "fuser tests using named sockets"
}
kill_socketproc