@@ -19,6 +19,9 @@ camelCaseSpec = describe "camelCase" $ do
19 it "converts FunctionNames to camelCase" $ do
19 it "converts FunctionNames to camelCase" $ do
20 camelCase (FunctionName ["post", "counter", "inc"])
20 camelCase (FunctionName ["post", "counter", "inc"])
21 `shouldBe` "postCounterInc"
21 `shouldBe` "postCounterInc"
22+ camelCase (FunctionName ["get", "hyphen-ated", "counter"])
23+ `shouldBe` "getHyphen-atedCounter"
23----------------------------------------------------------------------
26----------------------------------------------------------------------