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

Compare directly against SomeError ... rather than String values

Browse Source 
Co-Authored-By: Rob Rix <robrix@github.com>
This commit is contained in:
Rick Winfrey 2019-01-17 14:02:54 -08:00
parent 548cfb9dd3
commit 4998421038
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/Analysis/TypeScript/Spec.hs
View File

@ -166,10 +166,8 @@ spec config = parallel $ do
it "prevents lookup of private members external to the instance" $ do
(_, (_, res)) <- evaluate ["class-private1.ts", "class-private2.ts"]
let accessControlError = "SomeError (BaseError (ModuleInfo \"class-private2.ts\") [18, 1]..[18, 8] (AccessControlError (\"adder\",Public) (\"y\",Private) (Float 3.0)))"
case res of
Left err -> show err `shouldBe` accessControlError
other -> expectationFailure (show other)
let expected = Left (SomeError (inject @(BaseError (EvalError (Quieterm (Sum TypeScript.Syntax) Location) Precise (Concrete.Value (Quieterm (Sum TypeScript.Syntax) Location) Precise))) (BaseError (ModuleInfo "class-private2.ts") (Span (Pos 18 1) (Pos 18 8)) (AccessControlError ("adder", Public) ("y", Private) (Concrete.Float (Decimal 3.0))))))
res `shouldBe` expected
where
fixtures = "test/fixtures/typescript/analysis/"