diff --git a/megaparsec-tests.cabal b/megaparsec-tests.cabal
--- a/megaparsec-tests.cabal
+++ b/megaparsec-tests.cabal
@@ -1,11 +1,11 @@
 cabal-version:   2.4
 name:            megaparsec-tests
-version:         9.6.1
+version:         9.7.0
 license:         BSD-2-Clause
 license-file:    LICENSE.md
 maintainer:      Mark Karpov <markkarpov92@gmail.com>
 author:          Megaparsec contributors
-tested-with:     ghc ==9.4.7 ghc ==9.6.3 ghc ==9.8.1
+tested-with:     ghc ==9.6.3 ghc ==9.8.2 ghc ==9.10.1
 homepage:        https://github.com/mrkkrp/megaparsec
 bug-reports:     https://github.com/mrkkrp/megaparsec/issues
 synopsis:        Test utilities and the test suite of Megaparsec
@@ -24,13 +24,13 @@
     hs-source-dirs:   src
     default-language: Haskell2010
     build-depends:
-        QuickCheck >=2.10 && <2.15,
+        QuickCheck >=2.10 && <2.16,
         base >=4.15 && <5,
         bytestring >=0.2 && <0.13,
         containers >=0.5 && <0.8,
         hspec >=2 && <3,
         hspec-megaparsec >=2 && <3,
-        megaparsec ==9.6.1,
+        megaparsec ==9.7.0,
         mtl >=2.2.2 && <3,
         text >=0.2 && <2.2,
         transformers >=0.4 && <0.7
@@ -58,18 +58,19 @@
         Text.Megaparsec.ErrorSpec
         Text.Megaparsec.PosSpec
         Text.Megaparsec.StreamSpec
+        Text.Megaparsec.UnicodeSpec
         Text.MegaparsecSpec
 
     default-language:   Haskell2010
     build-depends:
-        QuickCheck >=2.10 && <2.15,
+        QuickCheck >=2.10 && <2.16,
         base >=4.15 && <5,
         bytestring >=0.2 && <0.13,
         case-insensitive >=1.2 && <1.3,
         containers >=0.5 && <0.8,
         hspec >=2 && <3,
         hspec-megaparsec >=2 && <3,
-        megaparsec ==9.6.1,
+        megaparsec ==9.7.0,
         megaparsec-tests,
         mtl >=2.2.2 && <3,
         scientific >=0.3.1 && <0.4,
@@ -80,7 +81,7 @@
     if flag(dev)
         ghc-options:
             -Wall -Werror -Wredundant-constraints -Wpartial-fields
-            -Wunused-packages
+            -Wunused-packages -Wno-unused-imports
 
     else
         ghc-options: -O2 -Wall
diff --git a/tests/Text/Megaparsec/ErrorSpec.hs b/tests/Text/Megaparsec/ErrorSpec.hs
--- a/tests/Text/Megaparsec/ErrorSpec.hs
+++ b/tests/Text/Megaparsec/ErrorSpec.hs
@@ -199,6 +199,41 @@
                          ++ replicate errColumn ' '
                          ++ "^\nunexpected 'b'\nexpecting 'x'\n"
                      )
+    context "in the presence of wide characters" $ do
+      it "calculates column positions correctly" $ do
+        let s = "구구 이면" :: String
+            pe = err 2 (ulabel "space" <> etok '이') :: PE
+            bundle =
+              ParseErrorBundle
+                { bundleErrors = pe :| [],
+                  bundlePosState =
+                    PosState
+                      { pstateInput = s,
+                        pstateOffset = 0,
+                        pstateSourcePos = initialPos "",
+                        pstateTabWidth = defaultTabWidth,
+                        pstateLinePrefix = ""
+                      }
+                }
+        errorBundlePretty bundle
+          `shouldBe` "1:5:\n  |\n1 | 구구 이면\n  |     ^\nunexpected space\nexpecting '이'\n"
+      it "uses continuous highlighting" $ do
+        let s = "구구 이면" :: String
+            pe = err 3 (utok '이' <> etok '구') :: PE
+            bundle =
+              ParseErrorBundle
+                { bundleErrors = pe :| [],
+                  bundlePosState =
+                    PosState
+                      { pstateInput = s,
+                        pstateOffset = 0,
+                        pstateSourcePos = initialPos "",
+                        pstateTabWidth = defaultTabWidth,
+                        pstateLinePrefix = ""
+                      }
+                }
+        errorBundlePretty bundle
+          `shouldBe` "1:6:\n  |\n1 | 구구 이면\n  |      ^^\nunexpected '이'\nexpecting '구'\n"
     it "displays multi-error bundle correctly" $ do
       let s = "something\ngood\n" :: String
           pe0 = err 2 (utok 'm' <> etok 'x') :: PE
diff --git a/tests/Text/Megaparsec/UnicodeSpec.hs b/tests/Text/Megaparsec/UnicodeSpec.hs
new file mode 100644
--- /dev/null
+++ b/tests/Text/Megaparsec/UnicodeSpec.hs
@@ -0,0 +1,20 @@
+module Text.Megaparsec.UnicodeSpec (spec) where
+
+import Test.Hspec
+import qualified Text.Megaparsec.Unicode as Unicode
+
+spec :: Spec
+spec = do
+  describe "stringLength" $
+    it "computes correct length in the presense of wide chars" $
+      Unicode.stringLength "123 구구 이면" `shouldBe` 13
+  describe "charLength" $ do
+    it "returns 1 for non-wide chars" $
+      Unicode.charLength 'a' `shouldBe` 1
+    it "returns 2 for wide chars" $
+      Unicode.charLength '구' `shouldBe` 2
+  describe "isWideChar" $ do
+    it "returns False for non-wide chars" $
+      Unicode.isWideChar 'a' `shouldBe` False
+    it "returns True for wide chars" $
+      Unicode.isWideChar '구' `shouldBe` True