EmacsからPerlのテストを実行

なんとか.tみたいなファイルでmy-run-testを実行するとpopwinでテストが実行される．コンパイルのバッファは自動でスクロールする．

(defun my-run-test ()
  "テストします"
  (interactive)
  (compile (format "cd  %s; %s -MProject::Libs %s" (replace-regexp-in-string "\n+$" "" (shell-command-to-string "git rev-parse --show-cdup")) (expand-file-name "~/perl5/perlbrew/perls/current/bin/perl") (buffer-file-name (current-buffer)))))

(setq compilation-scroll-output t)

(require 'popwin)
(setq display-buffer-function 'popwin:display-buffer)
(setq popwin:popup-window-height 0.5)

perlbrewを使う前提で，Project::Libsが必要，環境変数とかは適当にシェルと揃えておく．↓ こういうのがたりなかったらどっかに書いておく．

(setenv "DYLD_LIBRARY_PATH" "/usr/local/mysql/lib")

perls/current/bin/perlはperlbrewを入れた時期によってあったりなかったりするみたい，シンボリックリンクはったら動いた．