hitode909の日記

趣味はマリンスポーツですの日記です

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を入れた時期によってあったりなかったりするみたい,シンボリックリンクはったら動いた.