Redmine-0.0.1: testsuite/testGet.hs

{-# LANGUAGE OverloadedStrings #-}

import Test.HUnit
import Data.Map
import Redmine.Get

test1 = TestCase (do let m   = fromList [("toto","a"),("offset","20"), ("limit","100")]
                         ref = "?toto=a&offset=20&limit=100&"
                     assertEqual "Option expansion failed" ref (expandOptions m))

test2 = TestCase (do let m   = fromList [("offset","20"), ("limit","100")]
                         ref = fromList [("offset","120"), ("limit","100")]
                     assertEqual "increaseQueryRange a échouée" ref (increaseQueryRange m))


--decodeIssue

main = runTestTT test2 --[test1,test2]