annotate _test/object.t @ 24:7f00786f8210
Первая рабочая реазизация схемы и навигаторов
| author |
Sergey |
| date |
Mon, 05 Oct 2009 00:48:49 +0400 |
| parents |
2e546a5175dd |
| children |
16ada169ca75 |
| rev |
line source |
|
0
|
1 #!/usr/bin/perl -w
|
|
|
2 use strict;
|
|
|
3 use lib '../Lib';
|
|
3
|
4 use lib '.';
|
|
0
|
5
|
|
3
|
6 use IMPL::Test::Plan;
|
|
|
7 use IMPL::Test::TAPListener;
|
|
0
|
8
|
|
3
|
9 my $plan = new IMPL::Test::Plan qw(
|
|
|
10 Test::Object::Common
|
|
|
11 Test::Object::List
|
|
|
12 );
|
|
0
|
13
|
|
3
|
14 $plan->AddListener(new IMPL::Test::TAPListener);
|
|
|
15 $plan->Prepare();
|
|
|
16 $plan->Run();
|
