文件操作 - capture.t
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Test-Simple/t/Legacy/capture.t
编辑文件内容
use strict; use Test::Tester; my $Test = Test::Builder->new; $Test->plan(tests => 3); my $cap; $cap = Test::Tester->capture; { no warnings 'redefine'; sub Test::Tester::find_run_tests { return 0}; } local $Test::Builder::Level = 0; { my $cur = $cap->current_test; $Test->is_num($cur, 0, "current test"); eval {$cap->current_test(2)}; $Test->ok($@, "can't set test_num"); } { $cap->ok(1, "a test"); my @res = $cap->details; $Test->is_num(scalar @res, 1, "res count"); }
修改文件时间
将文件时间修改为当前时间的前一年
删除文件