add test case

Author: soulomoon

plugins/hls-semantic-tokens-plugin/test/Main.hs

@@ -203,6 +203,7 @@ semanticTokensDataTypeTests =
     "get semantic Tokens"
     [ goldenWithSemanticTokensWithDefaultConfig "simple datatype" "TDataType",
       goldenWithSemanticTokensWithDefaultConfig "record" "TRecord",
+      goldenWithSemanticTokensWithDefaultConfig "TRecordWildCards" "TRecordWildCards",
       goldenWithSemanticTokensWithDefaultConfig "record With DuplicateRecordFields" "TRecordDuplicateRecordFields",
       goldenWithSemanticTokensWithDefaultConfig "datatype import" "TDatatypeImported",
       goldenWithSemanticTokensWithDefaultConfig "datatype family" "TDataFamily",

plugins/hls-semantic-tokens-plugin/test/testdata/TRecordWildCards.expected

@@ -0,0 +1,12 @@
+4:6-9 TTypeConstructor "Foo"
+4:12-15 TDataConstructor "Foo"
+4:18-21 TRecordField "foo"
+4:25-28 TTypeConstructor "Int"
+5:1-5 TVariable "foo1"
+5:8-11 TDataConstructor "Foo"
+6:1-10 TFunction "unpackFoo"
+6:14-17 TTypeConstructor "Foo"
+6:21-24 TTypeConstructor "Int"
+7:1-10 TFunction "unpackFoo"
+7:11-14 TDataConstructor "Foo"
+7:21-24 TVariable "foo"

plugins/hls-semantic-tokens-plugin/test/testdata/TRecordWildCards.hs

@@ -0,0 +1,7 @@
+{-# LANGUAGE RecordWildCards #-}
+module TRecordWildCards where
+
+data Foo = Foo { foo :: Int }
+foo1 = Foo 1
+unpackFoo :: Foo -> Int
+unpackFoo Foo{..} = foo