IntenseFinance/simplex-chat
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

"findPlainDiffs 1"

Browse Source
This commit is contained in:
pdavidow
2023-08-16 10:09:42 -04:00
parent 4d99921bde
commit bb8a9f4b1e
1 changed files with 65 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

115
tests/MarkdownEditingTests.hs
View File

@@ -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
]
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
]