diff --git a/tests/fsharpqa/Source/Warnings/NameRes.fsx b/tests/fsharpqa/Source/Warnings/NameRes.fsx
new file mode 100644
index 00000000000..fdfe2823d97
--- /dev/null
+++ b/tests/fsharpqa/Source/Warnings/NameRes.fsx
@@ -0,0 +1,11 @@
+// #Warnings
+//<Expects status="success"></Expects>
+
+#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 00000000000..f7833be8f95
--- /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 00000000000..cf232937b6b
--- /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 322ed3d77ea..a3a2e46829f 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