エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
にひりずむ::しんぷる - chdir や mkdir や file open を繰り返すようなテストを書くとき
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
にひりずむ::しんぷる - chdir や mkdir や file open を繰り返すようなテストを書くとき
以下のような関数を用意しておくと便利ですね。 use strict; use warnings; use Cwd qw/getcwd/; use Fi... 以下のような関数を用意しておくと便利ですね。 use strict; use warnings; use Cwd qw/getcwd/; use File::Temp qw/tempdir/; sub safe_dir(&) { my $code = shift; my $cwd = getcwd; my $tmpdir = tempdir CLEANUP => 1; chdir $tmpdir or die $!; local $@; eval { $code->($tmpdir) }; chdir $cwd or die $!; croak $@ if $@; } こうしておけば、 use Test::More; subtest foo => sub { safe_dir { my $cwd = shift; mkdir 'hoge'; chdir 'hoge'; open my $f