D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
usr
/
share
/
doc
/
perl-Test-Simple
/
t
/
Legacy
/
Tester
/
Filename :
tbt_09do.t
back
Copy
#!/usr/bin/perl use strict; use warnings; use Test::Builder::Tester tests => 3; use Test::More; use File::Basename qw(dirname); use File::Spec qw(); my $file = File::Spec->join(dirname(__FILE__), 'tbt_09do_script.pl'); $file = File::Spec->catfile(File::Spec->curdir(), $file) unless File::Spec->file_name_is_absolute($file); my $done = do $file; ok(defined($done), 'do succeeded') or do { if ($@) { diag qq( \$@ is '$@'\n); } elsif ($!) { diag qq( \$! is '$!'\n); } else { diag qq( file's last statement returned undef: $file) } };
Name
Size
Last Modified
Owner
Permissions
Actions
tbt_01basic.t
1.244
KB
March 30 2018 5:53:02
root
0644
tbt_02fhrestore.t
1.173
KB
March 30 2018 5:53:02
root
0644
tbt_03die.t
0.22
KB
March 30 2018 5:53:02
root
0644
tbt_04line_num.t
0.191
KB
March 30 2018 5:53:02
root
0644
tbt_05faildiag.t
0.805
KB
March 30 2018 5:53:02
root
0644
tbt_06errormess.t
3.024
KB
March 30 2018 5:53:02
root
0644
tbt_07args.t
5.152
KB
March 30 2018 5:53:02
root
0644
tbt_08subtest.t
0.262
KB
March 30 2018 5:53:02
root
0644
tbt_09do.t
0.568
KB
March 30 2018 5:53:02
root
0644
tbt_09do_script.pl
0.21
KB
March 30 2018 5:53:02
root
0644
2017 © D7net | D704T team