30 lines
801 B
Ada
30 lines
801 B
Ada
with AUnit.Assertions;
|
|
use AUnit.Assertions;
|
|
with AUnit.Simple_Test_Cases;
|
|
use AUnit.Simple_Test_Cases;
|
|
|
|
package body VSSL.Integers.Big.Test is
|
|
|
|
Prefix : constant String := "VSSL.Integers.Big.";
|
|
|
|
type Representation_Test is new Test_Case with null record;
|
|
overriding function Name (T : Representation_Test) return AUnit.Message_String;
|
|
overriding procedure Run_Test (T : in out Representation_Test);
|
|
|
|
function Name (T : Representation_Test) return AUnit.Message_String is
|
|
(AUnit.Format (Prefix & "<Representation> test"));
|
|
|
|
procedure Run_Test (T : in out Representation_Test) is
|
|
begin
|
|
null;
|
|
end Run_Test;
|
|
|
|
function Suite return Access_Test_Suite is
|
|
R : Access_Test_Suite := new Test_Suite;
|
|
begin
|
|
R.Add_Test (new Representation_Test);
|
|
return R;
|
|
end;
|
|
|
|
end VSSL.Integers.Big.Test;
|