Add pye-test-make-environment-with-non-existing-command

Author: tkf

python-environment.el

@@ -63,11 +63,13 @@
 If VIRTUALENV (list of string) is specified, it is used instead of
 `python-environment-virtualenv'."
  (let ((path (convert-standard-filename (expand-file-name
- (or root python-environment-root)))))
+ (or root python-environment-root))))
+ (virtualenv (or virtualenv python-environment-virtualenv)))
+ (unless (executable-find (car virtualenv))
+ (error "Program named %S does not exist." (car virtualenv)))
  (python-environment--deferred-process
  (format "Making virtualenv at %s" path)
- (append (or virtualenv python-environment-virtualenv)
- (list path)))))
+ (append virtualenv (list path)))))
 
 (defun python-environment-exists-p (&optional root)
  "Return non-`nil' if virtualenv at ROOT exists."

test-python-environment.el

@@ -83,6 +83,9 @@ variable can be given as ENVIRONMENT (see `pye-with-mixed-environment')."
  (error "Subprocess terminated with code %S.\nOutput:\n%s"
  code (buffer-string)))))))))
 
+(pye-deftest pye-test-make-environment-with-non-existing-command ()
+ (should-error (python-environment-make nil '("non-existing-command"))))
+
 (pye-deftest pye-test-make-environment ()
  (deferred:sync! (python-environment-make)))