perlでテストファースト - 高知ではたらくひとのブログ
私のperlのテスト環境について書いてみます。 perlスクリプトのテストには、Test::Moreモジュールを使っています。 使い方はこんな感じ。 Module.t use strict; use Test::More 'no_plan'; BEGIN{ use_ok('Module')}; my $r = Module->new; is ref($r), 'Module', 'ref'; # Module->newのクラスがModuleであればOK is $r->add(2,5), 5, 'add'; # add(2,5)をコールして5が返ってくればOK テストファイルが一杯できると、ひとつづつテストするのが面倒くさくなります。 そこで、以下のようなスクリプトを書いてテストをまとめて行うようにしています。 ちなみに、ここで使っているTest::Harnessモジュールは、Test::M
無精で短気で傲慢なプログラマ find には sh!
ウノウラボ Unoh Labs: コマンドラインで作業する上で知っておくといいテクニック% find . -name '*~' -exec rm {} \; 404 Blog Not Found:勝手に添削 - find(1)% find . -type f -name '*~' | xargs rm % find . -type f -name '*~' | perl -nle unlink わたしなら% find . -type f -name '*~' | sed 's/^/rm /'で確認し、OK なら% find . -type f -name '*~' | sed 's/^/rm /' | shで消します。 いまどき fork/exec rm のオーバーヘッドがどれほどのものか。 xargs を使うとき、rm が 1回だけ実行されるときと、ARG_MAX を超えたときに rm
Java におけるコード進化パターン (Code Evolution Patterns in Java)
Java におけるコード進化パターン (Code Evolution Patterns in Java) asato shimotaki <asatohan at gmail.com> 最終更新日 : 2009/6/21 (2004/4/22 より) [...] For twenty years, I spent two or three hours a day looking at pairs of things -- buildings, tiles, stones, windows, carpets, figures, carvings of flowers, paths, seats, funiture, streets, paintings, fountains, doorways, arches, friezes -- comparing them, and asking my
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://www.removabletype.net/programming/perl_test_more.html
http://www.removabletype.net/programming/perl_corelist.html
