>>594 で言ってたやつを実装してみた
http://paste.lisp.org/display/141112

M-x scratch-test-add で eval-expression の履歴を選んでテストを登録、
M-x scratch-test-run で登録してあるテストを全て実行。
登録したテストは *Scratch test of バッファ名* って名前のバッファに羅列されているから
適当に編集してテストのたたき台にするなり使い捨てるなり。