wasp/waspc/test/UtilTest.hs
Prat 51d7f30b97
Add support for kebab-case in project name (#590) (#700)
* Add support for kebab-case in project name (#590)

* clean up kebab case naming (#590)

* clean up code for create new project (#590)

* clean up code for kebab-name project (#590)

Co-authored-by: Prat T <pt2121@users.noreply.github.com>
2022-09-02 11:54:25 +02:00

152 lines
5.6 KiB
Haskell

module UtilTest where
import Control.DeepSeq
import Control.Exception (evaluate)
import Data.Aeson (object, toJSON, (.=))
import qualified Data.Aeson as Aeson
import Test.Tasty.Hspec
import Wasp.Util
spec_camelToKebabCase :: Spec
spec_camelToKebabCase = do
"foobar" ~> "foobar"
"s3" ~> "s3"
"fooBarBar" ~> "foo-bar-bar"
"s3Folder" ~> "s3-folder"
"S3Folder" ~> "s3-folder"
where
camel ~> kebab = it (camel ++ " -> " ++ kebab) $ do
camelToKebabCase camel `shouldBe` kebab
spec_kebabToCamelCase :: Spec
spec_kebabToCamelCase = do
"foobar" ~> "foobar"
"s3" ~> "s3"
"foo-bar-bar" ~> "fooBarBar"
"todo-App" ~> "todoApp"
"TODO-app" ~> "TODOApp"
"s3-folder" ~> "s3Folder"
"foo---bar-baz" ~> "fooBarBaz"
"-foo-" ~> "foo"
"-" ~> ""
"--" ~> ""
"" ~> ""
where
kebab ~> camel = it (kebab ++ " -> " ++ camel) $ do
kebabToCamelCase kebab `shouldBe` camel
spec_onFirst :: Spec
spec_onFirst = do
it "Returns empty list for empty list" $ do
onFirst id ([] :: [Char]) `shouldBe` []
it "Applies given method on first element of list" $ do
onFirst (+ 1) ([1, 2, 3] :: [Int]) `shouldBe` [2, 2, 3]
spec_toLowerFirst :: Spec
spec_toLowerFirst = do
it "Lowers first letter of string" $ do
toLowerFirst "FooBar" `shouldBe` "fooBar"
spec_toUpperFirst :: Spec
spec_toUpperFirst = do
it "Capitalizes first letter of string" $ do
toUpperFirst "fooBar" `shouldBe` "FooBar"
spec_second3 :: Spec
spec_second3 = do
it "Applies the function to the second element of a tuple of size 3." $ do
second3 negate ("1" :: String, 2 :: Int, True) `shouldBe` ("1", -2, True)
spec_jsonSet :: Spec
spec_jsonSet = do
let inputObj =
object
[ "prop1" .= ("first" :: String)
]
it "When input JSON is not an object, throws an error." $ do
(evaluate . force) (jsonSet "someProp" (Aeson.Number 23) (Aeson.Bool True))
`shouldThrow` errorCall "Input JSON must be an object"
it "When a new property is set, result object contains it along with the original ones." $ do
let expectedObj =
object
[ "prop1" .= ("first" :: String),
"newProp" .= (23 :: Int)
]
jsonSet "newProp" (Aeson.Number 23) inputObj `shouldBe` expectedObj
it "When an existing property is set, it is overwritten in the result object." $ do
let newStrValue = "newVal" :: String
let expectedObj =
object
[ "prop1" .= newStrValue
]
jsonSet "prop1" (toJSON newStrValue) inputObj `shouldBe` expectedObj
spec_indent :: Spec
spec_indent = do
describe "Should indent the given text correctly" $ do
it "When given only a single line of text" $ do
indent 2 "foo" `shouldBe` " foo"
it "When given multiple lines of text" $ do
indent 3 "foo\nbar" `shouldBe` " foo\n bar"
it "When given a single line of text with existing indentation" $ do
indent 4 " foo" `shouldBe` " foo"
it "When given multiple lines of text with existing indentation" $ do
indent 4 "foo\n bar" `shouldBe` " foo\n bar"
it "When given text containing empty lines" $ do
indent 4 "foo\n\nbar\n baz\n\n ban" `shouldBe` " foo\n\n bar\n baz\n\n ban"
spec_concatShortPrefixAndText :: Spec
spec_concatShortPrefixAndText = do
describe "concatShortPrefixAndText should" $ do
it "return prefix if text is empty" $ do
concatShortPrefixAndText "--" "" `shouldBe` "--"
it "directly concat if text has single line" $ do
concatShortPrefixAndText " - " "foo" `shouldBe` " - foo"
it "align the rest of the lines in text with the first line" $ do
concatShortPrefixAndText " - " "foo\nbar" `shouldBe` " - foo\n bar"
spec_concatPrefixAndText :: Spec
spec_concatPrefixAndText = do
describe "concatPrefixAndText should" $ do
it "return prefix if text is empty" $ do
concatPrefixAndText "some prefix: " "" `shouldBe` "some prefix: "
it "directly concat if text has single line" $ do
concatPrefixAndText "prefix: " "foo" `shouldBe` "prefix: foo"
it "put all the text below the prefix, indented for 2 spaces, if text has multiple lines" $ do
concatPrefixAndText "prefix: " "foo\nbar" `shouldBe` "prefix: \n foo\n bar"
spec_leftPad :: Spec
spec_leftPad = do
describe "leftPad should" $ do
it "pad the list if it is shorter than desired length" $ do
leftPad ' ' 5 "hi" `shouldBe` " hi"
it "not modify the list if it is already long enough" $ do
leftPad ' ' 5 "hihih" `shouldBe` "hihih"
leftPad ' ' 5 "hihihi" `shouldBe` "hihihi"
spec_insertAt :: Spec
spec_insertAt = do
describe "insertAt should" $ do
it "insert given list at the start of host list if index is 0 or negative" $ do
insertAt [0] 0 [1, 2, 3] `shouldBe` ([0, 1, 2, 3] :: [Int])
insertAt [0] (-1) [1, 2, 3] `shouldBe` ([0, 1, 2, 3] :: [Int])
it "insert given list in the host list at given index when index is in [1, host list length - 1]" $ do
insertAt [0] 1 [1, 2, 3] `shouldBe` ([1, 0, 2, 3] :: [Int])
insertAt [0] 2 [1, 2, 3] `shouldBe` ([1, 2, 0, 3] :: [Int])
it "insert given list at the end of host list if index is equal or bigger than host list length" $ do
insertAt [0] 3 [1, 2, 3] `shouldBe` ([1, 2, 3, 0] :: [Int])
insertAt [0] 4 [1, 2, 3] `shouldBe` ([1, 2, 3, 0] :: [Int])
spec_hex :: Spec
spec_hex = do
it "Correctly transforms bytestring to hex" $ do
bytestringToHex "test" `shouldBe` hexFromString "74657374"
spec_checksum :: Spec
spec_checksum = do
it "Correctly calculates checksum of string" $ do
checksumFromString "test" `shouldBe` hexFromString "9f86d081884c7d659a2feaa0c55ad015a3bf4f1b2b0b822cd15d6c15b0f00a08"