view _test/run_tests.pl @ 7:94d47b388442

Улучшены тесты Исправлены ошибки Улучшена документация Работа над схемой DOM
author Sergey
date Mon, 24 Aug 2009 01:05:34 +0400
parents e59f44f75f20
children 818c74b038ae
line wrap: on
line source

#!/usr/bin/perl
use strict;
use warnings;

use IMPL::Test::HarnessRunner;
use IMPL::Test::Straps;

my $runner = new IMPL::Test::HarnessRunner(
    Strap => new IMPL::Test::Straps ()
);

$runner->Strap->Executors(
    {
        Re => '.*',
        Executor => $runner->Strap
    }
);

$runner->RunTests(<*.t>);

1;