diff --git a/tests/fsharpqa/Source/Conformance/PatternMatching/Tuple/UseItem1.fs b/tests/fsharpqa/Source/Conformance/PatternMatching/Tuple/UseItem1.fs new file mode 100644 index 00000000000..3d9d58293f9 --- /dev/null +++ b/tests/fsharpqa/Source/Conformance/PatternMatching/Tuple/UseItem1.fs @@ -0,0 +1,15 @@ +// #Conformance #PatternMatching #Tuples +#light + +open System +open System.Collections.Generic + +let f (items: IEnumerable>) = + items + |> Seq.iter (fun i -> printf "%d %s" i.Item1 i.Item2) + +let x = seq { yield Tuple.Create(10, "ten") } + +f x + +exit 0 diff --git a/tests/fsharpqa/Source/Conformance/PatternMatching/Tuple/env.lst b/tests/fsharpqa/Source/Conformance/PatternMatching/Tuple/env.lst index b8b44cb2ab8..f40d2af418d 100644 --- a/tests/fsharpqa/Source/Conformance/PatternMatching/Tuple/env.lst +++ b/tests/fsharpqa/Source/Conformance/PatternMatching/Tuple/env.lst @@ -1,5 +1,6 @@ SOURCE=tuples01.fs # tuples01.fs SOURCE=SimpleTuples01.fs # SimpleTuples01.fs + SOURCE=UseItem1.fs # UseItem1.fs SOURCE=W_IncompleteMatches01.fs # W_IncompleteMatches01.fs SOURCE=W_RedundantPattern01.fs # W_RedundantPattern01.fs SOURCE=W_RedundantPattern02.fs # W_RedundantPattern02.fs