DigitalBrains1 · January 29, 2022 11:12 · Jan 29, 2022
diff --git a/DocTest.hs b/DocTest.hs
@@ -0,0 +1,47 @@
+module DocTest where
+
+-- | Problematic doctest example 1
+--
+-- >>> x = 1
+-- >>> :{
+-- x
+-- :}
+-- 1
+-- >>> x
+-- 1
+f :: Int
+f = 1
+
+-- | Problematic doctest example 2
+--
+-- >>> :{
+-- x = 1
+-- :}
+-- >>> x
+-- 1
+g :: Int
+g = 1
+
+-- | Working doctest example 1
+--
+-- >>> x = 1
+-- >>> :{
+-- x
+-- :}
+-- 1
+--
+-- >>> x
+-- 1
+h :: Int
+h = 1
+
+-- | Working doctest example 2
+--
+-- >>> :{
+-- x = 1
+-- :}
+--
+-- >>> x
+-- 1
+j :: Int
+j = 1
diff --git a/output.txt b/output.txt
@@ -0,0 +1,15 @@
+[...]/DocTest.hs:6: failure in expression `:{
+ x
+:}'
+expected: 1
+          >>> x
+          1
+ but got: 1
+          ^
+
+[...]/DocTest.hs:17: failure in expression `:{
+ x = 1
+:}'
+expected: >>> x
+          1
+ but got: ^
No results found