mirror of
https://github.com/github/semantic.git
synced 2024-12-20 21:31:48 +03:00
ec4248cbb4
27 [-Wunused-matches] 7 [-Wmissing-export-lists] 6 [-Wunused-imports] 5 [-Wmissing-signatures] 2 [-Wincomplete-uni-patterns] 1 [-Wunused-top-binds] 1 [-Wtype-defaults]
10 lines
251 B
Haskell
10 lines
251 B
Haskell
module Data.Abstract.Name.Spec (spec) where
|
||
|
||
import SpecHelpers
|
||
|
||
spec :: Spec
|
||
spec = describe "Data.Abstract.Name" $
|
||
it "should format anonymous names correctly" $ do
|
||
show (nameI 0) `shouldBe` "\"_a\""
|
||
show (nameI 26) `shouldBe` "\"_aʹ\""
|