Add some basic tests

Author: michaelpj

lsp/test/VspSpec.hs

@@ -299,6 +299,31 @@ vspSpec = do
           , "  putStrLn \"hello world\""
           ]
 
+    it "converts code units to code points" $ do
+      let
+        orig = unlines
+          [ "a𐐀b"
+          , "a𐐀b"
+          ]
+        vfile = VirtualFile 0 0 (fromString orig)
+
+      positionToCodePointPosition vfile (J.Position 1 0)`shouldBe` Just (CodePointPosition 1 0)
+      positionToCodePointPosition vfile (J.Position 1 1)`shouldBe` Just (CodePointPosition 1 1)
+      positionToCodePointPosition vfile (J.Position 1 2)`shouldBe` Nothing
+      positionToCodePointPosition vfile (J.Position 1 3)`shouldBe` Just (CodePointPosition 1 2)
+
+    it "converts code points to code units" $ do
+      let
+        orig = unlines
+          [ "a𐐀b"
+          , "a𐐀b"
+          ]
+        vfile = VirtualFile 0 0 (fromString orig)
+
+      codePointPositionToPosition vfile (CodePointPosition 1 0)`shouldBe` J.Position 1 0
+      codePointPositionToPosition vfile (CodePointPosition 1 1)`shouldBe` J.Position 1 1
+      codePointPositionToPosition vfile (CodePointPosition 1 2)`shouldBe` J.Position 1 3
+
     -- ---------------------------------
 
     it "getCompletionPrefix" $ do