[B! perl][test] issmã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

issm id:issm

perlã¨testã«é–¢ã™ã‚‹issmã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (60)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

Harriet ãƒ¼ ãƒ†ã‚¹ãƒˆã®ã¨ãã¤ã‹ã†ã«ãƒ‡ãƒ¼ãƒ¢ãƒ³ã®å–æ‰±ã‚’ç°¡å˜ã«ã™ã‚‹ãŸã‚ã®ãƒ•ãƒ¬ãƒ¼ãƒ ãƒ¯ãƒ¼ã‚¯ - tokuhirom's blog
https://github.com/tokuhirom/Harriet/https://metacpan.org/module/TOKUHIROM/Harriet-0.01/lib/Harriet.pmãƒ†ã‚¹ãƒˆã®ã¨ãã«ã¤ã‹ã† mysqld, memcached, stf, groonga ã‚ãŸã‚Šã®ãƒ‡ãƒ¼ãƒ¢ãƒ³ã‚’ã€.t å˜ä½ã§èµ·å‹•ã—ã¦ã„ã¦ã¯é…ãã¦ã‹ãªã‚ãªã„ã€‚ã‹ã¨ã„ã£ã¦ã€ã‚ã‚‰ã‹ã˜ã‚èµ·å‹•ã•ã›ã¦ãŠãã¨ã„ã†ã®ã‚‚ã€‚ã€‚ ã¨ã„ã†ã‚ã‘ã§ prove ã®ãƒ—ãƒ©ã‚°ã‚¤ãƒ³ã¨ã—ã¦ã‚ˆã—ãªã«ã™ã‚‹ã€ã¿ãŸã„ãªã®ã‚’ãŒã‚“ã°ã£ã¦ã‹ãã€ã¨ã„ã†ã‚ˆã†ãªè©¦ã¿ãŒãŠã“ãªã‚ã‚Œã¦ããŸã‚ã‘ã§ã™ãŒã€ã©ã†ã‚‚ã‚ã‚“ã©ãã•ã„ã€‚ ãªã‚“ã‹é©å½“ã«ã‚„ã£ãŸã‚‰ã†ã¾ãã†ã”ãã€ã£ã¦ã„ã†ã‹ã‚“ã˜ã®ã‚«ã‚¸ãƒ¥ã‚¢ãƒ«ãªãƒ„ãƒ¼ãƒ«ãŒã»ã—ã„ãªã€ãªã‚“ã¦ãŠã‚‚ã£ãŸã‚Šã™ã‚‹ã‚ã‘ã§ã™ã‚ˆ ãã“ã§ã€Harriet ã£ã¦ã®ã‚’ã¤ãã£ã¦ã¿ã¾ã—ãŸã€‚ ãªã‚“ã‹ã“ã†ã€t/harriet/mysqld.pl ã£ã¦ã„ã†ãƒ•ã‚¡ã‚¤ãƒ«åã§ã“ã‚“
issm 2016/09/13
perl

test
ãƒªãƒ³ã‚¯
Perlã§ãƒ†ã‚¹ãƒˆãŒã“ã‘ã¦æ³£ããã†ãªã¨ãã®TIPS
Perl æ›¸ã„ã¦ã‚Šã‚ƒ Test::More ã§ãƒ†ã‚¹ãƒˆæ›¸ãã¾ãã‚‹ã¨æ€ã†ã®ã§ã™ãŒã€Test::More ã£ã¦ã„ã†ã‹ã€ã¾ã‚åˆ¥ã« Test::More ã ã‘ãŒãã†ã¨ã„ã†ã‚ã‘ã§ã‚‚ãªã„ã®ã§ã™ãŒã€ãƒ†ã‚¹ãƒˆã“ã‘ãŸã¨ãã®ã‚±ã‚¢ãŒååˆ†ã˜ã‚ƒãªã„ãªã¨æ€ã†ã¨ããŒã‘ã£ã“ã†ã‚ã‚Šã¾ã™ã€‚ é–‹ç™ºéŽç¨‹ã§æ›¸ã„ã¦ã‚‹ã‚³ãƒ¼ãƒ‰ã¨ã„ã†ã®ã¯ã€ã„ã¤ã‚‚ã„ã¤ã‚‚ç¢ºä¿¡ã‚’æŒã£ã¦æ›¸ã„ã¦ã„ã‚‹ã‚ã‘ã§ã¯ãªã„ã‚ã‘ã§ã€ãã‚Œã§ãªãã¦ã‚‚ã†ã£ã‹ã‚Šé–“é•ã†ã¨ãã‚‚ã‚ã‚Šã€ã›ã£ã‹ããƒ†ã‚¹ãƒˆæ›¸ã„ã¦ã„ã‚‹ã®ã«ä½•ã ã‹ã‚ˆãã‚ã‹ã‚‰ãªã„ç†ç”±ã§ã“ã‘ã¦ãƒ‘ã‚¹ã§ããªãã¦æ™‚é–“ã‚’æµªè²»ã—ã¦ã—ã¾ã£ãŸã‚ŠãŒæ—¥å¸¸ã«ãªã£ã¦ãŸã‚Šã—ã¾ã›ã‚“ã‹ï¼Ÿ ãã†ã„ã†ã®ã‚’ç¹°ã‚Šè¿”ã—ã¦ã„ã‚‹ã¨ã‚„ãŒã¦ãƒ†ã‚¹ãƒˆå«Œã„ã«ãªã‚Šãƒ†ã‚¹ãƒˆæ›¸ã‹ãªããªã£ã¦æœ¬ç•ªã‚³ãƒ¼ãƒ‰ã«ãƒ‡ãƒãƒƒã‚°ã‚³ãƒ¼ãƒ‰ãŒå…¥ã‚Šä¹±ã‚Œã€ãƒªãƒ•ã‚¡ã‚¯ã‚¿ã‚‚ã©ã‚“ã©ã‚“ä¸å¯èƒ½ã«ãªã£ã¦å°å›žã‚ŠåŠ¹ã‹ãªã„ã¾ã¾ãƒ—ãƒã‚¸ã‚§ã‚¯ãƒˆãŒå¤±æ•—ã—ã¦å½¼å¥³ã«æŒ¯ã‚‰ã‚Œã¦ã—ã¾ã†ã‚ã‘ã§ã™ãã€‚å›°ã‚Šã¾ã™ã€‚ note diag explain Test::More ã«ã¯
issm 2015/07/02
perl

test
ãƒªãƒ³ã‚¯
ä¾‹å¤–ã‚’ãƒ†ã‚¹ãƒˆã™ã‚‹ãªã‚‰Test::FatalãŒæ›¸ãã‚„ã™ã„
use strict; use Test::More 0.98; like 'a', qr/a/, q{ like }; eval {die 'a'}; like $@, qr/a/, q{ like eval }; done_testing; use strict; use Test::More 0.98; use Test::Exception; like 'a' , qr/a/, q{ like }; throws_ok {die 'a'} qr/a/, q{ throws_ok }; done_testing;
issm 2014/08/28
test-fatal

perl

test

cpan
ãƒªãƒ³ã‚¯
Docker ã‚³ãƒ³ãƒ†ãƒŠã§ MySQL ã‚’ä½¿ã£ãŸãƒ†ã‚¹ãƒˆã®é«˜é€ŸåŒ– - stfuawsc
å…¨å›½1å„„2000ä¸‡ã® Docker ãƒ•ã‚¡ãƒ³ã®çš†ã•ã‚“ã“ã‚“ã«ã¡ã¯ã€‚ MySQL ã®èµ·å‹•ãŒã¨ã¦ã¤ã‚‚ãªãé…ã„ã®ã¯æœ‰åãªè©±ã€‚ ã¨ã“ã‚ãŒ Docker ã‚³ãƒ³ãƒ†ãƒŠã®èµ·å‹•ã¯ãªã‹ãªã‹æ—©ã„ã®ã§ã€ MySQL ã‚’ä½¿ã£ã¦ã„ã‚‹ã‚ˆã†ãªãƒ†ã‚¹ãƒˆã‚’é«˜é€ŸåŒ–ã™ã‚‹ã‚±ãƒ¼ã‚¹ã§æœ‰ç”¨æ€§ãŒèªã‚ã‚‰ã‚Œã‚‹ã®ã§ã¯ãªã„ã‹ã¨æ€ã£ã¦ PoC ã‚’æ›¸ã„ã¦ã¿ãŸã€‚ ï¼ˆå®£ä¼ï¼‰ã“ã†ã„ã£ãŸè©±ã‚‚å«ã‚ã¦ YAPC ã§ãƒˆãƒ¼ã‚¯ã—ãŸã„ã®ã§ SNS ç‰ã§ upvote ãŠé¡˜ã„ã—ã¾ã™ï¼š ( âœŒ'Ï‰')âœŒ æ¥½ã—ã„ãƒ¢ãƒ‡ãƒ«å±¤é–‹ç™º - YAPC::Asia Tokyo 2014 ï¼ˆå®£ä¼ãŠã‚ã‚Šï¼‰ MySQL ã‚’ä½¿ã£ãŸãƒ†ã‚¹ãƒˆ MySQL ã‚’ä½¿ã£ãŸãƒ†ã‚¹ãƒˆã‚’ã™ã‚‹å ´åˆã€ã ã„ãŸã„æ¬¡ã® 2 ãƒ‘ã‚¿ãƒ¼ãƒ³ã«ãªã‚‹ã€‚ MySQL ã‚’ãƒ†ã‚¹ãƒˆã®ãŸã³ã«èµ·å‹•ã—ã¦ã‚¯ãƒªãƒ¼ãƒ³ãªçŠ¶æ…‹ã§ä½¿ã† ãƒãƒ¼ã‚«ãƒ«ã«ãƒ‡ãƒ¼ãƒ¢ãƒ³ã¨ã—ã¦èµ·å‹•ã—ãŸ MySQL ã«æŽ¥ç¶šã—ã¦ DROP TABLE ã‚„ TRUNCATE ã§ã‚¯ãƒªãƒ¼ãƒ³ãªçŠ¶æ…‹ã«ã—ã¦ä½¿ã† ã ã‘ã©ã€
issm 2014/07/10
test

mysql

docker

perl
ãƒªãƒ³ã‚¯
http://code-stylistics.net/archives/helpers.html
issm 2014/07/07
perl

test

test-more
ãƒªãƒ³ã‚¯
ãƒ™ãƒ³ãƒã©ã†ã—ã¾ã™ã‹ï¼Ÿ - Articles Advent Calendar 2011 Dbix
ã©ã†ã‚‚nekokakã§ã™ã€‚ ã¿ãªã•ã‚“DBIã‚’ä½¿ã£ã¦ã„ã‚‹ã‚³ãƒ¼ãƒ‰ã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã£ã¦ã©ã†ã—ã¦ã¾ã™ã‹ï¼Ÿ SQLã®ãƒãƒ¥ãƒ¼ãƒ‹ãƒ³ã‚°ã§ã‚ã‚Œã°ã„ã„ã®ã§ã™ãŒã€ãƒã‚¸ãƒƒã‚¯ã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã‚’å–ã‚ŠãŸã„æ™‚ã« å®Ÿéš›ã«databaseã«ã‚¯ã‚¨ãƒªãªã’ã¦ã—ã¾ã†ã¨ã€ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯é€šä¿¡ç‰ãŒç™ºç”Ÿã—ã€ç´°ã‹ã„ãƒã‚¸ãƒƒã‚¯ã®ãƒãƒ¥ãƒ¼ãƒ‹ãƒ³ã‚°ã®é‚ªé”ã«ãªã‚‹ã“ã¨ãŒã‚ã‚Šã¾ã™ã€‚ ãŸã¨ãˆã°ç§ã¯Tengã®ãƒãƒ¥ãƒ¼ãƒ‹ãƒ³ã‚°ã‚’ã™ã‚‹ã¨ãã«ã€ãƒãƒƒã‚¯ã‚¨ãƒ³ãƒ‰ã®databaseæ€§èƒ½ãªã‚“ã¦ã©ã†ã§ã‚‚ã‚ˆãã¦ã€ ãƒ—ãƒã‚°ãƒ©ãƒ ã®æ€§èƒ½ã‚’ã¿ãŸã„ã‚ã‘ã§ã™ã€‚ ãã‚“ãªã¨ãã«ä¾¿åˆ©ãªã®ãŒTest::Mock::Guardã§ã™ã€‚ï¼ˆãˆ Testã¨ã„ã†namespaceã«ã‚ã‚Šã¾ã™ãŒã€ã‚„ã£ã¦ã„ã‚‹ã“ã¨ã¯ã‚³ãƒ¼ãƒ‰ã‚’ã•ã—ã‹ãˆã‚‹ã“ã¨ãªã®ã§ ã“ã‚Œã‚’ã¤ã‹ã£ã¦å®Ÿéš›ã«ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã«ã‚¯ã‚¨ãƒªãªã’ã‚‹ã¨ã“ã‚ã¨ã‹ã‚’ãƒ•ã‚¬ãƒ•ã‚¬ã—ã¾ã™ã€‚ ä¾‹ãˆã°Tengã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã‚’å–ã‚‹æ™‚ã«è©¦ã—ãŸã‚³ãƒ¼ãƒ‰ã¯ä»¥ä¸‹ã®ã‚ˆã†ãªã‚‚ã®ã§ã™ã€‚ #! /usr/bin/perl us
issm 2014/04/30
test-mock-guard

perl

test

cpan
ãƒªãƒ³ã‚¯
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 ã—ã¦ã‚‹ç®‡
issm 2014/04/30
dbd-mock

test

perl

cpan
ãƒªãƒ³ã‚¯
Test::Base::SubTest ã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½œã£ãŸã€‚ã¾ãŸã¯ãƒ†ã‚¹ãƒˆã‚±ãƒ¼ã‚¹ã¨ãƒ†ã‚¹ãƒˆã‚³ãƒ¼ãƒ‰ã¯åˆ†é›¢ã•ã‚Œã¦ã„ãŸã»ã†ãŒå¬‰ã—ã„è©± - Cside::Weblog
2014-01-15 Test::Base::SubTest ã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½œã£ãŸã€‚ã¾ãŸã¯ãƒ†ã‚¹ãƒˆã‚±ãƒ¼ã‚¹ã¨ãƒ†ã‚¹ãƒˆã‚³ãƒ¼ãƒ‰ã¯åˆ†é›¢ã•ã‚Œã¦ã„ãŸã»ã†ãŒå¬‰ã—ã„è©± perl è‡ªåˆ†ã¯ Test::Base ãŒå¥½ãã§ã‚ˆãä½¿ã†ã®ã ã‘ã©ã€subtest çš„ãªã€ãƒ†ã‚¹ãƒˆã®ã‚°ãƒ«ãƒ¼ãƒ”ãƒ³ã‚°ãŒã§ããªã„ã®ãŒãšã£ã£ã£ã¨ä¸æº€ã ã£ãŸã®ã§ã€Test::Base::SubTest ã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’æ›¸ã„ãŸã€‚ https://metacpan.org/release/CSIDE/Test-Base-SubTest-0.1 https://github.com/Cside/Test-Base-SubTest ä»¥ä¸‹ã®æ§˜ãªæ‹¡å¼µè¨˜æ³•ãŒä½¿ãˆã‚‹ã‚ˆã†ã«ãªã‚‹ã€‚### ã§subtestã® 1 å˜ä½ã‚’è¡¨ç¾ã™ã‚‹ã€‚ use Test::Base::SubTest; filters { input => [qw(eval)] }; run_is input =
issm 2014/01/16
perl

test-base

test-base-subtest

test
ãƒªãƒ³ã‚¯
SYNOPSISã®ã‚³ãƒ¡ãƒ³ãƒˆã‚’ä½¿ã£ã¦ãƒ†ã‚¹ãƒˆã™ã‚‹Test::Synopsis::Expectation - ã±ã„ã±ã„ã«ã£ã
ã“ã®è¨˜äº‹ã¯Perl Advent Calendar 2013ã®16æ—¥ç›®ã®è¨˜äº‹ã§ã™ã€‚ Test::Synopsis::Expectation Perlã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½œã‚‹éš›ã«ä¾¿åˆ©ãã†ãªå°‘ã—å¤‰ã‚ã£ãŸãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã€Test::Synopsis::Expectationã‚’ä½¿ã£ã¦ã¿ã¾ã™ã€‚ ãã®å‰ã«ãƒ†ã‚¹ãƒˆå¯¾è±¡ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½œã‚Šã¾ã™ã€‚ã²ãªå½¢ä½œæˆã«ä¾¿åˆ©ãªMinillaã‚’ä½¿ã£ã¦ã‚¹ã‚±ãƒ«ãƒˆãƒ³ã‚’ä½œæˆã—ã¾ã™ã€‚ $ minil new AwesomeTargetãã“ã§å‡ºæ¥ãŸAwesomeTarget/lib/AwesomeTarget.pmã‚’ä»¥ä¸‹ã®ã‚ˆã†ã«ã„ã˜ã‚Šã¾ã™ã€‚ package AwesomeTarget; use strict; use warnings; sub plusplus { my ($class, $num) = @_; return ++$num; } 1; ãªã‚“ã®ã“ã¨ã¯ãªã„ã€ãŸã ++ã™ã‚‹ã ã‘ã®ã‚¯ãƒ©ã‚¹
issm 2013/12/17
perl

test

test-synopsis

compiler-lexer
ãƒªãƒ³ã‚¯
Test::Synopsis::Expectationã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ãƒªãƒªãƒ¼ã‚¹ã—ã¾ã—ãŸ - ãã®æ‰‹ã®å¹³ã¯å°»ã‚‚ã¤ã‹ã‚ã‚‹ã•
ã“ã®ãŸã³ï¼ŒTest::Synopsis::Expectationã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ãƒªãƒªãƒ¼ã‚¹ã—ã¾ã—ãŸï¼Ž https://metacpan.org/pod/Test::Synopsis::Expectation https://github.com/moznion/Test-Synopsis-Expectation ä½¿ã„æ–¹ã‚„ä»•çµ„ã¿ç‰ã‚’id:mackee_wã•ã‚“ã®è¨˜äº‹ã§ç´¹ä»‹ã—ã¦ã„ãŸã ã„ãŸã®ã§ï¼Œãã¡ã‚‰ã®æ–¹ã‚‚ä½µã›ã¦ã”è¦§ã„ãŸã ãã¨è‰¯ã„ã¨æ€ã„ã¾ã™ï¼Ž SYNOPSISã®ã‚³ãƒ¡ãƒ³ãƒˆã‚’ä½¿ã£ã¦ãƒ†ã‚¹ãƒˆã™ã‚‹Test::Synopsis::Expectation - ã±ã„ã±ã„ã«ã£ã CPANã«ä¸ŠãŒã£ã¦ã„ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ä½¿ã†æ™‚ï¼Œå¤šãã®æ–¹ãŒä½•ã¯ç„¡ãã¨ã‚‚çœŸã£å…ˆã«SYNOPSISã‚’è¦‹ã¦ä½¿ã„æ–¹ã‚’ã‚¶ãƒƒã‚¯ãƒªæŠŠæ¡ã™ã‚‹ã‹ã¨æ€ã„ã¾ã™ï¼Žã¨ã‚Šã‚ãˆãšSYNOPSISã®ã‚³ãƒ¼ãƒ‰ã‚’ã‚³ãƒ”ãƒšã—ã¦ã¿ã¦ï¼Œå‹•ãã‹ã©ã†ã‹è¦‹ã¦ã¿ã‚‹çš„ãªï¼Ž ã§ï¼ŒSYNOPSISã®ã‚³ãƒ¼ãƒ‰
issm 2013/12/17
perl

cpan

test

test-synopsis

compiler-lexer
ãƒªãƒ³ã‚¯
ãŠãã‚‰ãã¯ãã‚Œã•ãˆã‚‚å¹³å‡¡ãªæ—¥ã€…: Plack::Middlewareã§$envã®ä¸èº«ã‚’è¦‹ã‚‹ãƒ†ã‚¹ãƒˆã‚’æ›¸ãæ–¹æ³•
Plack::Middlewareã®ä¸ã§ $env->{'psgix.hoge'} çš„ãªä½•ã‹ã‚’çªã£è¾¼ã‚€ã“ã¨ã¯ã‚ã‚‹ã‚“ ã˜ã‚ƒãªã„ã‹ã¨æ€ã†ãŒã€ãã®ãƒ†ã‚¹ãƒˆã‚’ã©ã†æ›¸ãã‹ã¨ã„ã†è©±ã€‚ Plack::Testã ã¨ãƒ¬ã‚¹ãƒãƒ³ã‚¹ã¯è¦‹ã‚‰ã‚Œã‚‹ãŒã€$envã¯ã‚‚ã†è¦‹ã‚‰ã‚Œãªã„ã€‚ çµè«–ã‚’è¨€ã£ã¦ã—ã¾ã†ã¨ã€$envã‚’ã‚·ãƒªã‚¢ãƒ©ã‚¤ã‚ºã—ã¦ã€response bodyã«çªã£è¾¼ã‚“ã§ã—ã¾ã† $appã‚’ä½œã‚‹ã®ãŒä¹±æš´ã‹ã¤ãŠæ‰‹è»½ã‹ã¨æ€ã†ã€‚ ä»¥ä¸‹ã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ã€‚ package Plack::Middleware::Hoge; use strict; use warnings; use parent 'Plack::Middleware'; sub call { my ($self, $env) = @_; $env->{'psgix.hoge'} = 'fuga'; $self->app->($env); } ã“ã®Middlewareã‚’ãƒ†ã‚¹ãƒˆã™
issm 2013/12/09
plack

test

perl
ãƒªãƒ³ã‚¯
ã‚ˆã‚Šé«˜é€Ÿãªãƒ†ã‚¹ãƒˆç’°å¢ƒã‚’å®Ÿç¾ã™ã‚‹ãŸã‚ã« - Route54
ãƒ†ã‚¹ãƒˆã‚’æ›¸ãã“ã¨ã¯è‰¯ã„äº‹ã§ã™ã€‚ã©ã‚“ã©ã‚“æ›¸ã„ã¦å“è³ªã‚’ä¸Šã’ãŸã„ã¨ã“ã‚ã§ã¯ã‚ã‚Šã¾ã™ãŒã€ãƒ†ã‚¹ãƒˆã®æ•°ãŒæ•°ä¸‡ã€œæ•°åä¸‡ã«åŠã¶ã‚ˆã†ãªãƒ—ãƒã‚¸ã‚§ã‚¯ãƒˆã§ã¯ã€ãƒ•ãƒ«ãƒ†ã‚¹ãƒˆã«è¦ã™ã‚‹æ™‚é–“ãŒç„¡è¦–ã§ããªã„ç¨‹è†¨ã‚Œä¸ŠãŒã£ã¦ã—ã¾ã„ã¾ã™ã€‚ ä»Šå›žã¯ã€ãã‚“ãªå¢—ãˆã™ãŽãŸãƒ†ã‚¹ãƒˆã‚³ãƒ¼ãƒ‰ã®å½±éŸ¿ã§ãƒ•ãƒ«ãƒ†ã‚¹ãƒˆã«æ™‚é–“ãŒã‹ã‹ã£ã¦ã„ã‚‹ãƒ—ãƒã‚¸ã‚§ã‚¯ãƒˆã®ãŸã‚ã«ã€ãƒ†ã‚¹ãƒˆé«˜é€ŸåŒ–ã‚’å®Ÿç¾ã™ã‚‹ãŸã‚ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¨ãã®ä½¿ã„æ–¹ã«ã¤ã„ã¦ç´¹ä»‹ã—ãŸã„ã¨æ€ã„ã¾ã™ã€‚ ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯ã€App::Ikarosã¨ã„ã†ã‚‚ã®ã§ã€ç¾åœ¨version 0.02ãŒãƒªãƒªãƒ¼ã‚¹ã•ã‚Œã¦ã„ã¾ã™ã€‚ ä½¿ã„æ–¹ç‰ã¯ã“ã“ã«ã¾ã¨ã‚ã¦ã‚ã‚‹ã®ã§(éšæ™‚æ›´æ–°ã™ã‚‹äºˆå®š)ã€ã“ã®è¨˜äº‹ã§ã¯ã©ã®ã‚ˆã†ãªã“ã¨ãŒã§ãã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãªã®ã‹ã‚’ã–ã£ã¨èª¬æ˜Žã—ã‚ˆã†ã¨æ€ã„ã¾ã™ã€‚ ã¾ãšã€ã–ã£ãã‚Šã¨ã§ã™ãŒApp::IkarosãŒæä¾›ã™ã‚‹æ©Ÿèƒ½ã«ã¯ä»¥ä¸‹ã®æ§˜ãªã‚‚ã®ãŒã‚ã‚Šã¾ã™ã€‚ å¤šæ•°ã®ãƒŽãƒ¼ãƒ‰ã«ã‚ˆã‚‹åˆ†æ•£ãƒ†ã‚¹ãƒˆå®Ÿè¡Œ forkproveã«ã‚ˆã‚‹ãƒ†ã‚¹ãƒˆå®Ÿè¡Œã®é«˜é€ŸåŒ– Devel::C
issm 2013/11/25
perl

test
ãƒªãƒ³ã‚¯
perl ãª web application ã®ãŸã‚ã®ãƒ†ã‚¹ãƒˆæƒ…å ± ã‚’ #yapcasia ã§è©±ã—ã¦ãã¾ã—ãŸ - soh335 memo
yapc::asia 2013 ã§ perl ã® test å›žã‚Šã®è©±ã‚’ã—ã¦ãã¾ã—ãŸã€‚ åŽ»å¹´ã‹ã‚‰ãƒ†ã‚¹ãƒˆã«ã¤ã„ã¦è‰²ã€…å–ã‚Šçµ„ã‚“ã§ã„ãŸæ‰€ã§ã€å®Ÿéš›ã©ã†ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã©ã†ã‚³ãƒ¼ãƒ‰ã‚’æ›¸ã„ã¦ã‚‹ã‹ã£ã¦ã„ã†èª¬æ˜ŽãŒå‡ºæ¥ãŸã¨æ€ã„ã¾ã™ã€‚ ä»–ã®äººãŒã©ã†ã„ã†ãƒ†ã‚¹ãƒˆã‚’æ›¸ã„ã¦ã„ã‚‹ã‹ã¨ã‹ã‚‚æ°—ã«ãªã‚‹ã®ã§ã€ãªã«ã‹æ°—ã«ãªã£ãŸã‚Šã—ãŸã‚‰è©±ã—ãŸã‚Šã—ãŸã„ã§ã™ã€‚ ç¶™ãŽè¶³ã—ã§ã‚¹ãƒ©ã‚¤ãƒ‰ã‚’ä½œã£ã¦ã„ãŸã‚‰ã€ test::mock::guard ã®ã‚³ãƒ¼ãƒ‰ã®èª¬æ˜ŽãŒãªããªã£ã¦ã„ã¦ã€ãªããªã£ã¦ã„ãŸã¨æ€ã£ãŸã‚‰å¾Œã‚ã‹ã‚‰å‡ºã¦ããŸã‚Šã€ä¹…ã—ã¶ã‚Šã«äººå‰ã§å–‹ã£ãŸã›ã„ã‹ã€çˆç²ã®ã‚¹ãƒˆãƒãƒ¼ã¨ãƒžã‚¤ã‚¯ã‚’é–“é•ãˆã¦å–‹ã£ãŸã‚Šã—ã¾ã—ãŸã€‚ 335ã•ã‚“ã“ã†ã„ã†ã‚ãƒ£ãƒ©ã®äººã ã£ãŸã®ã‹ã€‚â€” ãƒ€ãƒ¡äººé–“ (@dameninngenn) September 20, 2013 335ã€Œã³ã£ãã‚Šã ï¼ã€è´è¡†ï¼ˆã“ã£ã¡ãŒã ï¼‰ #yapcasiaâ€” ã²ã•ã„ã¡ (@hisaichi5518) September 20,
issm 2013/09/22
yapcasia2013

slide

perl

test
ãƒªãƒ³ã‚¯
ãƒ†ã‚¹ãƒˆã«ã‚³ã‚±ã‚‹åº¦ã«ã‚·ãƒ¼ã‚¶ãƒ¼ãŒæ»ã¬ä»•çµ„ã¿ã‚’ä½œã‚Šã¾ã—ãŸ - ãã®æ‰‹ã®å¹³ã¯å°»ã‚‚ã¤ã‹ã‚ã‚‹ã•
ã‚¿ã‚¤ãƒˆãƒ«ã¯é‡£ã‚Šã§ã™ã€‚ App::WithSound ã‚’ãƒªãƒªãƒ¼ã‚¹è‡´ã—ã¾ã—ãŸã€‚ https://github.com/moznion/App--WithSound https://metacpan.org/module/MOZNION/App-WithSound-v1.0.2/with-sound (2013.03.06 è¿½è¨˜) App::WithSound ã¯v1.1.0 ã«ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã‚¢ãƒƒãƒ—ã—ã¾ã—ãŸã€‚ ã‚³ãƒžãƒ³ãƒ‰ã®æˆåŠŸãƒ»å¤±æ•—æ™‚ã ã‘ã§ãªãã€ã‚³ãƒžãƒ³ãƒ‰ã®å®Ÿè¡Œä¸ã«ã‚‚éŸ³å£°ã‚’å†ç”Ÿå‡ºæ¥ã‚‹ã‚ˆã†ã«ãªã£ã¦ã„ã¾ã™ã€‚ https://metacpan.org/module/MOZNION/App-WithSound-v1.1.0/with-sound (è¿½è¨˜ã“ã“ã¾ã§) App::WithSound? ã‚³ãƒžãƒ³ãƒ‰ãŒæˆåŠŸã™ã‚‹ã‹å¤±æ•—ã™ã‚‹ã‹ã«ã‚ˆã£ã¦ã€ãã®çµæžœã«å¯¾å¿œã—ãŸéŸ³å£°ãŒæµã‚Œã‚‹ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã§ã™ã€‚ ã¾ãšã€ã“ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã¯m
issm 2013/03/05
app-withsound

perl

test

cpan
ãƒªãƒ³ã‚¯
Test::mysqld + perl -d ã‚’ä½¿ã†ã¨ SQLãŒãã®ã¾ã¾å©ã‘ã¦ä¾¿åˆ© - k12uã®ã‚¢ãƒ¬
id:zigorou å…ˆç”Ÿã«æ•™ãˆã¦ã‚‚ã‚‰ã£ãŸæŠ€ã‚’ãƒ¡ãƒ¢ã€‚ (ã‚ã¨ã§èª¿ã¹ã¦ã¿ãŸã‚‰ http://perl-users.jp/articles/advent-calendar/2010/hacker/1 ã§ã™ã§ã«è¨€åŠã•ã‚Œã¦ã„ã¾ã—ãŸãŒã€SQLå©ã‘ã‚‹ã¨ã„ã†ã¨ã“ã‚ã ã‘å¼·èª¿ã—ã¦å†æŽ²) ã¾ãšãƒ†ã‚¹ãƒˆã‚’ç”¨æ„ã—ã¾ã™ã€‚ [kawamoto.m@mm1:~]$ cat 01.t use Test::More; use Test::mysqld; my $mysqld = Test::mysqld->new( my_cnf => { 'skip-networking' => '', # no TCP socket } ) or plan skip_all => $Test::mysqld::errstr; ok(1); done_testing;perl -d ã§testã‚’èµ°ã‚‰ã›ã¾ã™ã€‚ [kawamoto.m@mm1:
issm 2013/01/11
perl

test

mysql

test-mysqld
ãƒªãƒ³ã‚¯
ãŠãã‚‰ãã¯ãã‚Œã•ãˆã‚‚å¹³å‡¡ãªæ—¥ã€…: é‹ç”¨ã«ãŠã‘ã‚‹crontabã®ãƒ†ã‚¹ãƒˆã¨Parse::Crontab
Vixie cronå½¢å¼ã®crontabã‚’parseã™ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ãƒªãƒªãƒ¼ã‚¹ã—ã¾ã—ãŸã€‚ Vixie cronã¨è¨€ãˆã°ã€ã‘ã‚“ã˜ãŠã˜ã•ã‚“ã«ã€Œã‚«ãƒ“è‡ã„ã€ã¨ã‹disã‚‰ã‚Œãã†ãªä»£ç‰©ã§ã™ãŒã€ãªã‚“ã ã‹ã‚“ã ã§åˆ©ç”¨ã—ã¦ã„ã‚‹äººã¯å¤šã„ã§ã—ã‚‡ã†ã—ã€åƒ•ã‚‚ä½¿ã£ã¦ã„ã¾ã™ã€‚ https://metacpan.org/release/Parse-Crontab æœ€è¿‘æºã‚ã‚‹ãƒ—ãƒã‚¸ã‚§ã‚¯ãƒˆã§ã¯crontabã¯ãƒªãƒã‚¸ãƒˆãƒªç®¡ç†ã—ã¦ã„ã‚‹ã®ã§ã™ãŒã€ãã‚Œã‚’ã‚ã¾ã‚Šã¡ã‚ƒã‚“ã¨ãƒ†ã‚¹ãƒˆã‚’ã—ã¦ãªã‹ã£ãŸã®ã§ã€ãã‚Œã‚’è§£æ¶ˆã™ã¹ãæ›¸ãã¾ã—ãŸã€‚ ä»¥ä¸‹ã®æ§˜ã«ã€crontabã®ãƒ†ã‚¹ãƒˆã‚’æ›¸ãã“ã¨ãŒå¯èƒ½ã§ã™ã€‚ use strict; use Test::More; use Parse::Crontab; my $crontab = Parse::Crontab->new(file => 'data/crontab.txt'); ok $crontab->is_vali
issm 2013/01/06
ã€ŒVixie cronã€ã¨ã„ã†ã‚‚ã®ã‚’åˆã‚ã¦çŸ¥ã£ãŸï¼žï¼œ

cron

crontab

perl

test
ãƒªãƒ³ã‚¯
Amazon.co.jp: Perl ãƒ†ã‚¹ãƒ†ã‚£ãƒ³ã‚° ãƒãƒ³ãƒ‰ãƒ–ãƒƒã‚¯: tokuhirom: Digital Ebook Purchas
issm 2012/11/14
perl

test

amazon

kindle

ebok
ãƒªãƒ³ã‚¯
ã€è¿½è¨˜ã‚ã‚Šã€‘ã€ŽPerlãƒ†ã‚¹ãƒ†ã‚£ãƒ³ã‚°ãƒãƒ³ãƒ‰ãƒ–ãƒƒã‚¯ã€ã‚’iPhoneã®Kindleã‚¢ãƒ—ãƒªã§èªã‚“ã§ã¿ãŸ | hirobanex.net
Kindleæ—¥æœ¬ç™ºå£²ã®é›»åæ›¸ç±ãƒ–ãƒ¼ãƒ ã®å…ˆé§†ã‘?ã¨ã—ã¦å…ˆæ—¥ã€miyagawaã•ã‚“ãŒPlackã®é›»åæ›¸ç±ã‚’å‡ºã—ã¦ã„ã‚‰ã£ã—ã‚ƒã„ã¾ã—ãŸãŒã€ç¶šã„ã¦tokuhiromã•ã‚“ã‚‚Perlã®ãƒ†ã‚¹ãƒˆã®é›»åæ›¸ç±ã‚’å‡ºã•ã‚ŒãŸã®ã§æ—©é€Ÿèªã‚“ã æ„Ÿæƒ³ã¨ã‹ã‚’ã°ã€‚ã€2012/11/28:kindleã«ã¤ã„ã¦è¿½è¨˜ã€‘ã€2012/12/02:ã€ŽPerlãƒ†ã‚¹ãƒ†ã‚£ãƒ³ã‚°ãƒãƒ³ãƒ‰ãƒ–ãƒƒã‚¯ã€€Version 4 ã€ã«ã¤ã„ã¦è¿½è¨˜ã€‘ é›»åæ›¸ç±ãƒ–ãƒ¼ãƒ ! 2012/11ã®ä¸æ—¬ã«(ã‚‚ã†ã™ãâ™ª)KindleãŒæ—¥æœ¬ã§ç™ºå£²ã«ãªã‚‹ã¨ã„ã†ã“ã¨ã§ã€ç›®ä¸‹ç©ºå‰ã®Kindleå¯¾å¿œé›»åæ›¸ç±ãƒ–ãƒ¼ãƒ ã§ã™ã!!ã¨ã‚Šã‚ãˆãšã€ãƒãƒ¼ãƒ‰ã‚¦ã‚§ã‚¢ã¨ã—ã¦ã®Kindleç™ºå£²å‰ã«Kindleã®iPhoneã‚¢ãƒ—ãƒªã®Kindle for iphoneã§é›»åæ›¸ç±ã‚’èªã‚€ã®ã£ã¦ã©ã‚“ãªã‚‚ã‚“ã ã‚ã†?ã¨ã„ã†ã®ã‚’æ¤œè¨¼ã—ã¤ã¤ã€ã›ã£ã‹ãPerlã«è¨ªã‚ŒãŸæ–°ã—ã„æƒ…å ±æ‹¡æ•£ã®æ½®æµã‚’ç››ã‚Šä¸Šã’ãŸãã¦ã€tokuhiromã•ã‚“ã®ã€ŽPerlãƒ†
issm 2012/11/14
iPhoneã§Kindleã§ãã‚‹ã®ã‹ï¼Žã“ã‚Œã¯æ—ã‚Šãã†ï¼

perl

test

ebook

kindle
ãƒªãƒ³ã‚¯
Perl ãƒ†ã‚¹ãƒ†ã‚£ãƒ³ã‚°ãƒãƒ³ãƒ‰ãƒ–ãƒƒã‚¯ã¨ã„ã†é›»åæ›¸ç±ã‚’ã ã—ã¦ã¿ãŸ - tokuhirom's blog
ä¸»ã« KDP ã‚’ãŸã‚ã—ã¦ã¿ãŸã„ã¨ã„ã†ç†ç”±ã§ã™ãŒã€ã ã—ã¦ã¿ã¾ã—ãŸã€‚ Perl ã§ Test ã‚’æ›¸ãã¨ãã®ãƒã‚¤ãƒ³ãƒˆã‚’æŠ¼ã•ãˆã¦ã¡ã„ã•ãã¾ã¨ã‚ã¦ã„ã¾ã™ã€‚ãƒœãƒªãƒ¥ãƒ¼ãƒ çš„ã«ã¯ã¡ã‚‡ã£ã¨ã—ãŸå°å†Šåç¨‹åº¦ã§ã™ã€‚æœ¬å½“ã«è‡ªåˆ†ã§å®Ÿè·µã«ã¤ã‹ã£ãŸã“ã¨ãŒã‚ã‚‹ã‚‚ã®ã—ã‹ã®ã›ã¦ãªã„ã®ãŒã²ã¨ã¤ã®ç‰¹å¾´ã§ã™ã€‚ ä»Šå›žã¯ pandoc ã§ã¤ãã£ã¦ã¿ã¾ã—ãŸã€‚ gumroad ã‹ã‚‰ã‚‚è²·ãˆã‚‹ã‚ˆã†ã«ã—ã¦ã¿ã¾ã—ãŸ ãªãŠç›®æ¬¡ã¯ä»¥ä¸‹ã®ã¨ãŠã‚Š - å‰æ›¸ã - å¯¾è±¡èªè€… - ãªã«ã¯ã®ã£ã¦ã„ãªã„ã‹ - æƒ³å®šç’°å¢ƒ - ã‚«ã‚¤ã‚¼ãƒ³ - Test::More ã‚’ã‚‚ã¡ã„ãŸåŸºæœ¬çš„ãªãƒ†ã‚¹ãƒˆ - ä¾¿åˆ©ãªãƒ¦ãƒ¼ãƒ†ã‚£ãƒªãƒ†ã‚£é–¢æ•° - is é–¢æ•° - cmp\_ok é–¢æ•° - is\_deeply($a, $b[, $msg]); - like($got, $regexp[, $msg]); - subtest é–¢æ•°ã§ãƒ†ã‚¹ãƒˆã‚±ãƒ¼ã‚¹ã‚’ãƒã‚¹ãƒˆã•ã›ã‚‹ - Test::More ã‚’ãŸã™ã‘ã‚‹ãƒ©
issm 2012/11/12
ebook

perl

test

kindle
ãƒªãƒ³ã‚¯
Test::Pretty supports prove! - tokuhirom's blog
Test::Pretty now supports prove command! You can use it as following command line: % prove -PPretty t/Output is here: Yes. It's not modified. But you adds '-v' option to prove, then you get cool output. % prove -PPretty -v t/ If you are testing only one file, output is more optimized: % prove -PPretty t/02_op.tResult code is here: That's all. Enjoy testing!
issm 2012/11/07
perl

test

test-pretty
ãƒªãƒ³ã‚¯
1 2 3 æ¬¡ã®ãƒšãƒ¼ã‚¸