diff --git a/compiler/test/suites/includes.re b/compiler/test/suites/includes.re index c3b28e248..44b782a63 100644 --- a/compiler/test/suites/includes.re +++ b/compiler/test/suites/includes.re @@ -183,10 +183,15 @@ describe("includes", ({test, testSkip}) => { "./broken.gr\", line 4, characters 5-15", ); assertCompileError( - "include_extension", + "include_extension1", "from \"list.gr\" include List", "Missing file for module list.gr: did you forget to remove the .gr extension?", ); + assertCompileError( + "include_extension2", + "from \"brokenRelativeInclude\" include BrokenRelativeInclude", + "Missing file for module ./data: did you forget to add the .gr extension?", + ); assertRun( "reprovide_values", "from \"reprovideContents\" include ReprovideContents; use ReprovideContents.{ type Type, module Mod }; print(A); print(Mod.val)", diff --git a/compiler/test/test-libs/brokenRelativeInclude.gr b/compiler/test/test-libs/brokenRelativeInclude.gr new file mode 100644 index 000000000..14b0f3fc0 --- /dev/null +++ b/compiler/test/test-libs/brokenRelativeInclude.gr @@ -0,0 +1,3 @@ +module BrokenRelativeInclude + +from "./data" include Data