Add failing test

Consumer/Consumer.fsproj

@@ -10,6 +10,7 @@
         <Compile Include="NoAttribute.fs" />
         <Compile Include="Inconclusive.fs" />
         <Compile Include="RunSubProcess.fs" />
+        <Compile Include="TestContext.fs" />
         <Compile Include="TestNonParallel.fs" />
         <Compile Include="TestParallel.fs" />
         <Compile Include="TestStdout.fs" />

Consumer/TestContext.fs

@@ -0,0 +1,25 @@
+namespace Consumer
+
+open FsUnitTyped
+open NUnit.Framework
+
+[<TestFixture>]
+module TestContext =
+
+    [<TestCase 3>]
+    let ``Context has appropriate values`` (_ : int) =
+        TestContext.Progress.WriteLine "hi!"
+
+        TestContext.CurrentContext.Test.MethodName
+        |> shouldEqual "Context has appropriate values"
+
+        TestContext.CurrentContext.Test.Name
+        |> shouldEqual "Context has appropriate values(3)"
+
+        TestContext.CurrentContext.Test.Namespace |> shouldEqual "Consumer"
+        TestContext.CurrentContext.Test.ClassName |> shouldEqual "Consumer.TestContext"
+
+        TestContext.CurrentContext.Test.FullName
+        |> shouldEqual "Consumer.TestContext.Context has appropriate values(3)"
+
+        TestContext.CurrentContext.Test.Arguments |> List.ofArray |> shouldEqual [ 3 ]