blob: 404e690fb3404a18ba718692cc118446c69b159c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
with
Ada.Text_IO,
Ratnest.Tests;
use
Ada.Text_IO,
Ratnest,
Ratnest.Tests;
procedure Test_Main is
begin
Put_Line ("Running tests for Packrat.Errors...");
Run_Tests (Error_Tests);
New_Line;
Put_Line ("Running tests for Packrat.Tokens...");
Run_Tests (Token_Tests);
New_Line;
Put_Line ("Running tests for Packrat.Util...");
Put_Line ("Testing set predicates...");
Run_Tests (Set_Predicate_Tests);
Put_Line ("Testing ordinary predicates...");
Run_Tests (Util_Predicate_Tests);
end Test_Main;
|