(test-begin "shell")

(test-equal "Linux\n" (shell "uname"))
(test-equal 0 (shell-exit-code))

(test-equal '("Linux") (shell->list "uname"))
(test-equal 0 (shell-exit-code))

(test-equal '(1 2 3) (shell->sexp "echo '(1 2 3)'"))
(test-equal 0 (shell-exit-code))


(test-end "shell")