mirror of
https://github.com/github/semantic.git
synced 2024-12-23 23:11:50 +03:00
12 lines
271 B
Haskell
12 lines
271 B
Haskell
module Data.Abstract.Name.Spec where
|
||
|
||
import SpecHelpers
|
||
|
||
import Data.Abstract.Name
|
||
|
||
spec :: Spec
|
||
spec = describe "Data.Abstract.Name" $
|
||
it "should format anonymous names correctly" $ do
|
||
show (nameI 0) `shouldBe` "\"_a\""
|
||
show (nameI 26) `shouldBe` "\"_aʹ\""
|