test/rat_tests-tokens.ads


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


--  This source is licensed under the Sunset License v1.0


with Unit_Tests;
use Unit_Tests;


package Rat_Tests.Tokens is


    function Adjust_Check return Test_Result;
    function Equals_Check return Test_Result;
    function Store_Check return Test_Result;

    Tests : Test_Array :=
       ((+"Adjust", Adjust_Check'Access),
        (+"Equals", Equals_Check'Access),
        (+"Storage", Store_Check'Access));


end Rat_Tests.Tokens;