diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2020-12-12 17:12:21 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2020-12-12 17:12:21 +1100 |
| commit | 8834bc154280e443aeac618eb433e365d82253c6 (patch) | |
| tree | 099d74110f4b2ade9ff813c59d7e2b5570732ae4 /test | |
| parent | 2adeae8eb1bc8437b392bed07f1858363f95ab8a (diff) | |
Duplicate subgroup bug fixed, finally
Diffstat (limited to 'test')
| -rw-r--r-- | test/rat_tests-parse_graphs.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test/rat_tests-parse_graphs.adb b/test/rat_tests-parse_graphs.adb index 06f977b..878bee0 100644 --- a/test/rat_tests-parse_graphs.adb +++ b/test/rat_tests-parse_graphs.adb @@ -195,6 +195,7 @@ package body Rat_Tests.Parse_Graphs is + -- Should probably add tests for this on incomplete graphs at some point function Contains_Check return Test_Result is @@ -223,6 +224,9 @@ package body Rat_Tests.Parse_Graphs is then return Fail; end if; + if not Paper_Graph.Contains ((NP_1, 1), (1 => (Noun_1, 1))) then + return Fail; + end if; return Pass; end Contains_Check; |