with Unit_Tests; use Unit_Tests; package Rat_Tests.Parse_Graphs is function Root_Check return Test_Result; function Finish_List_Check return Test_Result; function Sub_Nodes_Check return Test_Result; function Prune_Check return Test_Result; function Ambiguous_Check return Test_Result; Tests : Test_Array := ((+"Root getter, setter", Root_Check'Access), (+"Finish_List", Finish_List_Check'Access), (+"Sub_Nodes", Sub_Nodes_Check'Access), (+"Prune", Prune_Check'Access), (+"Is_Ambiguous", Ambiguous_Check'Access)); end Rat_Tests.Parse_Graphs;