testsuite/fuser.test/fuser.exp

   1 #
   2 # Testsuite for fuser
   3 #
   4 proc cleanup { } {
   5         global test_file
   6         exec rm $test_file
   7 }
   8
   9 set fuser "${topdir}src/fuser"
  10 set test_file [ exec mktemp ]
  11
  12 set verbose_header "\\s+USER\\s+PID ACCESS COMMAND\\s*"
  13
  14 set test "fuser with no arguments"
  15 spawn $fuser
  16 expect_pass "$test" "^No process specification given\\s*Usage: fuser"
  17
  18 set test "fuser no args, no proc"
  19 spawn $fuser $test_file
  20 expect_nothing "$test"
  21
  22 set test "fuser -a no proc"
  23 spawn $fuser -a $test_file
  24 expect_pass "$test" "^${test_file}:\\s*$"
  25
  26 set test "fuser -v, no proc"
  27 spawn $fuser $test_file
  28 expect_nothing "$test"
  29
  30 set test "fuser -av, no proc"
  31 spawn $fuser -av $test_file
  32 expect_pass "$test" "^${verbose_header}${test_file}:\\s*$"
  33
  34 set test "fuser -va, no proc"
  35 spawn $fuser -av $test_file
  36 expect_pass "$test" "^${verbose_header}${test_file}:\\s*$"
  37
  38 set test "fuser -l"
  39 spawn $fuser -l
  40 expect_pass "$test" "^(\[A-Z12\]+\\s*)+$"
  41
  42