with Unit_Tests;
use Unit_Tests;


package Graph_Tests.Basic is


    function To_Graph_Check return Test_Result;
    function Is_Empty_Check return Test_Result;
    function Clear_Check return Test_Result;
    function Cursor_Element_Check return Test_Result;


    Tests : Test_Array :=
       ((+"To_Graph", To_Graph_Check'Access),
        (+"Is_Empty", Is_Empty_Check'Access),
        (+"Clear", Clear_Check'Access),
        (+"To_Cursor, Has_Element, Element", Cursor_Element_Check'Access));


end Graph_Tests.Basic;