モダンPerl連載第29回
今回は前回、前々回の続きにあたる、ファイル探索型のテストとTest::Baseについて。本当は今回でテスト話はおしまいにするつもりでいたのですが、あんまり詰め込みすぎてもどうかと思ったのと、今週末から来週の頭にかけてPerl QAチームのハッカソンがあるので、その成果も盛り込みたいという思惑とで、話を半分に分けてみた次第。Test::BaseについてはPodパーサあたりを題材にもっと素直なフィルタのテスト例も入れておいた方がよかったのかな。こんな感じで。
use strict;
use warnings;
use Test::Base;
use Pod::POM;
use Pod::POM::View::HTML;
sub pod2html {
my $pom = Pod::POM->new->parse_text(shift);
Pod::POM::View::HTML->print($pom);
}
__END__
=== head1
--- input pod2html
=pod
=head1 NAME
Foo::Bar - brief description of the module
=cut
--- expected
<html>
<body bgcolor="#ffffff">
<h1>NAME</h1>
<p>Foo::Bar - brief description of the module</p>
</body>
</html>ともあれ今週末はハッカソンあわせでModule::Installまわりの残タスクをいくつか片付ける予定なので、気になっている問題がある方はRTにチケット切っておいてください。Shibuya.pm＠台湾の準備もあるので次回の連載記事掲載はゴールデンウィーク期間中になる見込みです。
