Skip to content

remove non-ascii name #4103

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 1 commit into from
Feb 29, 2024
Merged

remove non-ascii name #4103

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
18 changes: 9 additions & 9 deletions plugins/hls-semantic-tokens-plugin/test/SemanticTokensTest.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -178,7 +178,7 @@ semanticTokensFullDeltaTests :: TestTree
semanticTokensFullDeltaTests =
testGroup "semanticTokensFullDeltaTests" $
[ testCase "null delta since unchanged" $ do
let file1 = "TModula𐐀bA.hs"
let file1 = "TModuleA.hs"
let expectDelta = InR (InL (SemanticTokensDelta (Just "1") []))
Test.Hls.runSessionWithServerInTmpDir def semanticTokensPlugin (mkFs $ FS.directProjectMulti [file1]) $ do
doc1 <- openDoc file1 "haskell"
Expand All @@ -188,7 +188,7 @@ semanticTokensFullDeltaTests =
liftIO $ delta @?= expectDelta

, testCase "add tokens" $ do
let file1 = "TModula𐐀bA.hs"
let file1 = "TModuleA.hs"
let expectDelta = InR (InL (SemanticTokensDelta (Just "1") [SemanticTokensEdit 20 0 (Just [2,0,3,8,0])]))
-- r c l t m
-- where r = row, c = column, l = length, t = token, m = modifier
Expand All @@ -207,7 +207,7 @@ semanticTokensFullDeltaTests =
liftIO $ delta @?= expectDelta

, testCase "remove tokens" $ do
let file1 = "TModula𐐀bA.hs"
let file1 = "TModuleA.hs"
let expectDelta = InR (InL (SemanticTokensDelta (Just "1") [SemanticTokensEdit 0 20 (Just [])]))
-- delete all tokens
Test.Hls.runSessionWithServerInTmpDir def semanticTokensPlugin (mkFs $ FS.directProjectMulti [file1]) $ do
Expand All @@ -229,7 +229,7 @@ semanticTokensTests :: TestTree
semanticTokensTests =
testGroup "other semantic Token test" $
[ testCase "module import test" $ do
let file1 = "TModula𐐀bA.hs"
let file1 = "TModuleA.hs"
let file2 = "TModuleB.hs"
Test.Hls.runSessionWithServerInTmpDir def semanticTokensPlugin (mkFs $ FS.directProjectMulti [file1, file2]) $ do
doc1 <- openDoc file1 "haskell"
Expand All @@ -245,14 +245,14 @@ semanticTokensTests =

result <- docSemanticTokensString def doc2
let expect = unlines [
"3:8-18 TModule \"TModula\\66560bA\""
, "4:18-28 TModule \"TModula\\66560bA\""
"3:8-16 TModule \"TModuleA\""
, "4:18-26 TModule \"TModuleA\""
, "6:1-3 TVariable \"go\""
, "6:6-10 TDataConstructor \"Game\""
, "8:1-5 TVariable \"a\\66560bb\""
, "8:8-19 TModule \"TModula\\66560bA.\""
, "8:19-22 TRecordField \"a\\66560b\""
, "8:23-25 TVariable \"go\""
, "8:8-17 TModule \"TModuleA.\""
, "8:17-20 TRecordField \"a\\66560b\""
, "8:21-23 TVariable \"go\""
]
liftIO $ result @?= expect,
goldenWithSemanticTokensWithDefaultConfig "mixed constancy test result generated from one ghc version" "T1",
Expand Down
2 changes: 1 addition & 1 deletion ...tokens-plugin/test/testdata/TModula𐐀bA.hs → ...c-tokens-plugin/test/testdata/TModuleA.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
module TModula𐐀bA where
module TModuleA where

data Game = Game {a𐐀b :: Int}

Expand Down
6 changes: 3 additions & 3 deletions plugins/hls-semantic-tokens-plugin/test/testdata/TModuleB.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,8 +1,8 @@
module TModuleB where

import TModula𐐀bA
import qualified TModula𐐀bA
import TModuleA
import qualified TModuleA

go = Game 1

a𐐀bb = TModula𐐀bA.a𐐀b go
a𐐀bb = TModuleA.a𐐀b go