testsuite/pslog.test/pslog.exp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#
# 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"
}