-
Notifications
You must be signed in to change notification settings - Fork 20
/
test-suite_all.adb
29 lines (28 loc) · 1.1 KB
/
test-suite_all.adb
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
with Test.Suite_Asymmetric_Ciphers;
with Test.Suite_Big_Num_All;
with Test.Suite_Blockciphers;
with Test.Suite_Oneway_Blockciphers;
with Test.Suite_Elliptic_Curves;
with Test.Suite_MAC;
with Test.Suite_Hash_Function;
with Test.Suite_Nonces;
with Test.Suite_Misc;
with Test.Suite_Key_Derivation_Function;
package body Test.Suite_All is
function Suite return Test_Suites.Access_Test_Suite is
use AUnit.Test_Suites;
Result : constant Access_Test_Suite := New_Suite;
begin
-- Result.Add_Test(Test.Suite_Asymmetric_Ciphers.Suite);
-- Result.Add_Test(Test.Suite_Big_Num_All.Suite);
-- Result.Add_Test(Test.Suite_Blockciphers.Suite);
-- Result.Add_Test(Test.Suite_Oneway_Blockciphers.Suite);
-- Result.Add_Test(Test.Suite_Elliptic_Curves.Suite);
-- Result.Add_Test(Test.Suite_MAC.Suite);
-- Result.Add_Test(Test.Suite_Hash_Function.Suite);
-- Result.Add_Test(Test.Suite_Nonces.Suite);
Result.Add_Test(Test.Suite_Misc.Suite);
-- Result.Add_Test(Test.Suite_Key_Derivation_Function.Suite);
return Result;
end Suite;
end Test.Suite_All;