Initial commit

AnkiStatic.Test/Tests.fs

@@ -0,0 +1,29 @@
+namespace AnkiStatic.Test
+
+open System
+open AnkiStatic
+open FsUnitTyped
+open NUnit.Framework
+open System.Text
+open System.Security.Cryptography
+
+[<TestFixture>]
+module Tests =
+
+    [<TestCase("A continuous function on a closed bounded interval is bounded and attains its bounds.", 375454972u)>]
+    let ``Checksum matches`` (str : string, expected : uint32) =
+        let data : Note<unit> =
+            {
+                Guid = 0uL
+                ModelId = ()
+                LastModified = DateTimeOffset.UnixEpoch
+                UpdateSequenceNumber = 0
+                Tags = []
+                Fields = [ str ]
+                SortField = Choice2Of2 0
+                Flags = 0
+                Data = ""
+            }
+
+        // Obtained from reading an example in the wild
+        data.Checksum |> shouldEqual expected