Skip to content
Snippets Groups Projects
Commit 33c55556 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Add a quick test for run-shell-command returning status.

parent 26aafe41
No related branches found
No related tags found
No related merge requests found
;;; -*- Lisp -*-
(load "script-support")
(load-asdf)
;;; test asdf run-shell-command function
;;; Stas Bokuraev found (and fixed) a bug where on clisp asdf:run-shell-command might not return
;;; the right value. This attemtps to test for that.
(quit-on-error
(assert (eql 1 (asdf:run-shell-command "/usr/bin/false")))
(assert (eql 0 (asdf:run-shell-command "/usr/bin/true"))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment