diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-01-01 12:08:33 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-01-01 12:08:33 +0300 |
| commit | 2f83b8eee104394081b11015b81bd19c0202ad08 (patch) | |
| tree | abc35e8bc144fd2edf5f8e5b83e7eedc9fa61886 /tests | |
| parent | tests/common.scm (start-server/exec): Close output pipe (diff) | |
| download | guile-ssh-2f83b8eee104394081b11015b81bd19c0202ad08.tar.gz | |
tests/shell.scm ("command-available?"): New TC
* tests/shell.scm ("command-available?"): New TC
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/shell.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/shell.scm b/tests/shell.scm index 3561010..b0acb08 100644 --- a/tests/shell.scm +++ b/tests/shell.scm @@ -66,6 +66,14 @@ (and (zero? exit-code) (string=? (car result) "which 'uname'")))))))) +(test-assert-with-log "command-available?" + (run-client-test + start-server/exec + (lambda () + (call-with-connected-session/shell + (lambda (session) + (command-available? session "guile")))))) + (test-assert-with-log "fallback-pgrep" (run-client-test start-server/exec |