Mercurial > pub > Impl
annotate _test/run_tests.pl @ 128:08753833173d
Fixed a error handling issue in JSON output: errors are correctly transfered
A complete documentation for a IMPL::Web::Application::ControllerUnit
| author | wizard |
|---|---|
| date | Tue, 15 Jun 2010 02:41:07 +0400 |
| parents | 16ada169ca75 |
| children | d1676be8afcc |
| rev | line source |
|---|---|
| 49 | 1 #!/usr/bin/perl |
| 2 use strict; | |
| 3 use warnings; | |
| 4 | |
| 5 use lib '../Lib'; | |
| 6 use lib '.'; | |
| 7 | |
| 8 use IMPL::Test::HarnessRunner; | |
| 9 use IMPL::Test::Straps; | |
| 10 | |
| 11 my $runner = new IMPL::Test::HarnessRunner( | |
| 12 Strap => new IMPL::Test::Straps () | |
| 13 ); | |
| 14 | |
| 15 $runner->Strap->Executors( | |
| 16 { | |
| 17 Re => '.*', | |
| 18 Executor => $runner->Strap | |
| 19 } | |
| 20 ); | |
| 21 | |
| 22 $runner->RunTests(<*.t>); | |
| 23 | |
| 24 1; |