diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-01-04 10:45:58 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-01-04 10:45:58 +0300 |
| commit | ab34badd6219dc923d315ee1c3eaca594df33ad5 (patch) | |
| tree | b6e21fb15254bae0b16bbfa2d94ed11b25c03f1e /tests | |
| parent | doc/guile-ssh.texi: Update copyright dates (diff) | |
| download | guile-ssh-ab34badd6219dc923d315ee1c3eaca594df33ad5.tar.gz | |
tests/shell.scm ("pgrep"): New TC
* tests/shell.scm ("pgrep"): New test case.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/shell.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/shell.scm b/tests/shell.scm index b41223a..c06b172 100644 --- a/tests/shell.scm +++ b/tests/shell.scm @@ -66,6 +66,18 @@ (and (zero? exit-code) (string=? (car result) "which 'uname'")))))))) +(test-assert-with-log "pgrep" + (run-client-test + start-server/exec + (lambda () + (call-with-connected-session/shell + (lambda (session) + (receive (result exit-code) + (pgrep session "guile --listen=37146" #:full? #t) + (and (zero? exit-code) + (string=? "pgrep -f 'guile --listen=37146'" + (car result))))))))) + (test-assert-with-log "command-available?" (run-client-test start-server/exec |