1with AUnit;
2with AUnit.Test_Cases;
3with Ada.Strings.Unbounded;
4
5package Test.Big_Number_Swap is
6	use AUnit;
7	use Ada.Strings.Unbounded;
8
9	type Big_Number_Test is new Test_Cases.Test_Case with null record;
10
11	procedure Register_Tests(T: in out Big_Number_Test);
12
13	function Name(T: Big_Number_Test) return Test_String;
14
15	procedure Constants;
16
17	procedure Big_Number_Test1(T: in out Test_Cases.Test_Case'Class);
18
19	procedure Big_Number_Test2(T: in out Test_Cases.Test_Case'Class);
20
21	procedure Big_Number_Test3(T: in out Test_Cases.Test_Case'Class);
22
23	procedure Big_Number_Test4(T: in out Test_Cases.Test_Case'Class);
24
25end	Test.Big_Number_Swap;
26