目の前に僕らの道がある

勉強会とか、技術的にはまったことのメモ

2013-06-01から1ヶ月間の記事一覧

いつの間にかperlのTest::More::subtestのprototypeが消えてた

use strict; use warnings; use Test::More; sub okok { ok 1; } sub okokok { ok 1; } subtest 'ok' => sub { okok; }; my $foo = 1; subtest 'ng' => ($foo == 1 ? \&okok : \&okokok); done_testing; こんな超簡略化してますが、こんなテストコードを書い…