module SgfParsingTests open FsUnit.Xunit open Xunit open SgfParsing [] let ``Empty input`` () = let expected = None parse "" |> should equal expected [] let ``Tree with no nodes`` () = let expected = None parse "()" |> should equal expected [] let ``Node without tree`` () = let expected = None parse ";" |> should equal expected [] let ``Node without properties`` () = let expected = Some (Node (Map.ofList [], [])) parse "(;)" |> should equal expected [] let ``Single node tree`` () = let expected = Some (Node (Map.ofList [("A", ["B"])], [])) parse "(;A[B])" |> should equal expected [] let ``Multiple properties`` () = let expected = Some (Node (Map.ofList [("A", ["b"]); ("C", ["d"])], [])) parse "(;A[b]C[d])" |> should equal expected [] let ``Properties without delimiter`` () = let expected = None parse "(;A)" |> should equal expected [] let ``All lowercase property`` () = let expected = None parse "(;a[b])" |> should equal expected [] let ``Upper and lowercase property`` () = let expected = None parse "(;Aa[b])" |> should equal expected [] let ``Two nodes`` () = let expected = Some (Node (Map.ofList [("A", ["B"])], [Node (Map.ofList [("B", ["C"])], [])])) parse "(;A[B];B[C])" |> should equal expected [] let ``Two child trees`` () = let expected = Some (Node (Map.ofList [("A", ["B"])], [Node (Map.ofList [("B", ["C"])], []); Node (Map.ofList [("C", ["D"])], [])])) parse "(;A[B](;B[C])(;C[D]))" |> should equal expected [] let ``Multiple property values`` () = let expected = Some (Node (Map.ofList [("A", ["b"; "c"; "d"])], [])) parse "(;A[b][c][d])" |> should equal expected [] let ``Semicolon in property value doesn't need to be escaped`` () = let expected = Some (Node (Map.ofList [("A", ["a;b"; "foo"]); ("B", ["bar"])], [Node (Map.ofList [("C", ["baz"])], [])])) parse "(;A[a;b][foo]B[bar];C[baz])" |> should equal expected [] let ``Parentheses in property value don't need to be escaped`` () = let expected = Some (Node (Map.ofList [("A", ["x(y)z"; "foo"]); ("B", ["bar"])], [Node (Map.ofList [("C", ["baz"])], [])])) parse "(;A[x(y)z][foo]B[bar];C[baz])" |> should equal expected