# # Testsuite for pslog # set pslog "${topdir}src/pslog" set fake_pid "27000" set test "pslog with no arguments" spawn $pslog expect_pass "$test" "^Usage: pslog PID\\.\\.\\." set test "pslog pid not found" if { [ file exists "/proc/$fake_pid" ] } { untested "$test (PID exists)" } else { spawn $pslog ${fake_pid} expect_pass "$test" "opendir: No such file or directory" }