foosinのブックマーク - はてなブックマーク

ダミーデータを自動生成したい！プロジェクト - taiyoh独言
先日のエントリから更に掘り下げて、ダミーデータをある程度自動的に生成できれば、手間がもっと減るのではないかと考えた。結果→GitHub - taiyoh/test-dummygenerator: for people who are lazy not to want to create many many test data... ハッシュリファレンスベースで、ある程度値の方向性がついている感じです。 #!/usr/bin/env perl use strict; use warnings; use Test::DummyGenerator; use YAML qw/Dump/; my $dummy = Test::DummyGenerator->new( schema => YAML::Load(do { local $/; <DATA> }) ); my $data = $dummy
foosin 2009/04/19
perl

test

fixture
リンク
Fixture系モジュールはコールバックで値を入れられる方がいい - taiyoh独言
例えば日付に絡むテストをしたい時、ダミーデータとしてハードコードしてしまうと、後々、データが古いというだけでテストがコケるという可能性が出てくる。まあ、可能性というか、実際今僕のところで起きたんだけどさ。もうちょっと具体例を挙げると、週間ランキングのロジックをテストをしたいとかいうとき、ギリギリ3,4日後くらいまではなんとかなっても、もし１ヶ月先に何らかの事情でそのテストを回したいとき、そんなところで落ちてたら、無駄に原因究明の時間を使う事になる。ということで、DBIx::MoCo::Fixtureのload_fixtureをちょっと弄る。 { package DBIx::MoCo::Fixture; use Data::Visitor::Callback; our $Substitutions = {}; sub append_substitutions { my ( $key,
foosin 2009/04/19
perl

test

fixture
リンク
Test::Fixture::DBIC::Schema - taiyoh独言
DB周りのロジックテストをしたくて導入してみたのですが、リレーションがらみでcreate_relatedメソッドなんかを使ってると、create時にコケてしまうので、 --- Schema.pm 2008-05-10 14:39:59.000000000 +0900 +++ Schema.pm.new 2009-02-27 16:28:24.000000000 +0900 @@ -71,8 +71,7 @@ my $result = {}; for my $row ( @{ $fixture } ) { - $schema->resultset( $row->{schema} )->create( $row->{data} ); - $result->{ $row->{name} } = $schema->resultset( $row->{schema} )->find( $row->{
foosin 2009/04/19
perl

fixture

test

dbic
リンク
1