Add test for dotnet#5745

forki · Oct 10, 2018 · 05ec633 · 05ec633
1 parent c256b80
commit 05ec633
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/tests/fsharpqa/Source/Conformance/PatternMatching/Named/E_ActivePatternHasNoFields.fs b/tests/fsharpqa/Source/Conformance/PatternMatching/Named/E_ActivePatternHasNoFields.fs
@@ -0,0 +1,13 @@
+// #Regression #Conformance #PatternMatching #ActivePatterns 
+// Regression test for https://github.com/Microsoft/visualfsharp/issues/5745
+//<Expects status="error id="FS3174">Active patterns do not have fields. This syntax is invalid\.</Expects>
+open System.Text.RegularExpressions
+
+let (|USZipPlus4Code|_|) s =
+    let m = Regex.Match(s, @"^(\d{5})\-(\d{4})$")
+    if m.Success then
+        USZipPlus4Code(x=m.Groups.[1].Value, 
+                       y=m.Groups.[2].Value)
+        |> Some
+    else
+        None
diff --git a/tests/fsharpqa/Source/Conformance/PatternMatching/Named/env.lst b/tests/fsharpqa/Source/Conformance/PatternMatching/Named/env.lst
@@ -26,6 +26,7 @@
 
 	SOURCE=E_ActivePatterns01.fs		# E_ActivePatterns01.fs
 	SOURCE=E_ActivePatterns02.fs		# E_ActivePatterns02.fs
+	SOURCE=E_ActivePatternHasNoFields.fs		# E_ActivePatternHasNoFields.fs
 	SOURCE=E_ParameterRestrictions01.fs	# E_ParameterRestrictions01.fs	
 
  	SOURCE=MultiActivePatterns01.fs		# MultiActivePatterns01.fs