407
|
1 package IMPL::Test::HarnessRunner;
|
|
2 use strict;
|
|
3 use warnings;
|
|
4
|
|
5 use TAP::Parser;
|
|
6 use Test::Harness;
|
|
7
|
411
|
8 use IMPL::declare {
|
|
9 base => [
|
|
10 'IMPL::Object' => undef,
|
|
11 'IMPL::Object::Serializable' => undef
|
|
12 ]
|
|
13 };
|
407
|
14
|
|
15 sub RunTests {
|
|
16 my ($this,@files) = @_;
|
|
17
|
|
18 return runtests(@files);
|
|
19 }
|
|
20
|
|
21 sub ExecuteTests {
|
|
22 my ($this,%args) = @_;
|
|
23
|
|
24 return Test::Harness::execute_tests(%args);
|
|
25 }
|
|
26
|
|
27 1;
|