はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
Test::Class - naoyaのはてなダイアリー
最近 Perl でテストを書くときに Test::Class を使ってます。(もしかして常識?) これまでは *.t で Test::More をそのまま使ってたけど、テストが大きくなってくるとコードが分かりにくくなったり、自分であれこれしなきゃいけないことが多くてめんどくさい。 Test::Class は xUnit スタイルで Perl のテストを書けるフレームワークです。xUnit な Perl 実装といえば Test::Unit もあるんですが、テスト用の関数も Test::Unit の流儀に従う必要があってちょっと嫌。Test::Class は Test::More と Test::Harness とか、普段使い慣れてる Perl らしいテストスタイルを使いつつ xUnit できるという点が良いです。 使い方ですが、 Test::Class を継承したテストクラスを作り テスト用
第4回 Test::Perl::Critic, Test::Pod, Test::Pod::Coverage, Test::Exception, Test::Warn, Devel::Coverの紹介 | gihyo.jp
Happy Testing Perl 第4回Test::Perl::Critic, Test::Pod, Test::Pod::Coverage, Test::Exception, Test::Warn, Devel::Coverの紹介 モバイルファクトリーの小林です。今回は今までに紹介しきれなかったPerlのTestingモジュールで良く利用されるものをいくつか紹介したいと思います。 Test::Perl::Critic このモジュールはテスト対象のコードがPBPに準拠しているかどうかをテストしてくれるモジュールです。 PBPとはDamian Conway氏の提唱するPerl Best PracticesというPerlのコードを書く際のスタイルです。 http://www.oreilly.co.jp/books/4873113008/ Perl Best Practicesについての詳細
複雑な構造のデータをテストする
まだ、『PerlTesting』はChapter 2。 今までやってきたテストは、単純なスカラー値のテストと関数のテストのみですが、もっと複雑なデータをテストしたい場合があります。 Test::More::is_deeply :is_deeply:リファレンスを追いかけて複雑な構造のデータを比較して同じかどうかテストする たとえば、リスト＞ハッシュ＞スカラー、リストのテスト。 #!/usr/bin/perl use strict; use warnings; use Test::More tests => 1; my $list1 = [ { name => 'Tom' family => [qw/father mother dog/], }, { name => 'Bob', family => [qw/father mother sister cat/], } ]; my $list2
DBD::Mock を使ったテスト - 日向夏特殊応援部隊
DBD::Mock は DBI のドライバの一つで、DBI を使ったプログラムで意図的な状態を作る事が出来ます。 と言う訳でメモ程度に書いて行きます。 データベースハンドルの取得 use strict; use warnings; use Test::More; use DBI; plan tests => 3; my $dbh = DBI->connect('dbi:Mock:', '', '', +{ AutoCommit => 0, RaiseError => 1 }); ok($dbh, 'Create database handle'); isa_ok($dbh, 'DBI:db'); is($dbh->{Driver}->{Name}, 'Mock', 'Driver information'); で、普通に Database Handle が取れます。 SELECT してる箇
perlのテストprove - pepponの日記
モダンPerl入門買った で、大変勉強になったわけだけど、テストとかいろいろやってみてprove便利だなーとおもって catalystディレクトリでproveしたらエラーになる。 perl Makefile.PL;make testはいけるけど、 単にパスが見つからないだけで、 use FindBin; use lib "$FindBin::Bin/../lib"; すればいいだけなんだけど、そういうものなのかなーと思った。 テストにuse lib付けないのはなんか理由があるのかなあと思いメモ 追記 id:charsbar makeするのが面倒ならprove -l t/でもいい。こうやってテスト対象のlibがかわりうるのでテストではふつうuse lib '../lib'しない id:lestrrat それやるなら、perl Makefile.PL; make; prove -b t/; m
unwind-protect: Emacs の中から prove
少しは真面目に *.t を書こうかと思っているのだが、 Emacs で *.pm を編集して、ターミナルに戻って prove -vl t とかやるのは非常にウザい。 Emacs 使ってるのだから、シンタックスエラーが出たら当然キーストローク２つ位で その行へジャンプしたくなるのだが、シェルから実行してるとそれもできないし、 ターミナルのスクロールバーをチクチクいじくりながらエラーメッセージを見つけて M-x goto-line なんてヤだ。 mode-compile をインストールして cperl-mode を使ってると、編集してる Perl スクリプトを単純に実行した場合は ちゃんとエラーの行へ飛べるんだけどなぁ。 proveと組み合わせると快適にいかない。 とかなんとか、Emacs が Emacs らしく使えない、というのを言い訳にしてテストを書くのサボってるわけだ。やだねぇ Emac
Yet Another Hackadelic - 直積の導出と考えうる全ての値を網羅したハッシュの生成
昨日から激しく悩んでいた内容で、id:kazuhookuさんとnishioさんに色々教わったので、その内容のまとめ。 やりたい事 my $entries = { A => [0..5], B => ["A".."D"], C => ["a".."c"] }; みたいな集合A, B, Cってのがあるとして、A, B, Cから一個ずつ値を抽出してくる組合せを列挙すると言うお話。 ちなみに場合の数として、6 * 4 * 3 = 72 通り存在するハズです。 List::Utilのreduceを使う id:kazuhookuさん案を適当に整形。 #!/usr/bin/perl use strict; use warnings; use Data::Dump qw(dump); use List::Util qw(reduce); my $entries = { A => [0..5], B =>
Perlでオブジェクト指向 - 簡単なのでやってみませう。
(Too many spams ... embedded comments are not allowed now, sorry.) 2005-11-25 (Fri) 14:27:42 bless がわからん。 2005-11-22 (Tue) 12:55:20 d? : ここを見る人は、Perlのクラス作り方がわからない人でしょう？ 2005-11-22 (Tue) 12:54:50 d? : テストファースト良いと思うのですが、このページの最初に書くのは間違いだとおもいますね。 2005-09-20 (Tue) 14:00:54 オブジェクト指向の概念はお腹いっぱいですが、実際に運用出来るかと言うと・・プログラムの閉じ方がさっぱりわかりません。ちょこっと作ってテストみたいなのが、さっぱりです 2005-08-17 (Wed) 11:21:32 「クラスはどうやって書くの？」の中に「まず
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
