文件操作 - depth.t
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-Test-Simple/t/Legacy/depth.t
编辑文件内容
use strict; use warnings; use lib 't/lib'; use Test::Tester; use MyTest; my $test = Test::Builder->new; $test->plan(tests => 2); sub deeper { MyTest::ok(1); } { my @results = run_tests( sub { MyTest::ok(1); deeper(); } ); local $Test::Builder::Level = 0; $test->is_num($results[1]->{depth}, 1, "depth 1"); $test->is_num($results[2]->{depth}, 2, "deeper"); }
修改文件时间
将文件时间修改为当前时间的前一年
删除文件