From d5f730896ca919ca540b8ac00ec0c962ff01e328 Mon Sep 17 00:00:00 2001 From: Steffen Forkmann Date: Mon, 24 Oct 2016 17:57:38 +0200 Subject: [PATCH] Try to reproduce issue from #1530 --- tests/fsharpqa/Source/Warnings/NameRes.fsx | 11 +++++++++++ tests/fsharpqa/Source/Warnings/Processes.fs | 5 +++++ tests/fsharpqa/Source/Warnings/Supervisor.fs | 5 +++++ tests/fsharpqa/Source/Warnings/env.lst | 1 + 4 files changed, 22 insertions(+) create mode 100644 tests/fsharpqa/Source/Warnings/NameRes.fsx create mode 100644 tests/fsharpqa/Source/Warnings/Processes.fs create mode 100644 tests/fsharpqa/Source/Warnings/Supervisor.fs diff --git a/tests/fsharpqa/Source/Warnings/NameRes.fsx b/tests/fsharpqa/Source/Warnings/NameRes.fsx new file mode 100644 index 0000000000..fdfe2823d9 --- /dev/null +++ b/tests/fsharpqa/Source/Warnings/NameRes.fsx @@ -0,0 +1,11 @@ +// #Warnings +// + +#load "Processes.fs" +#load "Supervisor.fs" + +open Foo + +let _ : DeadStatus = DoesNotExist + +exit 0 \ No newline at end of file diff --git a/tests/fsharpqa/Source/Warnings/Processes.fs b/tests/fsharpqa/Source/Warnings/Processes.fs new file mode 100644 index 0000000000..f7833be8f9 --- /dev/null +++ b/tests/fsharpqa/Source/Warnings/Processes.fs @@ -0,0 +1,5 @@ +namespace Foo + +type ProcessError = + | CannotStart of string * exn + | DoesNotExist of int diff --git a/tests/fsharpqa/Source/Warnings/Supervisor.fs b/tests/fsharpqa/Source/Warnings/Supervisor.fs new file mode 100644 index 0000000000..cf232937b6 --- /dev/null +++ b/tests/fsharpqa/Source/Warnings/Supervisor.fs @@ -0,0 +1,5 @@ +namespace Foo + +type DeadStatus = + | DoesNotExist + | CannotLaunch \ No newline at end of file diff --git a/tests/fsharpqa/Source/Warnings/env.lst b/tests/fsharpqa/Source/Warnings/env.lst index 322ed3d77e..a3a2e46829 100644 --- a/tests/fsharpqa/Source/Warnings/env.lst +++ b/tests/fsharpqa/Source/Warnings/env.lst @@ -7,6 +7,7 @@ SOURCE=CommaInRecCtor.fs # CommaInRecCtor.fs SOURCE=ValidCommaInRecCtor.fs # ValidCommaInRecCtor.fs SOURCE=WrongArity.fs # WrongArity.fs + SOURCE=NameRes.fsx # NameRes.fsx SOURCE=AccessOfTypeAbbreviation.fs # AccessOfTypeAbbreviation.fs SOURCE=AccessOfTypeAbbreviation2.fs # AccessOfTypeAbbreviation2.fs SOURCE=AccessOfTypeAbbreviation3.fs # AccessOfTypeAbbreviation3.fs