typeable/inflections-hs
1
0
Fork 0
mirror of https://github.com/typeable/inflections-hs.git synced 2024-08-15 17:10:21 +03:00
Code Issues Packages Projects Releases Wiki Activity

Allow Word to contain digits (#42)

Browse Source
This commit is contained in:
Dmitry Bushev 2016-12-16 18:03:14 +03:00 committed by Mark Karpov
parent f3cdc38874
commit 185c506788
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Text/Inflections/Parse/CamelCase.hs
View File

@ -51,6 +51,6 @@ parser acronyms = many (acronym acronyms <|> word) <* eof
word :: Parser Word
word = do
firstChar <- upperChar <|> lowerChar
restChars <- many lowerChar
restChars <- many $ lowerChar <|> digitChar
return . Word . T.pack $ firstChar : restChars
{-# INLINE word #-}

4
test/Text/InflectionsSpec.hs
View File

@ -7,9 +7,11 @@ import Text.Inflections (toUnderscore, toDashed, toCamelCased)
spec :: Spec
spec = do
describe "toUnderscore" $
describe "toUnderscore" $ do
it "converts camel case to snake case" $
toUnderscore "camelCasedText" `shouldReturn` "camel_cased_text"
it "converts camel case to snake case with numbers" $
toUnderscore "ipv4Address" `shouldReturn` "ipv4_address"
describe "toDashed" $
it "converts camel case to dashed" $
toDashed "camelCasedText" `shouldReturn` "camel-cased-text"