Perlで単体テスト - yokkunsの日記
Perlの単体テスト、特にMockObjectを使ったテストについての情報が少ない気がするのでまとめてみる。 前提 モジュールは、CPAN形式であると前提。雛形は、Module::Starterで作成すると良い。 テストは、Test::Perl::Criticを入れる。 インストール $ sudo cpan Module::Starter $ sudo cpan Module::Starter::PBP $ sudo cpan Test::Perl::Critic 初期セットアップ $ perl -MModule::Starter::PBP=setup モジュールの作成 $ module-starter --module=Ysm::Example $ cd Ysm-Example $ ls Build.PL Changes MANIFEST Makefile.PL README ignor
Perl Testing Consideration (seen from other languages)
Perl Testing Consideration (seen from other languages)1 of 32
YAPC::Asia 2011「あんなテスト、こんなテスト(this and that about testing)発表資料 - tsucchi’s diary(元はてなダイアリー)
あんなテスト、こんなテスト(this and that about testing)View more presentations from Takuya Tsuchida.
特定のメソッドが何回よばれたかをしらべる - tokuhirom's blog
https://github.com/tokuhirom/Test-CallCount こういうかんじで、Class::Method::Modifiers で外部から before method modifier を inject すれば、回数をかぞえたりできます。
Perlのメトリクス計測 - WebService::Blog->new( user => ’hide_o_55’ )
ソースコードの品質向上のための効果的で効率的なコードレビュー にメトリクス計測ツールがでてきますが、Perlにももちろんあります。 Perl-Metrics-Simple-0.18 - Count packages, subs, lines, etc. of many files. - metacpan.org またPerl::Metrics::Simpleを使用したテストモジュール Test-Perl-Metrics-Simple-0.1 - Use Perl::Metrics::Simple in test programs - metacpan.org もあります。 循環的複雑度(Cyclomatic complexity)がしきい値を上回ったらテストが失敗するようになっています。 use Test::Perl::Metrics::Simple -complexity => 25;#
にひりずむ::しんぷる - subtest の出力をフラットにする Test::Flatten を書いてみた
皆さん subtest 使ってますか？僕はよく使ってます。 でも最近いろいろとアレげだなーと思っていることがあって、適当に Test::Flatten とかいう謎モジュールをでっち上げてみました。 xaicron/p5-Test-Flatten - GitHub use Test::More; subtest 'foo' => sub { pass 'ok'; }; done_testing; というようなテストを走らせた場合の TAP 出力は以下のようになりますが、その subtest が終わったあとになって初めて「ああ、このテストは foo だったのかー」とわかります。 $ prove -lvc t/foo.t t/foo.t .. ok 1 - ok 1..1 ok 1 - foo 1..1 ok その subtest の開始時に見たいですね。 use Test::More; sub
Tatsumakiアプリケーションを作ってみる - すぎゃーんメモ
Tatsumakiを使ったアプリの例は幾つか見たことはあったのだけど、 TwitterStreamをTatsumakiを使ってブラウザ表示 - メメメモモ TatsumakiとTwiggy使ってみた - punitan (a.k.a. punytan) のメモ Big Sky :: TatsumakiとDUI Streamを使って画像ストリーミングサーバ作ってみた。 実際に自分で書いたことはなくて、結構分からないことが多かったので、自分でもサンプルアプリを作ってみた。やっぱり実際に書きながら試したりする方が理解できる…。 Tatsumakiにあるchatアプリの例を参考にしながら。 Tatsumaki/eg/chat at master · miyagawa/Tatsumaki · GitHub 作ったのはアクセスログ(timestamp, useragent)をリアルタイムにブラウザ表示
Test::Mock::Guard Released - 日向夏特殊応援部隊
さっき nekokak さんと xaicron さんにそそのかされて Test::Mock::Guard ってモジュールを書いてみました。 そもそも Perl には Test::MockObject と言う汎用の Mock モジュールがあるんですけど、あれこれ余計な機能がたくさんついてたり Mock 化すると多分元に戻せないと言うのがあってもっとシンプルな奴がほしいなと思って作ってみた次第です。SYSNOPSIS のコピペですけど、 use Test::More; use Test::Mock::Guard qw(mock_guard); package Some::Class; sub new { bless {} => shift } sub foo { "foo" } sub bar { 1; } package main; { ### このスコープでは Mock 化されてる my
テスト駆動開発のすすめ - Perl日誌
hachiojipmに行ってきたのですが#4でも#5でもTestを書くのが難しいという声が聞こえたので「テストは書いてみると簡単」「テストがあると開発が楽」という事を伝えてみようと努力する試みです。 ということでサンプルコードを書いてみました。 https://github.com/okamuuu/Sample-Plack-Test 紹介するサンプルコードについて ここで紹介しているスクリプトはある男がBlogを作ろうと思ったがどうせたいしたことしないので俺俺WaFをつくってやろうとして実際にやったテスト駆動開発です。 おもむろにt/web.tとかつくってみる 最初にテストを書いてみましょう。 #!/usr/bin/env perl use strict; use warnings; use Test::Most; use Plack::Test; use HTTP::Request::C
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Happy Testing Perl 記事一覧 | gihyo.jp