文件操作 - 05_errors.t
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-CPAN-Meta/t/parse-cpan-meta/05_errors.t
编辑文件内容
#!/usr/bin/perl delete $ENV{PERL_YAML_BACKEND}; delete $ENV{PERL_JSON_BACKEND}; # Testing of basic document structures use strict; BEGIN { $| = 1; $^W = 1; } use Test::More tests => 1; use Parse::CPAN::Meta (); my $one = <<'END_YAML'; --- - foo: - bar END_YAML my $one_scalar_tiny = eval { Parse::CPAN::Meta->load_yaml_string( $one ) }; like( $@, '/illegal characters/', "error causes exception");
修改文件时间
将文件时间修改为当前时间的前一年
删除文件