テスト駆動開発

偉い人はいいました。「テストの開発をコードの開発よりもさきに行うべきである」。というわけで、まずはテストケースを書いてみました。次はこのテストを通るように実装を書いていけばいいのだね。

追記

ちょっとお役立ちなモジュールできた。これで統一されたインターフェースから情報を引っ張ってこれる。TDDのありがたみはやってみて初めてよく分かるなぁ。

use aliased 'Evangeline::Util::Image';
my $img = Image->new($_) or die $!;

my $orig_name = $img->name;
my $id = $img->digest('SHA-256');
my $md5 = $img->digest('MD5');
my ($width, $height, $size, $ext) = $img->get(qw/width height size ext/);
# ひとつずつでもできる。
# my $width = $img->get('width');
# my $height = $img->get('height');
# my $size = $img->get('size');
# my $ext = $img->get('ext');