annotate _test/Web.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 94d47b388442
children 16ada169ca75
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
7
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
1 #!/usr/bin/perl -w
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
2 use strict;
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
3 use lib '../Lib';
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
4 use lib '.';
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
5
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
6 use IMPL::Test::Plan;
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
7 use IMPL::Test::TAPListener;
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
8
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
9 my $plan = new IMPL::Test::Plan qw(
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
10 Test::Web::TDocument
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
11 );
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
12
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
13 $plan->AddListener(new IMPL::Test::TAPListener);
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
14 $plan->Prepare();
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
15 $plan->Run();