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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
with Unit_Tests;
use Unit_Tests;
package Rat_Tests.Utilities is
function In_Set_Check return Test_Result;
function Not_In_Set_Check return Test_Result;
Set_Predicate_Tests : Test_Array :=
((+"In_Set", In_Set_Check'Access),
(+"Not_In_Set", Not_In_Set_Check'Access));
function Is_Digit_Check return Test_Result;
function Is_Hex_Check return Test_Result;
function Is_Letter_Check return Test_Result;
function Is_Alphanumeric_Check return Test_Result;
function Is_Punctuation_Check return Test_Result;
function Is_ASCII_Check return Test_Result;
function Is_Extended_ASCII_Check return Test_Result;
function Is_Space_Check return Test_Result;
function Is_Linespace_Check return Test_Result;
function Is_End_Of_Line_Check return Test_Result;
function Is_Whitespace_Check return Test_Result;
function Not_Whitespace_Check return Test_Result;
Predicate_Tests : Test_Array :=
((+"Is_Digit", Is_Digit_Check'Access),
(+"Is_Hex", Is_Hex_Check'Access),
(+"Is_Letter", Is_Letter_Check'Access),
(+"Is_Alphanumeric", Is_Alphanumeric_Check'Access),
(+"Is_Punctuation", Is_Punctuation_Check'Access),
(+"Is_ASCII", Is_ASCII_Check'Access),
(+"Is_Extended_ASCII", Is_Extended_ASCII_Check'Access),
(+"Is_Space", Is_Space_Check'Access),
(+"Is_Linespace", Is_Linespace_Check'Access),
(+"Is_End_Of_Line", Is_End_Of_Line_Check'Access),
(+"Is_Whitespace", Is_Whitespace_Check'Access),
(+"Not_Whitespace", Not_Whitespace_Check'Access));
end Rat_Tests.Utilities;
|