From 56947ad5bbf0df7d35111010d0d5b7b3c19329cf Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 27 May 2020 17:51:42 +1000 Subject: Removed Follow, Path; Added LNode, LEdge, Node_Path, Edge_Path, Contains functions for Paths --- test/graph_tests-modify.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'test/graph_tests-modify.adb') diff --git a/test/graph_tests-modify.adb b/test/graph_tests-modify.adb index 0c1d5d9..74f62a9 100644 --- a/test/graph_tests-modify.adb +++ b/test/graph_tests-modify.adb @@ -26,7 +26,7 @@ package body Graph_Tests.Modify is if Copy_Graph.To_Cursor (To_Insert) /= Graphs.No_Element then return Fail; end if; - Copy_Graph.Insert (To_Insert, Node_Label (+"HAHA")); + Copy_Graph.Insert (Graphs.Labeled_Node_Type'(To_Insert, Node_Label (+"HAHA"))); if Copy_Graph.To_Cursor (To_Insert) = Graphs.No_Element or else not Copy_Graph.Has_Label (To_Insert) or else Copy_Graph.Label (To_Insert) /= Node_Label (+"HAHA") @@ -60,7 +60,7 @@ package body Graph_Tests.Modify is return Fail; end if; To_Edge := Copy_Graph.Unused; - Copy_Graph.Insert ((To_Edge, 5, 11), Edge_Label (+"LOL")); + Copy_Graph.Insert (Graphs.Labeled_Edge_Type'((To_Edge, 5, 11), Edge_Label (+"LOL"))); if not Copy_Graph.Has_Edge (5, 11) or else not Copy_Graph.Has_Label ((To_Edge, 5, 11)) or else Copy_Graph.Label ((To_Edge, 5, 11)) /= Edge_Label (+"LOL") -- cgit