diff --git a/tests/MarkdownEditingTests.hs b/tests/MarkdownEditingTests.hs index 645938cd33..807cde6a37 100644 --- a/tests/MarkdownEditingTests.hs +++ b/tests/MarkdownEditingTests.hs @@ -37,61 +37,49 @@ formattedEditedTextTests = describe "show edits" do (LeftSide $ S.fromList [ ]) - (RightSide $ S.fromList [ ]) - `shouldBe` S.fromList [ ] - it "no change" do findDiffs (LeftSide $ S.fromList [ FormattedChar 'H' Nothing ]) - (RightSide $ S.fromList [ FormattedChar 'H' Nothing ]) - `shouldBe` S.fromList [ DiffedChar (FormattedChar 'H' Nothing) $ UnchangedChar UnchangedFormat ] - it "add 1 char to empty" do findDiffs (LeftSide $ S.fromList [ ]) - (RightSide $ S.fromList [ FormattedChar 'H' Nothing ]) - `shouldBe` S.fromList [ DiffedChar (FormattedChar 'H' Nothing) Inserted ] - it "del the one and only" do findDiffs (LeftSide $ S.fromList [ FormattedChar 'H' Nothing ]) - (RightSide $ S.fromList [ ]) - `shouldBe` S.fromList [ DiffedChar (FormattedChar 'H' Nothing) Deleted ] - it "one character change" do findDiffs (LeftSide $ S.fromList @@ -101,7 +89,6 @@ formattedEditedTextTests = describe "show edits" do , FormattedChar 'l' Nothing , FormattedChar 'o' Nothing ]) - (RightSide $ S.fromList [ FormattedChar 'H' Nothing , FormattedChar 'e' Nothing @@ -109,7 +96,6 @@ formattedEditedTextTests = describe "show edits" do , FormattedChar 'l' Nothing , FormattedChar 'o' Nothing ]) - `shouldBe` S.fromList [ DiffedChar (FormattedChar 'H' Nothing) $ UnchangedChar UnchangedFormat , DiffedChar (FormattedChar 'r' Nothing) Deleted @@ -119,7 +105,6 @@ formattedEditedTextTests = describe "show edits" do , DiffedChar (FormattedChar 'o' Nothing) $ UnchangedChar UnchangedFormat ] - it "more1" do findDiffs (LeftSide $ S.fromList @@ -129,7 +114,6 @@ formattedEditedTextTests = describe "show edits" do , FormattedChar 'l' Nothing , FormattedChar 'o' Nothing ]) - (RightSide $ S.fromList [ FormattedChar 'H' Nothing , FormattedChar 'e' Nothing @@ -140,7 +124,6 @@ formattedEditedTextTests = describe "show edits" do , FormattedChar 'y' Nothing , FormattedChar 'z' Nothing ]) - `shouldBe` S.fromList [ DiffedChar (FormattedChar 'H' Nothing) $ UnchangedChar UnchangedFormat , DiffedChar (FormattedChar 'r' Nothing) Deleted @@ -153,7 +136,6 @@ formattedEditedTextTests = describe "show edits" do , DiffedChar (FormattedChar 'z' Nothing) Inserted ] - it "more2" do findDiffs (LeftSide $ S.fromList @@ -163,7 +145,6 @@ formattedEditedTextTests = describe "show edits" do , FormattedChar 'l' Nothing , FormattedChar 'o' Nothing ]) - (RightSide $ S.fromList [ FormattedChar 'H' Nothing , FormattedChar 'e' Nothing @@ -172,7 +153,6 @@ formattedEditedTextTests = describe "show edits" do , FormattedChar 'z' Nothing , FormattedChar 'o' Nothing ]) - `shouldBe` S.fromList [ DiffedChar (FormattedChar 'H' Nothing) $ UnchangedChar UnchangedFormat , DiffedChar (FormattedChar 'r' Nothing) Deleted @@ -185,7 +165,6 @@ formattedEditedTextTests = describe "show edits" do , DiffedChar (FormattedChar 'o' Nothing) $ UnchangedChar UnchangedFormat ] - it "more3" do findDiffs (LeftSide $ S.fromList @@ -196,7 +175,6 @@ formattedEditedTextTests = describe "show edits" do , FormattedChar 'l' Nothing , FormattedChar 'o' (Just $ colored Green) ]) - (RightSide $ S.fromList [ FormattedChar 'H' (Just Italic) , FormattedChar 'H' (Just Bold) @@ -206,7 +184,6 @@ formattedEditedTextTests = describe "show edits" do , FormattedChar 'z' (Just Secret) , FormattedChar 'o' (Just $ colored Blue) ]) - `shouldBe` S.fromList [ DiffedChar (FormattedChar 'H' (Just Bold)) $ UnchangedChar (ChangedToFormat (Just Italic)) , DiffedChar (FormattedChar 'H' (Just Bold)) $ UnchangedChar UnchangedFormat @@ -220,7 +197,6 @@ formattedEditedTextTests = describe "show edits" do , DiffedChar (FormattedChar 'o' (Just $ colored Green)) $ UnchangedChar (ChangedToFormat (Just $ colored Blue)) ] - it "more4" do findDiffs (LeftSide $ S.fromList @@ -233,7 +209,6 @@ formattedEditedTextTests = describe "show edits" do , FormattedChar 'l' Nothing , FormattedChar 'o' Nothing ]) - (RightSide $ S.fromList [ FormattedChar 'H' Nothing , FormattedChar 'e' Nothing @@ -247,7 +222,6 @@ formattedEditedTextTests = describe "show edits" do , FormattedChar '1' Nothing , FormattedChar '2' Nothing ]) - `shouldBe` S.fromList [ DiffedChar (FormattedChar 'H' Nothing) (UnchangedChar UnchangedFormat) , DiffedChar (FormattedChar 'e' Nothing) Inserted @@ -265,8 +239,7 @@ formattedEditedTextTests = describe "show edits" do , DiffedChar (FormattedChar '2' Nothing) Inserted ] - - it "SimplexLink" do + it "SimplexLink 1" do findDiffs (LeftSide $ S.fromList [ FormattedChar '>' $ Just $ SimplexLink @@ -275,7 +248,6 @@ formattedEditedTextTests = describe "show edits" do , trustedUri = True , smpHosts = NE.fromList ["host1", "host2", "host3"]} ]) - (RightSide $ S.fromList [ FormattedChar '>' $ Just SimplexLink { linkType = XLContact @@ -284,7 +256,6 @@ formattedEditedTextTests = describe "show edits" do , smpHosts = NE.fromList ["host0", "host2", "host3"] } ]) - `shouldBe` S.fromList [ DiffedChar (FormattedChar '>' $ Just SimplexLink @@ -293,8 +264,7 @@ formattedEditedTextTests = describe "show edits" do , trustedUri = True , smpHosts = NE.fromList ["host1", "host2", "host3"] } - ) $ - + ) $ UnchangedChar $ ChangedToFormat $ Just SimplexLink { linkType = XLContact , simplexUri = "https://api.twitter.com/3/tweets/:id" @@ -303,22 +273,67 @@ formattedEditedTextTests = describe "show edits" do } ] + it "findPlainDiffs 1" do + findPlainDiffs + (LeftSide "https://api.twitter.com/2/tweets/:id") + (RightSide "https://api.twitter.com/3/tweets/:id") + `shouldBe` S.fromList + [ DiffedPlainChar 'h' UnchangedP + , DiffedPlainChar 't' UnchangedP + , DiffedPlainChar 't' UnchangedP + , DiffedPlainChar 'p' UnchangedP + , DiffedPlainChar 's' UnchangedP + , DiffedPlainChar ':' UnchangedP + , DiffedPlainChar '/' UnchangedP + , DiffedPlainChar '/' UnchangedP + , DiffedPlainChar 'a' UnchangedP + , DiffedPlainChar 'p' UnchangedP + , DiffedPlainChar 'i' UnchangedP + , DiffedPlainChar '.' UnchangedP + , DiffedPlainChar 't' UnchangedP + , DiffedPlainChar 'w' UnchangedP + , DiffedPlainChar 'i' UnchangedP + , DiffedPlainChar 't' UnchangedP + , DiffedPlainChar 't' UnchangedP + , DiffedPlainChar 'e' UnchangedP + , DiffedPlainChar 'r' UnchangedP + , DiffedPlainChar '.' UnchangedP + , DiffedPlainChar 'c' UnchangedP + , DiffedPlainChar 'o' UnchangedP + , DiffedPlainChar 'm' UnchangedP + , DiffedPlainChar '/' UnchangedP + , DiffedPlainChar '2' DeletedP + , DiffedPlainChar '3' InsertedP + , DiffedPlainChar '/' UnchangedP + , DiffedPlainChar 't' UnchangedP + , DiffedPlainChar 'w' UnchangedP + , DiffedPlainChar 'e' UnchangedP + , DiffedPlainChar 'e' UnchangedP + , DiffedPlainChar 't' UnchangedP + , DiffedPlainChar 's' UnchangedP + , DiffedPlainChar '/' UnchangedP + , DiffedPlainChar ':' UnchangedP + , DiffedPlainChar 'i' UnchangedP + , DiffedPlainChar 'd' UnchangedP + ] - it "findPlainDiffs" do - findPlainDiffs (LeftSide "Hrl~!@lo") (RightSide "Herxy!@zo12") - `shouldBe` S.fromList - [ DiffedPlainChar 'H' UnchangedP - , DiffedPlainChar 'e' InsertedP - , DiffedPlainChar 'r' UnchangedP - , DiffedPlainChar 'l' DeletedP - , DiffedPlainChar '~' DeletedP - , DiffedPlainChar 'x' InsertedP - , DiffedPlainChar 'y' InsertedP - , DiffedPlainChar '!' UnchangedP - , DiffedPlainChar '@' UnchangedP - , DiffedPlainChar 'l' DeletedP - , DiffedPlainChar 'z' InsertedP - , DiffedPlainChar 'o' UnchangedP - , DiffedPlainChar '1' InsertedP - , DiffedPlainChar '2' InsertedP - ] \ No newline at end of file + it "findPlainDiffs 2" do + findPlainDiffs + (LeftSide "Hrl~!@lo") + (RightSide "Herxy!@zo12") + `shouldBe` S.fromList + [ DiffedPlainChar 'H' UnchangedP + , DiffedPlainChar 'e' InsertedP + , DiffedPlainChar 'r' UnchangedP + , DiffedPlainChar 'l' DeletedP + , DiffedPlainChar '~' DeletedP + , DiffedPlainChar 'x' InsertedP + , DiffedPlainChar 'y' InsertedP + , DiffedPlainChar '!' UnchangedP + , DiffedPlainChar '@' UnchangedP + , DiffedPlainChar 'l' DeletedP + , DiffedPlainChar 'z' InsertedP + , DiffedPlainChar 'o' UnchangedP + , DiffedPlainChar '1' InsertedP + , DiffedPlainChar '2' InsertedP + ] \ No newline at end of file