Initial commit

CipherSuite.Test/TestCaesar.fs

@@ -0,0 +1,23 @@
+namespace CipherSuite.Test
+
+open NUnit.Framework
+open CipherSuite
+open FsUnitTyped
+
+[<TestFixture>]
+module TestCaesar =
+
+    [<Test>]
+    let ``Examples, Challenge 1`` () =
+        let key, plain, fitness = Caesar.crack Examples.challenge1A
+
+        plain.StartsWith "I WAS HOPING I WOULD FIND YOU HERE" |> shouldEqual true
+
+        printfn "%f" fitness
+        key |> shouldEqual 6
+
+        let key, plain, fitness = Caesar.crack Examples.challenge1B
+
+        plain.StartsWith "DEAR MS FRANK," |> shouldEqual true
+
+        key |> shouldEqual 18