th-lock-0.0.4: test/Tests/Language/Haskell/TH/Lock/ModuleJ.hs

module Tests.Language.Haskell.TH.Lock.ModuleJ where

import Language.Haskell.TH.Lock
import Test.Tasty.HUnit ((@=?))
import Tests.Language.Haskell.TH.Lock.State

ensureSerialCompilationVerbose

set "J"

unit_check_state :: IO ()
unit_check_state = "J" @=? $(get)