From a9048e72709946f72e47ef593b49b406c1bbffc4 Mon Sep 17 00:00:00 2001
From: pdavidow <pdavidow@fastmail.fm>
Date: Wed, 16 Aug 2023 10:25:19 -0400
Subject: [PATCH] "SimplexLink 2"  "SimplexLink 3"

---
 tests/MarkdownEditingTests.hs | 68 +++++++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)

diff --git a/tests/MarkdownEditingTests.hs b/tests/MarkdownEditingTests.hs
index 807cde6a37..84764fbd2a 100644
--- a/tests/MarkdownEditingTests.hs
+++ b/tests/MarkdownEditingTests.hs
@@ -273,6 +273,74 @@ formattedEditedTextTests = describe "show edits" do
               }                                                      
         ]
 
+  it "SimplexLink 2" do
+    findDiffs 
+        (LeftSide $ S.fromList
+          [ FormattedChar '>' $ Just $ SimplexLink    
+              { linkType = XLContact
+              , simplexUri = "https://api.twitter.com/2/tweets/:id"
+              , trustedUri = True
+              , smpHosts = NE.fromList ["host1", "host2", "host3"]}                                                   
+          ])   
+        (RightSide $ S.fromList
+          [ FormattedChar '>' $ Just SimplexLink    
+              { linkType = XLContact
+              , simplexUri = "https://api.twitter.com/3/tweets/:id"
+              , trustedUri = True
+              , smpHosts = NE.fromList ["host1", "host2", "host3"]
+              }                                                   
+          ])  
+      `shouldBe` S.fromList
+        [ DiffedChar 
+            (FormattedChar '>' $ Just SimplexLink    
+              { linkType = XLContact
+              , simplexUri = "https://api.twitter.com/2/tweets/:id"
+              , trustedUri = True
+              , smpHosts = NE.fromList ["host1", "host2", "host3"]
+              } 
+            ) $           
+            UnchangedChar $ ChangedToFormat $ Just SimplexLink    
+              { linkType = XLContact
+              , simplexUri = "https://api.twitter.com/3/tweets/:id"
+              , trustedUri = True
+              , smpHosts = NE.fromList ["host1", "host2", "host3"]
+              }                                                      
+        ]
+
+  it "SimplexLink 3" do
+    findDiffs 
+        (LeftSide $ S.fromList
+          [ FormattedChar '>' $ Just $ SimplexLink    
+              { linkType = XLContact
+              , simplexUri = "https://api.twitter.com/2/tweets/:id"
+              , trustedUri = True
+              , smpHosts = NE.fromList ["host1", "host2", "host3"]}                                                   
+          ])   
+        (RightSide $ S.fromList
+          [ FormattedChar '>' $ Just SimplexLink    
+              { linkType = XLContact
+              , simplexUri = "https://api.twitter.com/2/tweets/:id"
+              , trustedUri = True
+              , smpHosts = NE.fromList ["host0", "host2", "host3"]
+              }                                                   
+          ])  
+      `shouldBe` S.fromList
+        [ DiffedChar 
+            (FormattedChar '>' $ Just SimplexLink    
+              { linkType = XLContact
+              , simplexUri = "https://api.twitter.com/2/tweets/:id"
+              , trustedUri = True
+              , smpHosts = NE.fromList ["host1", "host2", "host3"]
+              } 
+            ) $           
+            UnchangedChar $ ChangedToFormat $ Just SimplexLink    
+              { linkType = XLContact
+              , simplexUri = "https://api.twitter.com/2/tweets/:id"
+              , trustedUri = True
+              , smpHosts = NE.fromList ["host0", "host2", "host3"]
+              }                                                      
+        ]
+
   it "findPlainDiffs 1" do
     findPlainDiffs 
       (LeftSide  "https://api.twitter.com/2/tweets/:id")