perl - 在 Perl 中写入文件时测试错误处理的最简单方法是什么?
问题描述
我有一个沼泽标准 Perl 文件编写代码,具有(希望)足够的错误处理,类型:
open(my $fh, ">", "$filename") or die "Could not open file $filname for writing: $!\n";
# Some code to get data to write
print $fh $data or die "Could not write to file $filname: $!\n";
close $fh or die "Could not close file $filname afterwriting: $!\n";
# No I can't use File::Slurp, sorry.
(我只是凭记忆写了这段代码,请原谅任何错别字或错误)
在第一个“die”行中测试错误处理有点容易(例如,创建一个与您计划编写的名称相同的不可写文件)。
如何测试第二(打印)和第三(关闭)“死”行中的错误处理?
我知道在关闭时引发错误的唯一方法是在写入时耗尽文件系统上的空间,这作为测试并不容易。
我更喜欢集成测试类型的解决方案而不是单元测试类型(这将涉及在 Perl 中模拟 IO 方法)。
解决方案
使用错误的文件句柄会使它们都失败
use warnings;
use strict;
use feature 'say';
my $file = shift || die "Usage: $0 out-filename\n";
open my $fh, '>', $file or die "Can't open $file: $!";
$fh = \*10;
say $fh 'writes ok, ', scalar(localtime) or warn "Can't write: $!";
close $fh or warn "Error closing: $!";
印刷
say() 在未打开的文件句柄 10 上... 无法写入:错误的文件描述符在... close() 在未打开的文件句柄 10 上... 错误关闭:错误的文件描述符在...
例如,如果您不想看到 perl 的警告,请捕获它们$SIG{__WARN__}
并将您的消息打印到文件(或STDOUT
)中。
推荐阅读
- swift - 从嵌入式命令行工具访问共享钥匙串数据
- excel - Excel查找每个整数的最高十进制值
- android - 使用 Android ConstraintLayout 无法将视图居中
- amazon-web-services - 如何获取 RDS 端点以在 Userdata 中使用
- glsl - 每个对象具有不同纹理的 Vulkan 动态缓冲区
- javascript - three.js 水平 PlaneGeometry 在 x=0 y=0 z=0
- python - django-filter conjoined 没有按预期工作
- python - FileNotFoundError:[WinError 2]
- tensorflow - 从 n 个不同的描述中生成一组名词和动词,列出匹配一个名词和动词的描述
- webhooks - Zapier 正在绑定来自 GET 请求的数据响应?