                    (buffer-file-name))
                   (length (tox-get-root-directory)))))
      ":"
-     current-function)))
+     tox-test))
 
 ;;; Public interface ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 

           tox-default-env))
        (default-directory (tox-get-root-directory))
        (compilation-auto-jump-to-first-error nil)
        (compilation-scroll-output nil))
    (compile (tox-get-command toxenvs)))
  )

;;; End tox.el ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

                      (buffer-file-name) "tox.ini")
                     "./")))

(defun tox-get-command (tox-test &optional envlist)
  "Return the command to launch tests."
    (concat
     tox-program " "
     tox-arg " "
