diff --git a/test/InfoSpec.hs b/test/InfoSpec.hs
index c48d003..f238a4a 100644
--- a/test/InfoSpec.hs
+++ b/test/InfoSpec.hs
@@ -7,6 +7,8 @@ import Expectation
 import Info
 import Test.Hspec
 import Types
+import System.Process
+import System.Exit
 
 spec :: Spec
 spec = do
@@ -48,3 +50,7 @@ spec = do
                 cradle <- getGHCVersion >>= findCradle Nothing . fst
                 res <- infoExpr defaultOptions cradle "Main" "bar" "Main.hs"
                 res `shouldSatisfy` ("bar :: [Char]" `isPrefixOf`)
+
+        it "doesn't fail on unicode output" $ do
+            code <- rawSystem "dist/build/ghc-mod/ghc-mod" ["info", "test/data/Unicode.hs", "Unicode", "unicode"]
+            code `shouldSatisfy` (== ExitSuccess)
diff --git a/test/data/Unicode.hs b/test/data/Unicode.hs
new file mode 100644
index 0000000..f5d1044
--- /dev/null
+++ b/test/data/Unicode.hs
@@ -0,0 +1,4 @@
+module Unicode where
+
+unicode :: α -> α
+unicode = id