From 2f83b8eee104394081b11015b81bd19c0202ad08 Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Sun, 1 Jan 2017 12:08:33 +0300
Subject: tests/shell.scm ("command-available?"): New TC

* tests/shell.scm ("command-available?"): New TC
---
 tests/shell.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'tests')

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
-- 
cgit v1.2.3