From 2a69cc88e868653e89cf0c9de6c4e48cb790511a Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 13 Jul 2021 07:33:06 -0700 Subject: tests: guix fixes. * tests/002/query-1.txr: Skip test if an executable /bin/sh doesn't exist, rather than the bogus reasons. * tests/010/json.tl: Change the condition for the command-put-json tests: not whether cat is found in the search path but whether /bin/sh exists and is executable. * tests/017/realpath.tl: Also quit if /usr/bin doesn't exist. * tests/018/path-test.tl: Exit succesfully if /bin/sh does not exist. Revert the earlier change. * tests/018/process.tl: Quit if no executable /bin/sh exists. --- tests/010/json.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests/010/json.tl') diff --git a/tests/010/json.tl b/tests/010/json.tl index a0085000..a7a73623 100644 --- a/tests/010/json.tl +++ b/tests/010/json.tl @@ -149,7 +149,7 @@ (file-put-jsons name '(1.0 t null)) t (file-get-jsons name) (1.0 t null) (file-get-string name) "1\ntrue\nnull\n") - (if (path-search "cat") + (if (path-executable-to-me-p "/bin/sh") (mtest (command-put-json `cat > @name` #(#() #())) t (file-get-string name) "[[],[]]\n" -- cgit v1.2.3