gihyo.jp » DEVELOPER STAGE » 特集 » Happy Testing Perl » 第2回 Test::Baseの紹介

Happy Testing Perl

第2回 Test::Baseの紹介

モバイルファクトリーの伏原です。 私は今回Test::Baseというモジュールを紹介させてもらいます。

Test::Baseとは

Test::Baseは,Kwikiなどの作者として知られるIngy döt Net氏が作成した“Data Driven Testing Framework(データ駆動型テストフレームワーク)”です。 データ駆動型テストとは何なのか,実際のテストを見て頂くのが一番早いと思うので,早速実際にTest::Baseを使ったテストを書いてみることにします。

今回使うサンプルプログラム

NabeAtzz問題を解くプログラムを作ります。NabeAtzz問題にはいくつかのバリエーションがありますが,今回は以下の条件を満たすもの,と言うことにします。

  • 1からnまでの整数に対して
  • 3の倍数の時は“fool”と出力する
  • 5の倍数の時は“dog”と出力する
  • いずれかの桁に3が含まれる整数の時も“fool”と出力する
  • それ以外の数の場合は整数を“[1]”のように[]で囲って出力する

これを満たすために,とりあえず以下のプログラムを作ってみました。

nabeatzz.pl

#!/usr/bin/perl -Ilib
use strict;
use warnings;

use NabeAtzz;

for my $n (1..$ARGV[0]) {
    print NabeAtzz->shout($n) . "\n";
}

ファイル作成後,

./nabeatzz.pl 20

のように実行すると,1から20までをNabeAtzz問題のルールに則って出力します。このプログラムを見ると,NabeAtzzモジュールのshoutメソッドが正しく動作すれば,プログラム全体が上手く動くことがわかります。ですので,実際にプログラム全体を動かさなくても,NabeAtzzモジュールのshoutメソッドをテストすれば良いことになります。

Test::Baseを使ったテストの書き方

さて,Test::Baseを使ってテストを書いていくわけですが,Test::BaseはTest::Moreで使えるメソッドと同じものをexportしているので,Test::Moreとまったく同じ書き方でテストを書くこともできます。まずは一番簡単な「3と5に関係しない数の時はそのまま数が返る」ことをテストします。

nabeatzz.1.t

use strict;
use warnings;
use Test::Base;

use NabeAtzz;

plan tests => 3;

is(NabeAtzz->shout(1),  '[1]' );
is(NabeAtzz->shout(4),  '[4]' );
is(NabeAtzz->shout(19), '[19]');

まだNabeAtzz.pmを作っていないので,このテストを実行するともちろんエラーになります。まずは,このテストを通るプログラムを書いてみます。

NabeAtzz.pm

package NabeAtzz;
use strict;
use warnings;

sub shout {
    my ($class, $number) = @_;

    return "[$number]";
}


1;

改めて以下のようにテストを実行すると,テストが正常に実行されると思います。

> perl -Ilib t/nabeatzz.1.t
1..3
ok 1
ok 2
ok 3

Test::Baseを使ったテストのスタイル

nabeatzz.1.tをよく見てみると,実は同じようなテストを繰り返していることがわかります。基本的にテストでよくあるパターンは,「関数への一定の入力値に対する出力値を期待した値と比較する」というもので,正常値・異常値・境界値などをチェックするために,入力値と期待値のセットが膨大になり,同じようなテストコードを書くことになります。 必然,コードをコピーアンドペーストなどで複製して修正するような書き方になり,ミスなどで誤ったテストスクリプトを書いてしまう原因になります。 Test::Baseでは,こういったパターンのテストをやりやすくするためのフレームワークです。先ほどのnabeatzz.1.tは,Test::Baseを使った本来のスタイルで書くと以下のように書くことができます。

nabeatzz.2.t

use strict;
use warnings;
use Test::Base;

use NabeAtzz;

plan tests => 1*blocks;

filters {
    input    => [qw/chomp/],
    expected => [qw/chomp/],
};

run {
    my $block = shift;

    is(NabeAtzz->shout($block->input), $block->expected);
};

__END__

=== test 1
--- input
1
--- expected
[1]

=== test 4
--- input
4
--- expected
[4]

=== test 19
--- input
19
--- expected
[19]

スクリプトの行数自体は長くなってしまいましたが,見てのとおり,テストを行うロジックとテストに対して渡す入力値・期待値が完全に分離されています。これであれば単なるテストケースの追加でテストのロジックを壊してしまう心配がなくなります。 では色々と登場した新しい記述について順番に説明していこうと思います。

著者プロフィール

伏原幹(ふしはらかん)

最近体重が105kgを突破したヘビー級プログラマー。PerlやRubyなどでのサーバサイドのプログラムだけでなく,JavaScriptやadobe AIR(ActionScript)などにも手を出したりする。

最近はXIRCDというpluggableなIRC Serverを開発中。

コメント

コメントの記入

パスサポ

多数の情報処理技術者試験対策書籍の発行実績を誇る技術評論社がお届けする,資格試験合格サイト「めざせ! 情報処理試験 パスサポ」が開設されました。

ピックアップ

サクセスストーリーに続く,快適サーバー運用管理のヒント!

データの増大,煩雑な管理,システムダウン,セキュリティなど,迫りくる課題からシステム管理者の負担を軽くするポイントを解説します。

gihyo.jp インフラエンジニア情報局

ネットワークやITにかかわるあらゆる業種で必要とされるインフラエンジニアに向けた技術情報や心構え,その魅力について多角的に紹介。

テストエンジニア ステーション

いま,ITに関わるあらゆる開発業務で注目されつつあるテスト系エンジニアをターゲットにしたコンテンツサイトを展開します。

一行クイックアンケート

gihyo.jpで取り上げてほしいネタは?

※検索はページ右上の検索ボックスをご利用ください。

その他の連載

2010年版SEO体得講座

本連載では,いまや企業サイトの戦略の1つとして欠かすことのできないSEOについて,最新トレンドからすぐに使えるTipsまでを紹介します。

小型Linuxサーバの最高峰 OpenBlockS 600活用指南

搭載メモリの増加,CPUクロックの向上など,あらゆる面が強化された期待の新モデルOpenBlockS 600。この記事ではOpenBlockS 600の紹介から,活用するためのさまざまなノウハウを紹介していきます。

はじめMath! Javaでコンピュータ数学

プログラミング言語入門者向けに,知っていると役立つ数学的トピックスを紹介します。簡単な演習問題と解説で,即活用できる知識を目指します。

教科書には載っていない ネットワークエンジニアの実践技術

ネットワークエンジニア,インフラエンジニアのトラブル対応には,時には「教科書通りにいかない」テクニックが必要となります。資格試験では得られないこうした実践的な技術について,実例を元に紹介します。

Googleケータイ,世に現る

2008年9月,Googleが中心となって開発されている「Android」を採用した携帯電話「T-Mobile G1」が発表されました。本連載ではT-Mobile G1を中心にGoogleケータイに迫ります。

モバゲーオープンプラットフォームに挑戦!――面白法人カヤック流モバゲーオープンプラットフォーム企画と開発のイロハ

2010年1月にリリースとなったモバゲーオープンプラットフォーム。その制作企業であるカヤックが,アイデアを企画に落とし込み,開発までのノウハウを紹介します。

プロトタイピングツールSketchFlowを用いた,Silverlightアプリ開発

SketchFlowプロトタイプ作成からアプリケーション開発までをExpression Blend 3を使って実践的に解説します。

Ubuntu Weekly Recipe

Ubuntuの強力なデスクトップ機能を活用するための,いろいろなレシピをお届けします。

連載一覧

gihyo.jp

  • DEVELOPER STAGE
  • ADMINISTRATOR STAGE
  • WEB+DESIGN STAGE
  • LIFESTYLE STAGE
  • SCIENCE STAGE
  • NEWS & REPORT

書籍案内

  • 新刊書籍
  • 書籍ジャンル一覧
  • 書籍シリーズ一覧
  • 新刊ピックアップ
  • ロングセラー
  • 電脳会議

定期刊行物一覧

  • Software Design
  • WEB+DB PRESS
  • Web Site Expert
  • 組込みプレス

最近のコメント