diff --git a/test/test_acceptance.ml b/test/test_acceptance.ml index 7779c2c..3a6e530 100644 --- a/test/test_acceptance.ml +++ b/test/test_acceptance.ml @@ -1116,9 +1116,12 @@ let () = package it came back to. *) (* And the same rule through a chain, which is the case that only exists once a package may import a package: area imports shape as [shape] and - the program imports the same directory as [sh]. The refusal has to point - at the package's own import line, since that is the half the person - reading the entry file cannot see. *) + the program imports the same directory as [sh]. Which of the two lines + the message names is whichever one arrived second, so it depends on the + order the entry file writes its imports in; both are correct refusals + and the needle deliberately does not pin it down. What is being tested + is that the clash is caught at all when the two halves are a page and a + directory apart, rather than side by side as in the case above. *) refuses "one directory under two aliases, through a package" "programs/pkg-alias-clash.flan" "one directory is one set of names"; (* A ring is refused and the ring is named. The needle is the chain, not