summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2020-05-22 17:42:48 +1000
committerJed Barber <jjbarber@y7mail.com>2020-05-22 17:42:48 +1000
commit5bb4bfd85fb558380a8b06ac77d0e5b27aee1feb (patch)
treead81f63bf4d1cb727e3449fe71c9c0651a6cd808 /test
parent82a42674ba64c6386152a5910fd7345a92b135e8 (diff)
Contains functions now allows Extended_Node_ID_Type input
Diffstat (limited to 'test')
-rw-r--r--test/graph_tests-search.adb8
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