pyvenv-1.10/0000755000175000017500000000000013054033515012613 5ustar dogslegdogslegpyvenv-1.10/Makefile0000644000175000017500000000146413054033515014260 0ustar dogslegdogsleg.PHONY: all test test-all cask EMACS ?= emacs VERSION=$(shell sed -ne 's/^;; Version: \(.*\)/\1/p' pyvenv.el) all: test test: cask exec ert-runner --quiet test-all: clean cask cask exec ert-runner --quiet EMACS=emacs-24.1 cask exec ert-runner --quiet EMACS=emacs-24.2 cask exec ert-runner --quiet EMACS=emacs-24.3 cask exec ert-runner --quiet EMACS=emacs-24.4 cask exec ert-runner --quiet EMACS=emacs-24.5 cask exec ert-runner --quiet cask: cask install EMACS=emacs-24.1 cask install EMACS=emacs-24.2 cask install EMACS=emacs-24.3 cask install EMACS=emacs-24.4 cask install EMACS=emacs-24.5 cask install compile: $(EMACS) -batch -L . -f batch-byte-compile *.el release: clean test-all mkdir -p "dist" cp pyvenv.el "dist/pyvenv-$(VERSION).el" clean: rm -rf .cask dist find -name '*.elc' -delete pyvenv-1.10/Cask0000644000175000017500000000027113054033515013417 0ustar dogslegdogsleg(source gnu) (source melpa) (package "pyvenv" "1.1" "Python virtualenv support for Emacs") (package-file "pyvenv.el") (development (depends-on "ert-runner") (depends-on "mocker")) pyvenv-1.10/README.md0000644000175000017500000000244113054033515014073 0ustar dogslegdogsleg# pyvenv.el, Python virtual environment support for Emacs ![Travis-CI Build Status](https://secure.travis-ci.org/jorgenschaefer/pyvenv.png) [![MELPA Stable](http://stable.melpa.org/packages/pyvenv-badge.svg)](http://stable.melpa.org/#/pyvenv) This is a simple global minor mode which will replicate the changes done by virtualenv activation inside Emacs. The main entry points are `pyvenv-activate`, which queries the user for a virtual environment directory to activate, and `pyvenv-workon`, which queries for a virtual environment in `$WORKON_HOME` (from virtualenvwrapper.sh). ## Similar Projects [virtualenv.el](https://github.com/aculich/virtualenv.el) is the original virtualenv implementation for Emacs. I used it for a long time, but didn’t like some of the design decisions. For example, it does not modify `process-environment` so does not set a virtual environment for `M-x compile` and other external processes. Also, `M-x virtualenv-workon` requires a prefix argument to actually change the current virtual environment. And it does not support virtualenvwrapper’s hooks, which I use to set up a working environment. All in all, too much magic for too little gain. So I figured I’d write my own. Still, it’s an excellent package and I’m very grateful to have used it for a long time. pyvenv-1.10/pyvenv.el0000644000175000017500000004373513054033515014500 0ustar dogslegdogsleg;;; pyvenv.el --- Python virtual environment interface -*- lexical-binding: t -*- ;; Copyright (C) 2013-2017 Jorgen Schaefer ;; Author: Jorgen Schaefer ;; URL: http://github.com/jorgenschaefer/pyvenv ;; Version: 1.10 ;; Keywords: Python, Virtualenv, Tools ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License ;; as published by the Free Software Foundation; either version 3 ;; of the License, or (at your option) any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see . ;;; Commentary: ;; This is a simple global minor mode which will replicate the changes ;; done by virtualenv activation inside Emacs. ;; The main entry points are `pyvenv-activate', which queries the user ;; for a virtual environment directory to activate, and ;; `pyvenv-workon', which queries for a virtual environment in ;; $WORKON_HOME (from virtualenvwrapper.sh). ;; If you want your inferior Python processes to be restarted ;; automatically when you switch your virtual environment, add ;; `pyvenv-restart-python' to `pyvenv-post-activate-hooks'. ;;; Code: (require 'json) ;; User customization (defgroup pyvenv nil "Python Virtual Environment Interface." :prefix "pyvenv-" :group 'languages) (defcustom pyvenv-workon nil "The intended virtualenv in the virtualenvwrapper directory. This is rarely useful to set globally. Rather, set this in file- or directory-local variables using \\[add-file-local-variable] or \\[add-dir-local-variable]. When `pyvenv-mode' is enabled, pyvenv will switch to this virtualenv. If a virtualenv is already enabled, it will ask first." :type 'pyvenv-workon :safe #'stringp :group 'pyvenv) (defcustom pyvenv-activate nil "The intended virtualenv directory. This is rarely useful to set globally. Rather, set this in file- or directory-local variables using \\[add-file-local-variable] or \\[add-dir-local-variable]. When `pyvenv-mode' is enabled, pyvenv will switch to this virtualenv. If a virtualenv is already enabled, it will ask first." :type 'directory :safe #'stringp :group 'pyvenv) (defcustom pyvenv-tracking-ask-before-change nil "Non-nil means pyvenv will ask before automatically changing a virtualenv. This can happen when a new file is opened with a buffer-local value (from file-local or directory-local variables) for `pyvenv-workon' or `pyvenv-workon', or if `pyvenv-tracking-mode' is active, after every command." :type 'boolean :group 'pyvenv) (defcustom pyvenv-virtualenvwrapper-python (or (getenv "VIRTUALENVWRAPPER_PYTHON") (executable-find "python") "python") "The python process which has access to the virtualenvwrapper module. This should be $VIRTUALENVWRAPPER_PYTHON outside of Emacs, but virtualenvwrapper.sh does not export that variable. We make an educated guess, but that can be off." :type '(file :must-match t) :safe #'file-directory-p :group 'pyvenv) ;; API for other libraries (defvar pyvenv-virtual-env nil "The current virtual environment. Do not set this variable directly; use `pyvenv-activate' or `pyvenv-workon'.") (defvar pyvenv-virtual-env-name nil "The name of the current virtual environment. This is usually the base name of `pyvenv-virtual-env'.") (defvar pyvenv-pre-activate-hooks nil "Hooks run before a virtual environment is activated. `pyvenv-virtual-env' is already set.") (defvar pyvenv-post-activate-hooks nil "Hooks run after a virtual environment is activated. `pyvenv-virtual-env' is set.") (defvar pyvenv-pre-deactivate-hooks nil "Hooks run before a virtual environment is deactivated. `pyvenv-virtual-env' is set.") (defvar pyvenv-post-deactivate-hooks nil "Hooks run after a virtual environment is deactivated. `pyvenv-virtual-env' is still set.") (defvar pyvenv-mode-line-indicator '(pyvenv-virtual-env-name ("[" pyvenv-virtual-env-name "] ")) "How `pyvenv-mode' will indicate the current environment in the mode line.") ;; Internal code. (defvar pyvenv-old-process-environment nil "The old process environment before the last activate.") (defvar pyvenv-old-exec-path nil "The old exec path before the last activate.") ;;;###autoload (defun pyvenv-activate (directory) "Activate the virtual environment in DIRECTORY." (interactive "DActivate venv: ") (setq directory (expand-file-name directory)) (pyvenv-deactivate) (setq pyvenv-virtual-env (file-name-as-directory directory) pyvenv-virtual-env-name (file-name-nondirectory (directory-file-name directory)) python-shell-virtualenv-path directory python-shell-virtualenv-root directory) ;; Preserve variables from being overwritten. (let ((old-exec-path exec-path) (old-process-environment process-environment)) (unwind-protect (pyvenv-run-virtualenvwrapper-hook "pre_activate" pyvenv-virtual-env) (setq exec-path old-exec-path process-environment old-process-environment))) (run-hooks 'pyvenv-pre-activate-hooks) (let ((new-directories (append ;; Unix (when (file-exists-p (format "%s/bin" directory)) (list (format "%s/bin" directory))) ;; Windows (when (file-exists-p (format "%s/Scripts" directory)) (list (format "%s/Scripts" directory)))))) (setq pyvenv-old-exec-path exec-path pyvenv-old-process-environment process-environment ;; For some reason, Emacs adds some directories to `exec-path' ;; but not to `process-environment'? exec-path (append new-directories exec-path) process-environment (append (list (format "VIRTUAL_ENV=%s" directory) (format "PATH=%s" (mapconcat 'identity (append new-directories (split-string (getenv "PATH") path-separator)) path-separator)) ;; No "=" means to unset "PYTHONHOME") process-environment) )) (pyvenv-run-virtualenvwrapper-hook "post_activate") (run-hooks 'pyvenv-post-activate-hooks)) ;;;###autoload (defun pyvenv-deactivate () "Deactivate any current virtual environment." (interactive) (when pyvenv-virtual-env (pyvenv-run-virtualenvwrapper-hook "pre_deactivate") (run-hooks 'pyvenv-pre-deactivate-hooks)) (when pyvenv-old-process-environment (setq process-environment pyvenv-old-process-environment pyvenv-old-process-environment nil)) (when pyvenv-old-exec-path (setq exec-path pyvenv-old-exec-path pyvenv-old-exec-path nil)) (when pyvenv-virtual-env ;; Make sure this does not change `exec-path', as $PATH is ;; different (let ((old-exec-path exec-path) (old-process-environment process-environment)) (unwind-protect (pyvenv-run-virtualenvwrapper-hook "post_deactivate" pyvenv-virtual-env) (setq exec-path old-exec-path process-environment old-process-environment))) (run-hooks 'pyvenv-post-deactivate-hooks)) (setq pyvenv-virtual-env nil pyvenv-virtual-env-name nil python-shell-virtualenv-root nil python-shell-virtualenv-path nil)) (defvar pyvenv-workon-history nil "Prompt history for `pyvenv-workon'.") ;;;###autoload (defun pyvenv-workon (name) "Activate a virtual environment from $WORKON_HOME." (interactive (list (completing-read "Work on: " (pyvenv-virtualenv-list) nil t nil 'pyvenv-workon-history nil nil))) (when (not (or (equal name "") ;; Some completion frameworks can return nil for the ;; default, see ;; https://github.com/jorgenschaefer/elpy/issues/144 (equal name nil))) (pyvenv-activate (format "%s/%s" (pyvenv-workon-home) name)))) (defun pyvenv-virtualenv-list (&optional noerror) "Prompt the user for a name in $WORKON_HOME. If NOERROR is set, do not raise an error if WORKON_HOME is not configured." (let ((workon-home (pyvenv-workon-home)) (result nil)) (if (not (file-directory-p workon-home)) (when (not noerror) (error "Can't find a workon home directory, set $WORKON_HOME")) (dolist (name (directory-files workon-home)) (when (or (file-exists-p (format "%s/%s/bin/activate" workon-home name)) (file-exists-p (format "%s/%s/Scripts/activate.bat" workon-home name))) (setq result (cons name result)))) (sort result (lambda (a b) (string-lessp (downcase a) (downcase b))))))) (define-widget 'pyvenv-workon 'choice "Select an available virtualenv from virtualenvwrapper." :convert-widget (lambda (widget) (setq widget (widget-copy widget)) (widget-put widget :args (cons '(const :tag "None" nil) (mapcar (lambda (env) (list 'const env)) (pyvenv-virtualenv-list t)))) (widget-types-convert-widget widget)) :prompt-value (lambda (widget prompt value unbound) (let ((name (completing-read prompt (cons "None" (pyvenv-virtualenv-list t)) nil t))) (if (equal name "None") nil name)))) (defvar pyvenv-mode-map (make-sparse-keymap) "The mode keymap for `pyvenv-mode'.") (easy-menu-define pyvenv-menu pyvenv-mode-map "Pyvenv Menu" '("Virtual Envs" :visible pyvenv-mode ("Workon" :help "Activate a virtualenvwrapper environment" :filter (lambda (&optional ignored) (mapcar (lambda (venv) (vector venv `(pyvenv-workon ,venv) :style 'radio :selected `(equal pyvenv-virtual-env-name ,venv))) (pyvenv-virtualenv-list t)))) ["Activate" pyvenv-activate :help "Activate a virtual environment by directory"] ["Deactivate" pyvenv-deactivate :help "Deactivate the current virtual environment" :active pyvenv-virtual-env :suffix pyvenv-virtual-env-name] ["Restart Python Processes" pyvenv-restart-python :help "Restart all Python processes to use the current environment"])) ;;;###autoload (define-minor-mode pyvenv-mode "Global minor mode for pyvenv. Will show the current virtualenv in the mode line, and respect a `pyvenv-workon' setting in files." :global t (cond (pyvenv-mode (add-to-list 'mode-line-misc-info '(pyvenv-mode pyvenv-mode-line-indicator)) (add-hook 'hack-local-variables-hook #'pyvenv-track-virtualenv)) ((not pyvenv-mode) (setq mode-line-misc-info (delete '(pyvenv-mode pyvenv-mode-line-indicator) mode-line-misc-info)) (remove-hook 'hack-local-variables-hook #'pyvenv-track-virtualenv)))) ;;;###autoload (define-minor-mode pyvenv-tracking-mode "Global minor mode to track the current virtualenv. When this mode is active, pyvenv will activate a buffer-specific virtualenv whenever the user switches to a buffer with a buffer-local `pyvenv-workon' or `pyvenv-activate' variable." :global t (if pyvenv-tracking-mode (add-hook 'post-command-hook 'pyvenv-track-virtualenv) (remove-hook 'post-command-hook 'pyvenv-track-virtualenv))) (defun pyvenv-track-virtualenv () "Set a virtualenv as specified for the current buffer. If either `pyvenv-activate' or `pyvenv-workon' are specified, and they specify a virtualenv different from the current one, switch to that virtualenv." (cond (pyvenv-activate (when (and (not (equal (file-name-as-directory pyvenv-activate) pyvenv-virtual-env)) (or (not pyvenv-tracking-ask-before-change) (y-or-n-p (format "Switch to virtualenv %s (currently %s)" pyvenv-activate pyvenv-virtual-env)))) (pyvenv-activate pyvenv-activate))) (pyvenv-workon (when (and (not (equal pyvenv-workon pyvenv-virtual-env-name)) (or (not pyvenv-tracking-ask-before-change) (y-or-n-p (format "Switch to virtualenv %s (currently %s)" pyvenv-workon pyvenv-virtual-env-name)))) (pyvenv-workon pyvenv-workon))))) (defun pyvenv-run-virtualenvwrapper-hook (hook &rest args) "Run a virtualenvwrapper hook, and update the environment. This will run a virtualenvwrapper hook and update the local environment accordingly. CAREFUL! This will modify your `process-environment' and `exec-path'." (when (pyvenv-virtualenvwrapper-supported) (with-temp-buffer (let ((tmpfile (make-temp-file "pyvenv-virtualenvwrapper-"))) (unwind-protect (progn (apply #'call-process pyvenv-virtualenvwrapper-python nil t nil "-c" "from virtualenvwrapper.hook_loader import main; main()" "--script" tmpfile (if (getenv "HOOK_VERBOSE_OPTION") (cons (getenv "HOOK_VERBOSE_OPTION") (cons hook args)) (cons hook args))) (call-process-shell-command (format ". '%s' ; python -c 'import os, json; print(\"\\n=-=-=\"); print(json.dumps(dict(os.environ)))'" tmpfile) nil t nil)) (delete-file tmpfile))) (goto-char (point-min)) (when (and (not (re-search-forward "\\(ImportError\\|ModuleNotFoundError\\): No module named '?virtualenvwrapper'?" nil t)) (re-search-forward "\n=-=-=\n" nil t)) (let ((output (buffer-substring (point-min) (match-beginning 0)))) (when (> (length output) 0) (with-help-window "*Virtualenvwrapper Hook Output*" (with-current-buffer "*Virtualenvwrapper Hook Output*" (let ((inhibit-read-only t)) (erase-buffer) (insert (format "Output from the virtualenvwrapper hook %s:\n\n" hook) output)))))) (dolist (binding (json-read)) (let ((env (format "%s=%s" (car binding) (cdr binding)))) (when (not (member env process-environment)) (setq process-environment (cons env process-environment)))) (when (eq (car binding) 'PATH) (setq exec-path (split-string (cdr binding) path-separator)))))))) ;;;###autoload (defun pyvenv-restart-python () "Restart Python inferior processes." (interactive) (dolist (buf (buffer-list)) (with-current-buffer buf (when (and (eq major-mode 'inferior-python-mode) (get-buffer-process buf)) (let ((cmd (combine-and-quote-strings (process-command (get-buffer-process buf)))) (dedicated (if (string-match "\\[.*\\]$" (buffer-name buf)) t nil)) (show nil)) (delete-process (get-buffer-process buf)) (goto-char (point-max)) (insert "\n\n" "###\n" (format "### Restarting in virtualenv %s (%s)\n" pyvenv-virtual-env-name pyvenv-virtual-env) "###\n" "\n\n") (run-python cmd dedicated show) (goto-char (point-max))))))) (defun pyvenv-hook-dir () "Return the current hook directory. This is usually the value of $VIRTUALENVWRAPPER_HOOK_DIR, but virtualenvwrapper has stopped exporting that variable, so we go back to the default of $WORKON_HOME or even just ~/.virtualenvs/." (or (getenv "VIRTUALENVWRAPPER_HOOK_DIR") (pyvenv-workon-home))) (defun pyvenv-workon-home () "Return the current workon home. This is the value of $WORKON_HOME or ~/.virtualenvs." (or (getenv "WORKON_HOME") (expand-file-name "~/.virtualenvs"))) (defun pyvenv-virtualenvwrapper-supported () "Return true iff virtualenvwrapper is supported. Right now, this just checks if WORKON_HOME is set." (getenv "WORKON_HOME")) ;;; Compatibility (when (not (fboundp 'file-name-base)) ;; Emacs 24.3 (defun file-name-base (&optional filename) "Return the base name of the FILENAME: no directory, no extension. FILENAME defaults to `buffer-file-name'." (file-name-sans-extension (file-name-nondirectory (or filename (buffer-file-name))))) ) (when (not (boundp 'mode-line-misc-info)) (defvar mode-line-misc-info nil "Compatibility variable for 24.3+") (let ((line mode-line-format)) (while line (when (eq 'which-func-mode (car-safe (car-safe (cdr line)))) (setcdr line (cons 'mode-line-misc-format (cdr line))) (setq line (cdr line))) (setq line (cdr line))))) (provide 'pyvenv) ;;; pyvenv.el ends here pyvenv-1.10/.gitignore0000644000175000017500000000000613054033515014577 0ustar dogslegdogsleg.cask pyvenv-1.10/test/0000755000175000017500000000000013054033515013572 5ustar dogslegdogslegpyvenv-1.10/test/pyvenv-deactivate-test.el0000644000175000017500000000322713054033515020533 0ustar dogslegdogsleg(ert-deftest pyvenv-deactivate () "Should set variables back to the original values." (let* ((process-environment process-environment) (exec-path exec-path) (orig-process-environment process-environment) (orig-exec-path exec-path) (pre-deactivate-venv nil) (post-deactivate-venv nil) (pyvenv-pre-deactivate-hooks (list (lambda () (setq pre-deactivate-venv pyvenv-virtual-env)))) (pyvenv-post-deactivate-hooks (list (lambda () (setq post-deactivate-venv pyvenv-virtual-env))))) (with-temp-virtualenv venv1 (pyvenv-activate venv1) (pyvenv-deactivate) (should (f-same? pre-deactivate-venv venv1)) (should (f-same? post-deactivate-venv venv1)) (should (equal process-environment orig-process-environment)) (should (equal exec-path orig-exec-path)) (should (equal pyvenv-virtual-env nil)) (should (equal pyvenv-virtual-env-name nil)) (with-temp-virtualenv venv2 ;; Should retain the originals, too. (pyvenv-activate venv1) (pyvenv-activate venv2) (pyvenv-deactivate) ;; Called for both, but the last one was for the second (should (f-same? pre-deactivate-venv venv2)) (should (f-same? post-deactivate-venv venv2)) (should (equal process-environment orig-process-environment)) (should (equal exec-path orig-exec-path)) (should (equal pyvenv-virtual-env nil)) (should (equal pyvenv-virtual-env-name nil)) (should (equal python-shell-virtualenv-root nil)) (should (equal python-shell-virtualenv-path nil)))))) pyvenv-1.10/test/pyvenv-activate-test.el0000644000175000017500000000262413054033515020222 0ustar dogslegdogsleg(ert-deftest pyvenv-activate () "`pyvenv-activate' should set the correct variables." (with-temp-virtualenv tmpdir (let* ((process-environment process-environment) (exec-path exec-path) (pyvenv-virtual-env nil) (pyvenv-virtual-env-name nil) (pyvenv-old-process-environment nil) (pyvenv-old-exec-path nil) (pre-activate-venv nil) (post-activate-venv nil) (pyvenv-pre-activate-hooks (list (lambda () (setq pre-activate-venv pyvenv-virtual-env)))) (pyvenv-post-activate-hooks (list (lambda () (setq post-activate-venv pyvenv-virtual-env))))) (pyvenv-activate tmpdir) (should (f-equal? pre-activate-venv tmpdir)) (should (f-equal? post-activate-venv tmpdir)) (should (f-equal? pyvenv-virtual-env tmpdir)) (should (equal pyvenv-virtual-env-name (file-name-base tmpdir))) (should (equal python-shell-virtualenv-path tmpdir)) (should (equal python-shell-virtualenv-root tmpdir)) (should (equal (getenv "VIRTUAL_ENV") tmpdir)) (should (string-match (format "^%s/bin" (regexp-quote tmpdir)) (getenv "PATH"))) (should (equal (getenv "PYTHONHOME") nil)) (should (member (format "%s/bin" tmpdir) exec-path))))) pyvenv-1.10/test/pyvenv-virtualenv-list-test.el0000644000175000017500000000206213054033515021566 0ustar dogslegdogsleg(ert-deftest pyvenv-virtualenv-list () "Ensure all correct virtualenvs are returned" (with-temp-dir workon-home (let ((process-environment process-environment)) (setq process-environment (cons (format "WORKON_HOME=%s/does-not-exist" workon-home) process-environment)) (should-error (pyvenv-virtualenv-list)) (should (null (pyvenv-virtualenv-list t))) (setq process-environment (cons (format "WORKON_HOME=%s" workon-home) (cdr process-environment))) (should (equal (pyvenv-virtualenv-list) nil)) (make-directory (format "%s/no-venv-dir" workon-home)) (write-region "" nil (format "%s/no-venv-file" workon-home)) (dolist (name '("venv-a" "venv-B" "venv-C")) (make-directory (format "%s/%s" workon-home name)) (make-directory (format "%s/%s/bin" workon-home name)) (write-region "" nil (format "%s/%s/bin/activate" workon-home name))) (should (equal (pyvenv-virtualenv-list) '("venv-a" "venv-B" "venv-C")))))) pyvenv-1.10/test/pyvenv-mode-test.el0000644000175000017500000000122713054033515017344 0ustar dogslegdogsleg(ert-deftest pyvenv-mode-should-add-functions () (with-temp-buffer (pyvenv-mode 1) (should pyvenv-mode) (should (member '(pyvenv-mode pyvenv-mode-line-indicator) mode-line-misc-info)) (should (memq #'pyvenv-track-virtualenv hack-local-variables-hook)))) (ert-deftest pyvenv-mode-should-remove-functions () (with-temp-buffer (pyvenv-mode 1) (pyvenv-mode -1) (should-not pyvenv-mode) (should-not (memq '(pyvenv-mode pyvenv-mode-line-indicator) mode-line-misc-info)) (should-not (memq #'pyvenv-track-virtualenv hack-local-variables-hook)))) pyvenv-1.10/test/pyvenv-hook-dir-test.el0000644000175000017500000000161013054033515020130 0ustar dogslegdogsleg(ert-deftest pyvenv-hook-dir () ;; Should return VIRTUALENVWRAPPER_HOOK_DIR (let ((process-environment (cons "VIRTUALENVWRAPPER_HOOK_DIR=/hook_dir" process-environment))) (should (equal (pyvenv-hook-dir) "/hook_dir"))) ;; Else, should return WORKON_HOME (let ((process-environment (append '("VIRTUALENVWRAPPER_HOOK_DIR" "WORKON_HOME=/workon_home") process-environment))) (should (equal (pyvenv-hook-dir) "/workon_home"))) ;; Else, should return ~/.virtualenvs (let ((process-environment (append '("VIRTUALENVWRAPPER_HOOK_DIR" "WORKON_HOME") process-environment))) (should (equal (pyvenv-hook-dir) (expand-file-name "~/.virtualenvs")))) ) pyvenv-1.10/test/test-helper.el0000644000175000017500000000145013054033515016350 0ustar dogslegdogsleg(require 'f) (add-to-list 'load-path (f-parent (f-dirname (f-this-file)))) (require 'pyvenv) (require 'mocker) ;; Fixing a bug in dflet where it would not work in 24.3.1 for some ;; reason. (when (version= emacs-version "24.3.1") (require 'cl)) (defmacro with-temp-dir (name &rest body) (let ((var (make-symbol "temp-dir"))) `(let* ((,var (make-temp-file "pyvenv-test-" t)) (,name ,var)) (unwind-protect (progn ,@body) (delete-directory ,var t))))) (put 'with-temp-dir 'lisp-indent-function 'defun) (defmacro with-temp-virtualenv (name &rest body) `(with-temp-dir ,name (make-directory (concat ,name "/bin")) (write-region "" nil (concat ,name "/bin/activate")) ,@body)) (put 'with-temp-virtualenv 'lisp-indent-function 'defun) pyvenv-1.10/test/pyvenv-workon-test.el0000644000175000017500000000160513054033515017737 0ustar dogslegdogsleg(ert-deftest pyvenv-workon () ;; Should expand the virtualenv directory then call activate. (mocker-let ((pyvenv-activate (dir) ((:input-matcher (lambda (env) (string-match "/test-env$" env)) :output t)))) (should (pyvenv-workon "test-env"))) ;; Should not activate anything when the user just hits RET. (mocker-let ((pyvenv-activate (dir) ((:min-occur 0 :max-occur 0)))) (should-not (pyvenv-workon ""))) ;; Some completion frameworks can return nil for the default, see ;; https://github.com/jorgenschaefer/elpy/issues/144 (mocker-let ((pyvenv-activate (dir) ((:min-occur 0 :max-occur 0)))) (should-not (pyvenv-workon nil)))) pyvenv-1.10/test/pyvenv-track-virtualenv.el0000644000175000017500000000435613054033515020752 0ustar dogslegdogsleg(ert-deftest pyvenv-track-virtualenv-should-activate-venv-if-none-set () (with-temp-buffer (mocker-let ((pyvenv-activate (env) ((:input '("/test/path"))))) (let ((pyvenv-activate "/test/path") (pyvenv-virtual-env nil)) (pyvenv-track-virtualenv))))) (ert-deftest pyvenv-track-virtualenv-should-ask-if-activate-different-venv () (with-temp-buffer (mocker-let ((pyvenv-activate (env) ((:input '("/test/path")))) (y-or-n-p (arg) ((:input '("Switch to virtual env /test/path (currently /other/path)? ") :output t)))) (let ((pyvenv-activate "/test/path") (pyvenv-virtual-env "/other/path")) (pyvenv-track-virtualenv))))) (ert-deftest pyvenv-track-virtualenv-should-do-nothing-if-activate-same-venv () (with-temp-buffer (let ((pyvenv-activate "/test/path") ;; activate takes precedence over workon (pyvenv-workon "foo") (pyvenv-virtual-env "/test/path")) (pyvenv-track-virtualenv) (should (equal pyvenv-virtual-env "/test/path"))))) (ert-deftest pyvenv-track-virtualenv-should-workon-venv-if-none-set () (with-temp-buffer (mocker-let ((pyvenv-workon (env) ((:input '("test-venv"))))) (let ((pyvenv-workon "test-venv") (pyvenv-virtual-env nil)) (pyvenv-track-virtualenv))))) (ert-deftest pyvenv-track-virtualenv-should-ask-if-workon-different-venv () (with-temp-buffer (mocker-let ((pyvenv-workon (env) ((:input '("test-venv")))) (y-or-n-p (arg) ((:input '("Switch to virtual env test-venv (currently other-venv)? ") :output t)))) (let ((pyvenv-workon "test-venv") (pyvenv-virtual-env "/some/path/other-venv") (pyvenv-virtual-env-name "other-venv")) (pyvenv-track-virtualenv))))) (ert-deftest pyvenv-track-virtualenv-should-do-nothing-if-workon-same-venv () (with-temp-buffer (let ((pyvenv-workon "test-venv") (pyvenv-virtual-env-name "test-venv")) (pyvenv-track-virtualenv) (should (equal pyvenv-virtual-env-name "test-venv"))))) pyvenv-1.10/test/pyvenv-workon-home-test.el0000644000175000017500000000100313054033515020655 0ustar dogslegdogsleg(ert-deftest pyvenv-hook-dir () ;; Else, should return WORKON_HOME (let ((process-environment (cons "WORKON_HOME=/workon_home" process-environment))) (should (equal (pyvenv-workon-home) "/workon_home"))) ;; Else, should return ~/.virtualenvs (let ((process-environment (cons "WORKON_HOME" process-environment))) (should (equal (pyvenv-workon-home) (expand-file-name "~/.virtualenvs")))) ) pyvenv-1.10/.travis.yml0000644000175000017500000000061013054033515014721 0ustar dogslegdogsleglanguage: emacs-lisp sudo: no env: # - EVM_EMACS=emacs-24.1-travis # - EVM_EMACS=emacs-24.2-travis - EVM_EMACS=emacs-24.3-travis - EVM_EMACS=emacs-24.4-travis - EVM_EMACS=emacs-24.5-travis before_install: - curl -fsSkL https://gist.github.com/rejeep/ebcd57c3af83b049833b/raw > travis.sh && source ./travis.sh - evm install $EVM_EMACS --use --skip - cask script: - make test