aeson-typescript-0.5.0.0: test/LegalNameSpec.hs

module LegalNameSpec where

import Data.Aeson.TypeScript.LegalName
import Data.List.NonEmpty (NonEmpty (..))
import Test.Hspec

tests :: Spec
tests = describe "Data.Aeson.TypeScript.LegalName" $ do
  describe "checkIllegalNameChars" $ do
    describe "legal Haskell names" $ do
      it "allows an uppercase letter" $ do
        checkIllegalNameChars ('A' :| [])
          `shouldBe` Nothing
      it "allows an underscore" $ do
        checkIllegalNameChars ('_' :| "asdf")
          `shouldBe` Nothing
      it "reports that ' is illegal" $ do
        checkIllegalNameChars ('F' :| "oo'")
          `shouldBe` Just ('\'' :| [])
    describe "illegal Haskell names" $ do
      it "allows a $" $ do
        checkIllegalNameChars ('$' :| "asdf")
          `shouldBe` Nothing