(import (scheme base)
        (scheme write)
        (scheme file)
        (scheme process-context)
        (retropikzel shell)
        (srfi 64))

(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")