github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-01 09:15:01 +03:00
Code Issues Projects Releases Wiki Activity

remove otiose boolean check

Browse Source
This commit is contained in:
Patrick Thomson 2019-08-27 11:29:12 -04:00
parent 1c5ac83791
commit a1b7eb9d5d
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
semantic-python/test/Test.hs
View File

@ -76,21 +76,19 @@ assertJQExpressionSucceeds directive core = do
assertTranslationSucceeds :: HasCallStack => FilePath -> HUnit.Assertion
assertTranslationSucceeds fp = withFrozenCallStack $ do
let skipThisTest = "fails" `isInfixOf` fp || "disabled" `isInfixOf` fp
unless skipThisTest $ do
fileContents <- ByteString.readFile ("semantic-python/test/fixtures" </> fp)
let first = ByteString.takeWhile (/= '\n') fileContents
directive <- case Directive.parseDirective first of
Right dir -> pure dir
Left err -> HUnit.assertFailure ("Directive parsing error: " <> err)
fileContents <- ByteString.readFile ("semantic-python/test/fixtures" </> fp)
let first = ByteString.takeWhile (/= '\n') fileContents
directive <- case Directive.parseDirective first of
Right dir -> pure dir
Left err -> HUnit.assertFailure ("Directive parsing error: " <> err)
result <- TS.parseByteString TSP.tree_sitter_python fileContents
let coreResult = fmap (Py.compile @TSP.Module @_ @(Term (Ann :+: Core))) result
case coreResult of
Right (Left _) | directive == Directive.Fails -> pure ()
Right (Right item) -> assertJQExpressionSucceeds directive item
Right (Left err) -> HUnit.assertFailure ("Compilation failed: " <> err)
Left err -> HUnit.assertFailure ("Parsing failed: " <> err)
result <- TS.parseByteString TSP.tree_sitter_python fileContents
let coreResult = fmap (Py.compile @TSP.Module @_ @(Term (Ann :+: Core))) result
case coreResult of
Right (Left _) | directive == Directive.Fails -> pure ()
Right (Right item) -> assertJQExpressionSucceeds directive item
Right (Left err) -> HUnit.assertFailure ("Compilation failed: " <> err)
Left err -> HUnit.assertFailure ("Parsing failed: " <> err)
milestoneFixtures :: Tasty.TestTree