test/graph_tests-curses.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
26
27
28
29


with Unit_Tests;
use Unit_Tests;


package Graph_Tests.Curses is


    function First_Check return Test_Result;
    function Last_Check return Test_Result;
    function Next_Check return Test_Result;
    function Previous_Check return Test_Result;
    function Follow_Check return Test_Result;
    function Cursor_To_Check return Test_Result;


    Tests : Test_Array :=
       ((+"First", First_Check'Access),
        (+"Last", Last_Check'Access),
        (+"Next", Next_Check'Access),
        (+"Previous", Previous_Check'Access),
        (+"Follow", Follow_Check'Access),
        (+"Cursor_To", Cursor_To_Check'Access));


end Graph_Tests.Curses;