perl な web application のためのテスト情報
Transcript
soh335
test Λॻ͔ͳ͍ͱͳ͍͚ͥͳ͍ͷ͔ʢͭΒ͍ʣ • ͋ͱɺϑϩϯτͷςετ
...., ... => ...., ... => ...., ... => ...., ... => ...., ... => ...., }); my $something = $user->take_something; is $something, ...; done_testing; $user Λ४උ͢Δ Λऔಘͯ͠ਖ਼͍͔͠ ͔֬ΊΔ
...., ... => ...., ... => ...., ... => ...., ... => ...., ... => ...., }); ok $user->do_something; done_testing;
PDLU
ʹ create_user Έ͍ͨͳͷΛ࡞Δ
@EXPORT = qw(create_user); sub create_user { ... } 1;
=> "soh335", }); }; subtest test2 => sub { my $user = MyApp::Schema->user->insert({ name => "soh336", }); }; name ͕ uqniue ͩͱͯ͠ద ʹ͚ͭΔ unique ΛอͭͨΊʹͪΐ ͬͱม͑Δ ...
= create_user(); soh338 soh256 soh942
'foo' => sub { ok $user->do_something; }; subtest 'bar' => sub { my $something = $user->take_something; is $something, ...; }; done_testing; ̍ͭͷςετΛॻ͘ ̎ͭͷςετΛॻ͘
$user->do_something; }; subtest 'bar' => sub { my $something = $user->take_something; is $something, ...; }; subtest 'baz' => sub { ok $user->update_something; }; baz ΛՃ user ͷঢ়ଶ͕ͲΜͲ ΜมΘΔ ࠷ॳͷ subtest Λमਖ਼͢Δͱ શ෦मਖ਼͢Δඞ༻͕ग़Δ͔͠Ε ͳ͍
http://shibayu36.hatenablog.com/entry/2013/07/16/231144
• t/schema/row/user__do_update.t • ͱ͔Ͱ͚ͯΔ
...; restore_time(); 2013 - 01 - 01 00:00:00
set_time "2013-01-01 00:00:00"; ... }; # <- restore_time scope Λൈ͚Δͱ restore_time() ΛݺͿΑ͏ͳ wrapper Λ project ༻ʹ࡞ͬͨΓͯ͠Δ set_fixed_time( '2013-01-01 00:00:00', '%Y-%m-%d %H:%i:%s +0900' );
sub { ... }; # <- restore_time scope Λൈ͚Δͱ restore_time() ͕ݺΕΔ Test::TimeMock::set_fixed_time ʹ sub {} ΛͤΔΑ͏ʹ͢Δ
mysqld process ΛͨͯͯɺͦΕΛςετʹ ͏ • MyApp::Test ͱ͔ t::Util ͱ͔Ͱ db ͷܨ͙ઌΛ test::mysqld ʹ ্ॻ͖͢Δ
$class = shift; { $mysqld = Test::mysqld->new( my_cnf => { 'skip-networking' => '', } ); MyApp->config->{ dbi } = [ $mysqld->dsn( dbname => 'test' ) ]; } } 1; ͔Γ͘͢ྫ͑Δͱ MyApp::Test ͕ use ͞ΕΔͱ dbi ͷ ઃఆΛॻ͖͑Δ
্ཱͪ͛ͬͺͳ͠ͰͦΕΛ͏ͱ͔͋ Γ
$class = shift; { $redis_server = Test::RedisServer->new; MyApp->config->{ redis } = $redis_server->connect_info; } } 1;
shift; return [ 200, [ 'Content-Type' => 'text/plain' ], [ "Hello World" ] ], }, client => sub { my $cb = shift; my $req = HTTP::Request->new(GET => "http://localhost/hello"); my $res = $cb->($req); like $res->content, qr/Hello World/; }; from Plack::Test synopsis app ʹ request
sub { my $cb = shift; my $req = GET 'http://localhost/hello'; my $res = $cb->($req); like $res->content, qr/Hello World/; } ); ࣮ࡍʹ MyApp ͱ ͔͔Β app ͱͳΔͱ͜Ζ Λ͢
request_to_app( $req ); like $res->content, qr/Hello World/; MyApp::Test ͱ͔Ͱָʹग़དྷΔ ͷΑ͍Ͱ͢Ͷ͐ HTTP::Cookie ͬͯ cookie ѻ͑ΔΑ͏ʹͨ͠Γ͢Δ
$app->handler ); $mech->get('/hello'); ok $mech->content_like(qr/Hello World/); mechanize ͷ interface Λ ͬͯςετ͕ग़དྷΔ
• ͕͋ͬͯमਖ਼͢ΔΑ͏ͳ߹ͪΌΜͱಈ࡞Λอো͠ ͍ͨ • όονͷ࣮ߦΛ package ʹ֎ग़͢͠Δ
ॲཧຊମ
my $module = "MyApp::Batch::$name"; load_class($module); $module->new_with_options->run; ίϚϯυϥΠϯ͔Β͞Εͨจ ࣈྻ͔Β class Λ new ͯ͠ run method ΛݺͿ perl script/batch.pl Something --go
is => 'ro', isa => 'Bool', default => sub { 0 } ); no Mouse; sub run { .... } 1; Mo[ou]seX::Getopt ͰίϚϯυϥΠϯͷ ҾΛ attribute ʹ͋ͯΔ
go => 0 )->run; # after testing done_testing;
my @sqls; require DBIx::QueryLog; my $g = DBIx::QueryLog->guard; local $DBIx::QueryLog::OUTPUT = sub { my %params = @_; push @sqls, $params{sql}; }; $sub->(); @sqls; } 1; ͜ͷ scope ͚ͩ query Λऔ ಘ͢Δ
@sqls, 10; } { my @sqls = trace_sql { $user->do_heavy_something; }; is scalar @sqls, 0; # cache ! } 10 ճ query ͕ྲྀΕ͍ͯΔ ̍ճ query ͕ྲྀΕ͍ͯͳ͍
σΟϨΫτϦͱਖ਼͍͠ը ૾͕͋Δ͔Λςετ͢Δ
"yap"], map => { 1 => "hoge", 10 => "fuga", 100 => "piyo", }, }, ); hash ͱ͔ array ͕ܾ·ͬͨύλʔϯ͡ Όͳ͘ࢁ͋Δͱ is_deeply ͩͱͩΔ͍࣌ ͕͋Δ
"bar"), map => { 1 => "hoge", 10 => "fuga", 100 => "piyo", }, }, ); Test::Deep ͔Β export ͞ΕΔ ॱংอোͤͣʹ༰શ෦ ͋Δ͜ͱΛςετ͢Δ ॱংอোͤͣʹ༰શ෦ ͋Δ͜ͱΛςετ͢Δ
"bar"), map => superhashof({ 1 => "hoge", 10 => "fuga", }), }, ); hash ͷҰ෦ͷ key ͚ͩςετग़ དྷΕྑ͍
"bar"), map => superhashof({ 1 => "hoge", 10 => "fuga", }), }, ); hash ͷ key ͷଘࡏ͚ͩςετ ͠ɺԿͰྑ͍
"bar"), map => superhashof({ 1 => "hoge", 10 => "fuga", }), }), ); json ʹ decode ͯ͘͠Ε Δ
"bar"), map => superhashof({ 1 => is_string, 10 => "fuga", }), }), ); is_* Ͱ ignore ΑΓܕͰݫ͠ʹν ΣοΫग़དྷΔ
cond { scalar @$_ == 3 }, map => superhashof({ 1 => is_string, 10 => "fuga", }), }), ); ͪΐͬͱͨ͠ࣄʹ plugin ͱ͔࡞Γ ͨ͘ͳ͍ͳʔͬͯ࣌ʹ $_ ʹ test ͞ΕΔ Λ͍Εͯ͘ΕΔɻ 2 <= $_ and < 5 ͱ͔ɻ
...), 'expect to die'; ͪΌΜͱྫ֎Λ͛ͯɺ͔ͭͦͷจ ݴΛςετ
because ...), "expect to die", ); Test::Exception ΑΓί ʔυ͕ simple
None
ͱ ͔͋Δ ྫ͑ deplicated ͳ method ͕ݺΕͨΒ warn ͢Δ͚Ͳɺ ͕݅ෳࡶ͔ͩΒͪΌΜͱݺΕΔ͔ςετ ͓͖͍ͯͨ͠
die $!; local *$STDERR = $fh; $user->depcateded_method(); is $buffer, 'this method is deplicated !'; ݸਓతʹ͜ΕͰࣄΓΔ ͔ͳ͊...
=> sub { return +{ foo => 1, bar => 2, } }, } ); is_deeply( $user->take_something, { foo => 1, bar => 2, } ); is $guard->call_count( 'MyApp::Schema::Row::User', 'take_something' ), 1; $guard ͕ scope ͷதͰଘ ࡏ͢Δ͚࣌ͩϝιουͷڍಈ Λࠩ͠ସ͑Δ ݺΕͨճΛς ετ
url ͚ͩ͡Όͳͯ͘ parameter, content, header ͕͋Θͳ͔ ͬͨΒ die
͢
ͬͨΓ... • Test::Synchronized ͍ͬͯ͏ͷ͋Δ͚Ͳ ....
use File::Temp !
data Λ͍ΕΔͷʹ࣌ؒ ͕͔͔Δ
σʔλ͕શͯἧͬͯΔঢ়ଶͰςετ͍ͨ͠ؾ࣋ͪ
schema data Λ༻ҙ͢Δ • ֤ςετͰ db ͕ඞ༻ͳ߹͔ͦ͜Β copy Λ͠ɺmy.cnf ͳͲΛॻ͖͑ͯىಈ͢Δ
։࢝࣌ʹ schema, master data ͕ೖ ͬͯΔ original test::mysqld Λ࡞Δ ֤ςετϑΝΠϧͰ original test::mysqld ͔Β copy ͠ɺmy.cnf Λमਖ਼͠ى ಈ͢Δ schema, master data Λ༻ҙ ͢ΔίετΛԼ͛ͨ
Λฒྻ ্ཱͪ͛Δ ্ཱ͕ͪͬͯΔ mysql ͔Β͑Δͷ͕ ׂΓͯΒΕΔ mysqld ͷ্ཱͪ͛ ͷίετ͕͔͔Βͳ͘ ͳΔ
ʙ ຊͷߴԽΛݟͤͯ ͘ΕΔͬͯ HUB Ͱݴͬͯ·͠ ͨ !!!!
soh335
aarron
kneath
paigeccino
dotmariusz
sstephenson
thoeni
pedronauck
paulrobertlloyd
jensimmons
deanohume
holman
