Perlã®Test Tips　メソッド内ã§é¢å€’ãªé–¢æ•°ãŒå‘¼ã°ã‚Œã¦ã„ã‚‹ã‹ã‚‰ã€å›žé¿ã—ãŸã„å ´åˆ - QiitaPerlã®ãƒ†ã‚¹ãƒˆã‚’作ã£ã¦ã„ã‚‹ã¨ãã€ã‚るメソッドã§å‘¼ã°ã‚Œã¦ã„る関数ãŒé‚ªé”ãªã®ã§ã€ä»»æ„ã®å€¤ã‚’è¿”ã™ã‚ˆã†ãªãƒ¢ãƒƒã‚¯ã«ã—ãŸã„å ´åˆã€‚ 邪é”ãªé–¢æ•° ï¼ ä¾‹ãˆã°ã€ãã®é–¢æ•°ã¯ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯ã‚¢ã‚¯ã‚¹ãŒå¿…è¦ã¨ã‹ã€DBアクセスã—ã¦ã€ç‰¹å®šã®ãƒ‡ãƒ¼ã‚¿ã‚»ãƒƒãƒˆãŒå¿…è¦ã¨ã‹ã€‚ package TestTargetXXX; use Some::Module qw(getIDfromDB); sub sample_func { my $self = shift; my %param = @_; my $id = &getIDfromDB($param{key}); # (ç•¥) return $key_code; } subtest "sample_func test." => sub { my $obj = TestTargetXXX->new(); %param = (key => 'XXX'); $rtn = $obj->sampe
社内勉強会ã§ã‚ªãƒ–ジェクト指å‘ã«ã¤ã„ã¦LTã—ã¾ã—㟠| Nekoya press
{{#tags}}- {{label}}
{{/tags}}