clone_output "$toolpath version $version\n"
}
-proc fuser_version {} { psmisc_v_version fuser }
+proc fuser_version {} { psmisc_v_version fuser }
proc killall_version {} { psmisc_v_version killall }
-proc pslog_version {} { psmisc_v_version pslog }
+proc pslog_version {} { psmisc_v_version pslog }
+proc prtstat_version {} { psmisc_v_version prtstat }
proc expect_pass { testname reg } {
expect {
--- /dev/null
+#
+# Testsuite for prtstat
+#
+
+set prtstat "${topdir}src/prtstat"
+set fake_pid "27000"
+
+set test "prtstat with no arguments"
+spawn $prtstat
+expect_pass "$test" "^You must provide at least one PID\."
+
+set test "prtstat pid not found"
+if { [ file exists "/proc/$fake_pid" ] } {
+ untested "$test (PID exists)"
+} else {
+ spawn $prtstat ${fake_pid}
+ expect_pass "$test" "^Process with pid $fake_pid does not exist\."
+}
expect_pass "$test" "^Usage: pslog PID\\.\\.\\."
set test "pslog pid not found"
-spawn $pslog ${fake_pid}
-expect_pass "$test" "opendir: No such file or directory"
+if { [ file exists "/proc/$fake_pid" ] } {
+ untested "$test (PID exists)"
+} else {
+ spawn $pslog ${fake_pid}
+ expect_pass "$test" "opendir: No such file or directory"
+}