Test for #220

haskell · Dec 30, 2023 · ca5ae8d · ca5ae8d
1 parent ff5b1b8
commit ca5ae8d
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/monadUserState_typeclass_bytestring.x b/tests/monadUserState_typeclass_bytestring.x
@@ -70,6 +70,12 @@ lex inp =
   let
     lexAll =
       do
+
+        -- Andreas Abel, 2023-12-30, issue #220:
+        -- Test that alex{G,S}etUserState are in scope.
+        u <- alexGetUserState
+        alexSetUserState (u + 1)
+
         res <- alexMonadScan
         case res of
           EOF -> return []