summaryrefslogtreecommitdiff
path: root/test/graph_tests-modify.adb
diff options
context:
space:
mode:
Diffstat (limited to 'test/graph_tests-modify.adb')
-rw-r--r--test/graph_tests-modify.adb4
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")