文件操作 - versions.t
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Test-Simple/t/Legacy/versions.t
编辑文件内容
#!/usr/bin/perl -w # HARNESS-NO-PRELOAD # Make sure all the modules have the same version # # TBT has its own version system. use strict; use Test::More; require Test::Builder; require Test::Builder::Module; require Test::Simple; my $dist_version = Test::More->VERSION; like( $dist_version, qr/^ \d+ \. \d+ $/x ); my @modules = qw( Test::Simple Test::Builder Test::Builder::Module ); for my $module (@modules) { is( $dist_version, $module->VERSION, $module ); } done_testing(4);
修改文件时间
将文件时间修改为当前时间的前一年
删除文件