27
28
29
30
31
32
33
34
35
36
|
package NT renames Natools.Tests;
procedure All_Tests (Report : in out NT.Reporter'Class);
-- Run all available tests
procedure Hexadecimal_Test (Report : in out NT.Reporter'Class);
procedure Base64_Test (Report : in out NT.Reporter'Class);
-- Run test suite for each encoding type
end Natools.S_Expressions.Encodings.Tests;
|
>
|
27
28
29
30
31
32
33
34
35
36
37
|
package NT renames Natools.Tests;
procedure All_Tests (Report : in out NT.Reporter'Class);
-- Run all available tests
procedure Hexadecimal_Test (Report : in out NT.Reporter'Class);
procedure Base64_Test (Report : in out NT.Reporter'Class);
procedure User_Base64_Test (Report : in out NT.Reporter'Class);
-- Run test suite for each encoding type
end Natools.S_Expressions.Encodings.Tests;
|