fakedata-0.3.0: test/InternalSpec.hs

{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE OverloadedStrings #-}

module InternalSpec where

import Faker.Internal
import Test.Hspec

spec :: Spec
spec = do
  describe "Internal module" $ do
    describe "refinedString" $ do
      it "basic check" $ do
        let str = "helloWorld"
        (refinedString str) `shouldBe` str
      it "removes unwanted char" $ do
        let str = "hello_World"
        (refinedString str) `shouldBe` "helloWorld"
      it "proper case conversion" $ do
        let str = "hello_world"
        (refinedString str) `shouldBe` "helloWorld"
      -- it "Starting case check" $ do
      --   let str = "HelloWorld"
      --   (refinedString str) `shouldBe` "helloWorld"