diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2020-05-27 17:51:42 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2020-05-27 17:51:42 +1000 |
| commit | 56947ad5bbf0df7d35111010d0d5b7b3c19329cf (patch) | |
| tree | 86a87e847aba9f4bb4a4cc3bd1c5e3e21afd3e66 /test/graph_tests-modify.adb | |
| parent | 7f56d08907ffdd192f4b4898bfb22c1dce8f1cd0 (diff) | |
Removed Follow, Path; Added LNode, LEdge, Node_Path, Edge_Path, Contains functions for PathsHEADmaster
Diffstat (limited to 'test/graph_tests-modify.adb')
| -rw-r--r-- | test/graph_tests-modify.adb | 4 |
1 files changed, 2 insertions, 2 deletions
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") |