Mercurial > pub > Impl
annotate _test/run_tests.pl @ 14:65a7bb156fb7
Дом модель и схема
author | Sergey |
---|---|
date | Fri, 04 Sep 2009 16:38:15 +0400 |
parents | e59f44f75f20 |
children | 818c74b038ae |
rev | line source |
---|---|
4 | 1 #!/usr/bin/perl |
2 use strict; | |
3 use warnings; | |
4 | |
5 use IMPL::Test::HarnessRunner; | |
6 use IMPL::Test::Straps; | |
7 | |
8 my $runner = new IMPL::Test::HarnessRunner( | |
9 Strap => new IMPL::Test::Straps () | |
10 ); | |
11 | |
12 $runner->Strap->Executors( | |
13 { | |
14 Re => '.*', | |
15 Executor => $runner->Strap | |
16 } | |
17 ); | |
18 | |
19 $runner->RunTests(<*.t>); | |
20 | |
21 1; |