annotate _test/object.t @ 31:d59526f6310e

Small fixes to Test framework (correct handlinf of the compilation errors in the test units) Imported and refactored SQL DB schema from the old project
author Sergey
date Mon, 09 Nov 2009 01:39:16 +0300
parents 2e546a5175dd
children 16ada169ca75
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
1 #!/usr/bin/perl -w
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
2 use strict;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
3 use lib '../Lib';
3
2e546a5175dd in developing
Sergey
parents: 2
diff changeset
4 use lib '.';
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
5
3
2e546a5175dd in developing
Sergey
parents: 2
diff changeset
6 use IMPL::Test::Plan;
2e546a5175dd in developing
Sergey
parents: 2
diff changeset
7 use IMPL::Test::TAPListener;
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
8
3
2e546a5175dd in developing
Sergey
parents: 2
diff changeset
9 my $plan = new IMPL::Test::Plan qw(
2e546a5175dd in developing
Sergey
parents: 2
diff changeset
10 Test::Object::Common
2e546a5175dd in developing
Sergey
parents: 2
diff changeset
11 Test::Object::List
2e546a5175dd in developing
Sergey
parents: 2
diff changeset
12 );
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
13
3
2e546a5175dd in developing
Sergey
parents: 2
diff changeset
14 $plan->AddListener(new IMPL::Test::TAPListener);
2e546a5175dd in developing
Sergey
parents: 2
diff changeset
15 $plan->Prepare();
2e546a5175dd in developing
Sergey
parents: 2
diff changeset
16 $plan->Run();