Merge pull request #15 from nsaunders/tests

Add decode and encode tests.

Author: thomashoneyman

.travis.yml

@@ -12,7 +12,7 @@ install:
   - npm install -g bower
   - npm install
 script:
-  - bower install --production
+  - bower install
   - npm run -s build
   - npm run -s test
 after_success:

bower.json

@@ -21,5 +21,8 @@
     "purescript-strings": "^4.0.0",
     "purescript-tuples": "^5.0.0",
     "purescript-foldable-traversable": "^4.1.1"
+  },
+  "devDependencies": {
+    "purescript-assert": "^4.1.0"
   }
 }

test/Main.purs

@@ -2,7 +2,51 @@ module Test.Main where
 
 import Prelude
 
+import Data.FormURLEncoded (FormURLEncoded(..), decode, encode)
+import Data.Maybe (Maybe(..))
+import Data.Tuple (Tuple(..))
 import Effect (Effect)
+import Effect.Console (log)
+import Test.Assert (assert)
 
 main :: Effect Unit
-main = pure unit
+main = do
+
+  testDecode "a=aa&b=bb" (Just $ FormURLEncoded [ Tuple "a" $ Just "aa", Tuple "b" $ Just "bb" ])
+
+  testDecode "this=this%3Dthis" (Just $ FormURLEncoded [ Tuple "this" $ Just "this=this" ])
+
+  testDecode "&x=x&&y=y&z=" $
+    Just $ FormURLEncoded
+      [ Tuple "" Nothing
+      , Tuple "x" $ Just "x"
+      , Tuple "" Nothing
+      , Tuple "y" $ Just "y"
+      , Tuple "z" $ Just ""
+      ]
+
+  testDecode "a=b&%8A=c" Nothing
+
+  testEncode (FormURLEncoded [ Tuple "a" $ Just "aa", Tuple "b" $ Just "bb" ]) $ Just "a=aa&b=bb"
+
+  testEncode (FormURLEncoded [ Tuple "this" $ Just "this=this" ]) $ Just "this=this%3Dthis"
+
+  testEncode
+    (FormURLEncoded
+      [ Tuple "" Nothing
+      , Tuple "x" $ Just "x"
+      , Tuple "" Nothing
+      , Tuple "y" $ Just "y"
+      , Tuple "z" $ Just ""
+      ])
+    (Just "&x=x&&y=y&z=")
+
+  where
+
+    testDecode :: String -> Maybe FormURLEncoded -> Effect Unit
+    testDecode input expected =
+      (log $ "decode \"" <> input <> "\" == " <> show expected) *> assert (decode input == expected)
+
+    testEncode :: FormURLEncoded -> Maybe String -> Effect Unit
+    testEncode input expected =
+      (log $ "encode " <> show input <> " == \"" <> show expected <> "\"") *> assert (encode input == expected)