Skip to content

Commit

Permalink
update TypeLenses test/data dirname
Browse files Browse the repository at this point in the history
  • Loading branch information
jetjinser committed Sep 1, 2024
1 parent 59d56bc commit 0e69f46
Show file tree
Hide file tree
Showing 21 changed files with 3 additions and 3 deletions.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
6 changes: 3 additions & 3 deletions ghcide/test/exe/InlayHintTests.hs
Original file line number Diff line number Diff line change
Expand Up @@ -117,7 +117,7 @@ whereInlayHintsTests = testGroup "add signature for where clauses"

editTest :: String -> TestTree
editTest file =
testWithDummyPlugin (file <> " (InlayHint EditText)") (mkIdeTestFs [copyDir "local-sig-lens"]) $ do
testWithDummyPlugin (file <> " (InlayHint EditText)") (mkIdeTestFs [copyDir "local-sig-inlay-hints"]) $ do
doc <- openDoc (file ++ ".hs") "haskell"
executeAllHints doc globalRange
real <- documentContents doc
Expand All @@ -127,7 +127,7 @@ editTest file =

hintTest :: String -> ([InlayHint] -> Assertion) -> TestTree
hintTest file assert =
testWithDummyPlugin (file <> " (InlayHint)") (mkIdeTestFs [copyDir "local-sig-lens"]) $ do
testWithDummyPlugin (file <> " (InlayHint)") (mkIdeTestFs [copyDir "local-sig-inlay-hints"]) $ do
doc <- openDoc (file ++ ".hs") "haskell"
hints <- getInlayHints doc globalRange
liftIO $ assert hints
Expand All @@ -138,7 +138,7 @@ createConfig on =
A.object [ "plugin"
A..= A.object [ "ghcide-type-lenses"
A..= A.object [ "config"
A..= A.object [ "whereInlayHintOn" A..= A.Bool on ]]]]
A..= A.object [ "localBindingInlayHintOn" A..= A.Bool on ]]]]


executeAllHints :: TextDocumentIdentifier -> Range -> Session ()
Expand Down

0 comments on commit 0e69f46

Please sign in to comment.