tracks/fsharp/exercises/hamming/HammingTest.fs in trackler-2.2.1.22 vs tracks/fsharp/exercises/hamming/HammingTest.fs in trackler-2.2.1.23

@@ -1,33 +1,29 @@
-module HammingTest
+module HammingTest
 
-open NUnit.Framework
+open Xunit
+open FsUnit.Xunit
 open Hamming
 
-[<Test>]
+[<Fact>]
 let ``No difference between empty strands`` () =
-    Assert.That(compute "" "", Is.EqualTo(0))
+    compute "" "" |> should equal 0
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``No difference between identical strands`` () =
-    Assert.That(compute "GGACTGA" "GGACTGA", Is.EqualTo(0))
+    compute "GGACTGA" "GGACTGA" |> should equal 0
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Complete hamming distance in small strand`` () =
-    Assert.That(compute "ACT" "GGA", Is.EqualTo(3))
+    compute "ACT" "GGA" |> should equal 3
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Hamming distance is off by one strand`` () =
-    Assert.That(compute "GGACGGATTCTG" "AGGACGGATTCT", Is.EqualTo(9))
+    compute "GGACGGATTCTG" "AGGACGGATTCT" |> should equal 9
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Smalling hamming distance in middle somewhere`` () =
-    Assert.That(compute "GGACG" "GGTCG", Is.EqualTo(1))
+    compute "GGACG" "GGTCG" |> should equal 1
 
-[<Test>]
-[<Ignore("Remove to run test")>]
+[<Fact(Skip = "Remove to run test")>]
 let ``Larger distance`` () =
-    Assert.That(compute "ACCAGGG" "ACTATGG", Is.EqualTo(2))
+    compute "ACCAGGG" "ACTATGG" |> should equal 2
\ No newline at end of file