@@ -0,0 +1,17 @@
1+{-# LANGUAGE OverloadedStrings #-}
3+module Servant.ForeignSpec where
5+import Servant.Foreign (camelCase)
10+spec = describe "Servant.Foreign" $ do
14+camelCaseSpec = describe "camelCase" $ do
15+ it "converts FunctionNames to camelCase" $ do
16+ camelCase ["post", "counter", "inc"] `shouldBe` "postCounterInc"
17+ camelCase ["get", "hyphen-ated", "counter"] `shouldBe` "getHyphenatedCounter"