ziguzagu.orgziguzagu.orgはじめてのTest::More2006-05-21PerlChapter1の後半戦は、Test::More。Notebook)Test::MoreはTest::Simpleのスーパーセットで完全に置き換えて使ってOK、モジュールをただしく読み込めたかどうかなどのテスト関数も含めいろんな機能あるでよ、とのことです。words($sentence);}1;なんかしらの文字(今回はスペース)でsplitして単語の数を数えるモジュール。Test::Moreでてすてぃんぐ。sentences');:use_ok():モジュールのuseとシンボルのimportの確認。:can_ok():メソッドを呼び出せるか確認。UNIVERSAL::can。あと、useじゃなくてrequire用に、require_okってのもある。p.14ではimportしたsymbolをテスト側で使いたいとき対策が書かれてる。サンプルでは$WORD_SEPARATORをimportしてそいつに区切り文字を代入してテストに使う、というもの。exit;シンボル追加。set');で、うまくいくと思ったテストは失敗するのであった...。seenコンパイルフェーズでは最終行に達しても$WORD_SEPARATORが無いまま。use_okではuseしない。strictに引っかかってしまう。こんなときはBEGINブロックでuse_okしてしまえとなるみたい。exit(またはdie)してテスト全部終わらせたほうがよいよ、いろいろ面倒があるから(実行するテストの数が違ってくるとか)。