|
49
|
1 package IMPL::Test::HarnessRunner;
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
|
5 use base qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable);
|
|
|
6 use IMPL::Class::Property;
|
|
|
7 use Test::Harness;
|
|
|
8
|
|
|
9 __PACKAGE__->PassThroughArgs;
|
|
|
10
|
|
|
11 BEGIN {
|
|
|
12 public property Strap => prop_all;
|
|
|
13 }
|
|
|
14
|
|
|
15 sub CTOR {
|
|
|
16 my $this = shift;
|
|
|
17
|
|
|
18 die new IMPL::InvalidArgumentException("The Strap parameter must be specified") unless $this->Strap;
|
|
|
19 }
|
|
|
20
|
|
|
21 sub RunTests {
|
|
|
22 my ($this,@files) = @_;
|
|
|
23
|
|
|
24 local $Test::Harness::Strap = $this->Strap;
|
|
|
25
|
|
|
26 return runtests(@files);
|
|
|
27 }
|
|
|
28
|
|
|
29 sub ExecuteTests {
|
|
|
30 my ($this,%args) = @_;
|
|
|
31
|
|
|
32 local $Test::Harness::Strap = $this->Strap;
|
|
|
33
|
|
|
34 return Test::Harness::execute_tests(%args);
|
|
|
35 }
|
|
|
36
|
|
|
37 1;
|
