1with AUnit; 2with AUnit.Test_Cases; 3with Ada.Strings.Unbounded; 4 5package Test.Big_Number_Multiplication 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 Results; 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 25 procedure Big_Number_Test5(T: in out Test_Cases.Test_Case'Class); 26 27 procedure Big_Number_Test6(T: in out Test_Cases.Test_Case'Class); 28 29 procedure Big_Number_Test7(T: in out Test_Cases.Test_Case'Class); 30 31end Test.Big_Number_Multiplication; 32