Mercurial > pub > Impl
annotate Lib/IMPL/Test/HarnessRunner.pm @ 393:69a1f1508696
minor security refactoring
| author | cin |
|---|---|
| date | Fri, 14 Feb 2014 16:41:12 +0400 |
| parents | 5c82eec23bb6 |
| children |
| rev | line source |
|---|---|
| 49 | 1 package IMPL::Test::HarnessRunner; |
| 2 use strict; | |
| 3 use warnings; | |
| 4 | |
| 166 | 5 use parent qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable); |
| 232 | 6 |
| 180 | 7 use TAP::Parser; |
| 49 | 8 use Test::Harness; |
| 9 | |
| 10 __PACKAGE__->PassThroughArgs; | |
| 11 | |
| 12 | |
| 13 sub CTOR { | |
| 14 my $this = shift; | |
| 15 } | |
| 16 | |
| 17 sub RunTests { | |
| 18 my ($this,@files) = @_; | |
| 19 | |
| 20 return runtests(@files); | |
| 21 } | |
| 22 | |
| 23 sub ExecuteTests { | |
| 24 my ($this,%args) = @_; | |
| 25 | |
| 26 return Test::Harness::execute_tests(%args); | |
| 27 } | |
| 28 | |
| 29 1; |