digital-asset/daml
1
1
Fork 0
mirror of https://github.com/digital-asset/daml.git synced 2024-09-17 07:47:14 +03:00
Code Issues Projects Releases Wiki Activity

Added diagnostics logging for damldoctest failures (#17111)

Browse Source
This commit is contained in:
Samuel Williams 2023-07-12 09:09:58 +01:00 committed by GitHub
parent 6dbda0a726
commit f6379328e9
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/damlc/tests/src/DA/Test/DamlDocTest.hs
View File

@ -15,6 +15,7 @@ import Development.IDE.Core.IdeState.Daml
import Development.IDE.Core.Rules
import Development.IDE.Core.Service
import Development.IDE.Core.Shake
import Development.IDE.Types.Diagnostics
import Development.IDE.Types.Location
main :: IO ()
@ -97,8 +98,13 @@ generateTests scriptPackageData = testGroup "generate doctest module"
, optPackageImports = snd scriptPackageData
}
withDamlIdeState opts Logger.makeNopHandle (NotificationHandler $ \_ _ -> pure ()) $ \ideState -> do
Just pm <- runActionSync ideState $ use GetParsedModule $ toNormalizedFilePath' tmpFile
genModuleContent (getDocTestModule pm) @?= T.unlines (doctestHeader moduleName <> expected)
mParsedModule <- runActionSync ideState $ use GetParsedModule $ toNormalizedFilePath' tmpFile
case mParsedModule of
Nothing -> do
diags <- getDiagnostics ideState
error $ T.unpack $ showDiagnostics diags
Just pm ->
genModuleContent (getDocTestModule pm) @?= T.unlines (doctestHeader moduleName <> expected)
testModuleHeader :: T.Text -> [T.Text]
testModuleHeader moduleName =