Linux server1.hosting4iran.com 4.18.0-553.89.1.el8_10.x86_64 #1 SMP Mon Dec 8 03:53:08 EST 2025 x86_64
LiteSpeed
Server IP : 185.208.174.156 & Your IP : 216.73.216.218
Domains : 282 Domain
User : satitravel
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
doc /
perl-Test-Simple /
examples /
Delete
Unzip
Name
Size
Permission
Date
Action
indent.pl
681
B
-rw-r--r--
2018-03-30 05:53
subtest.t
348
B
-rw-r--r--
2018-03-30 05:53
tools.pl
3
KB
-rw-r--r--
2018-03-30 05:53
tools.t
4.56
KB
-rw-r--r--
2018-03-30 05:53
Save
Rename
#!/usr/bin/env perl use strict; use warnings; use lib '../lib'; use Test::More tests => 3; ok 1; subtest 'some name' => sub { my $num_tests = 2 + int( rand(3) ); plan tests => $num_tests; ok 1 for 1 .. $num_tests - 1; subtest 'some name' => sub { plan 'no_plan'; ok 1 for 1 .. 2 + int( rand(3) ); }; }; ok 1;