Added failing test

fsprojects · Oct 30, 2019 · db41e9f · db41e9f
1 parent dd35864
commit db41e9f
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 2 deletions.
diff --git a/tests/FsUnit.MsTest.Test/beSupersetOf.fs b/tests/FsUnit.MsTest.Test/beSupersetOf.fs
@@ -31,4 +31,9 @@ type ``be supersetOf tests`` ()=
 
     [<TestMethod>] member test.
      ``1 to 10 should be superset of 1 to 10`` ()=
-        [1..10] |> should be (supersetOf [1..10])
+        [1..10] |> should be (supersetOf [1..10])
+
+    [<TestMethod>] member test.
+     ``should fail on '1 to 10 should not be superset of 1 to 10'`` ()=
+        shouldFail (fun () -> 
+            [1..10] |> should not' (be supersetOf [1..10]))
diff --git a/tests/FsUnit.NUnit.Test/beSupersetOf.fs b/tests/FsUnit.NUnit.Test/beSupersetOf.fs
@@ -32,3 +32,8 @@ type ``be supersetOf tests`` ()=
     [<Test>] member test.
      ``1 to 10 should be superset of 1 to 10`` ()=
         [1..10] |> should be (supersetOf [1..10])
+
+    [<Test>] member test.
+     ``should fail on '1 to 10 should not be superset of 1 to 10'`` ()=
+        shouldFail (fun () -> 
+            [1..10] |> should not' (be supersetOf [1..10]))
diff --git a/tests/FsUnit.Xunit.Test/beSupersetOf.fs b/tests/FsUnit.Xunit.Test/beSupersetOf.fs
@@ -30,4 +30,9 @@ type ``be supersetOf tests`` ()=
 
     [<Fact>] member test.
      ``1 to 10 should be superset of 1 to 10`` ()=
-        [1..10] |> should be (supersetOf [1..10])
+        [1..10] |> should be (supersetOf [1..10])
+
+    [<Fact>] member test.
+     ``should fail on '1 to 10 should not be superset of 1 to 10'`` ()=
+        shouldFail (fun () -> 
+            [1..10] |> should not' (be supersetOf [1..10]))