diff options
Diffstat (limited to 'test/graph_tests-search.adb')
| -rw-r--r-- | test/graph_tests-search.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/test/graph_tests-search.adb b/test/graph_tests-search.adb index 54b51a4..17c2cbb 100644 --- a/test/graph_tests-search.adb +++ b/test/graph_tests-search.adb @@ -64,7 +64,9 @@ package body Graph_Tests.Search is is Copy_Graph : Graphs.Graph := My_Nonempty_Graph; begin - if Copy_Graph.Contains (Node_ID (20)) or + if Copy_Graph.Contains (Graphs.No_Node) or + Copy_Graph.Contains (Graphs.No_Node, Node_Label (+"ABC")) or + Copy_Graph.Contains (Node_ID (20)) or not Copy_Graph.Contains (Node_ID (2)) or Copy_Graph.Contains (Edge_ID (20)) or not Copy_Graph.Contains (Edge_ID (7)) or @@ -114,7 +116,9 @@ package body Graph_Tests.Search is Branch_1 : Graphs.Cursor := Copy_Graph.To_Cursor (5); Branch_2 : Graphs.Cursor := Copy_Graph.To_Cursor (2); begin - if Graphs.Contains_In_Subgraph (Branch_1, Node_ID (2)) or + if Graphs.Contains_In_Subgraph (Branch_1, Graphs.No_Node) or + Graphs.Contains_In_Subgraph (Branch_1, Graphs.No_Node, Node_Label (+"ABC")) or + Graphs.Contains_In_Subgraph (Branch_1, Node_ID (2)) or not Graphs.Contains_In_Subgraph (Branch_1, Node_ID (10)) or Graphs.Contains_In_Subgraph (Branch_1, (2, 2, 3)) or not Graphs.Contains_In_Subgraph (Branch_1, (13, 7, 5)) or |