(defun sacha/test-emacs-wiki (branch version)
  "Set up a testing environment for emacs-wiki--BRANCH--patch-VERSION."
  (interactive)
  (cd "/home/sacha/tmp")
  (shell-command "rm -rf testing")
  (shell-command
   (concat "tla get emacs-wiki--" (or branch "stable")
           "--1.0--patch-" version " testing"))
  (cd "testing")
  (add-to-list 'load-path "/home/sacha/tmp/testing")
  (find-file-other-window "/home/sacha/tmp/testing")
  (other-window 1)
  (require 'emacs-wiki)
  (emacs-wiki-find-file "WelcomePage"))

(defun sacha/test-planner
  (branch version &optional emacs-wiki-branch emacs-wiki-version)
  "Set up a testing environment for planner--BRANCH--patch-VERSION.
If EMACS-WIKI-BRANCH and EMACS-WIKI-VERSION are specified, use those."
  (interactive)
  (cd "/home/sacha/tmp")
  (shell-command "rm -rf testing")
  (make-directory "testing")
  (cd testing)
  (shell-command
   (concat "tla get emacs-wiki--" (or emacs-wiki-branch "stable")
           "--1.0"
           (if emacs-wiki-version
               (concat "--patch-" emacs-wiki-version)
             "")
           " emacs-wiki"))
  (shell-command
   (concat "tla get planner--" (or branch "stable")
           "--1.0"
           (if emacs-wiki-version
               (concat "--patch-" version)
             "")
           " planner"))
  (add-to-list 'load-path "/home/sacha/tmp/testing/emacs-wiki")
  (add-to-list 'load-path "/home/sacha/tmp/testing/planner")
  (find-file-other-window "/home/sacha/tmp/testing/planner")
  (other-window 1)
  (find-file "/home/sacha/tmp/testing/planner/planner.el")
  (require 'planner))