haskell自動テスト設定

Question

私はプロジェクトを設定しました。私はそれをテストしたいと思います。今問題はデータベースでのプロダクション作業での私の機能ですが、テストではそれらを偽のデータベースに向けることにしました。

たとえば、私は文字列mongoHostAdress = "192.168.0.1"を使用して、mongoデータベースにアクセスします。テストするときは、mongoHostAdress = "127.0.0.1"に変更します。

私はこれを自動的に行うようにHaskellに指示できますか？

編集：より一般的な見通し

は、どのように私はプロジェクトの設定ファイルを作成し、プロジェクトの異なるステージに異なるのparamsを使用することができますか？

Answer 1

ので、コンセプトは次のようになりますどのINPUT.TXTファイルを作成している：今のメイン関数の内部で使用すると、簡単にこのような構成を使用して、あなたのparamsを設定することができ

fstParameterName:fstParameterValue 
sndParameterName:sndParameterValue 
trdParameterName:trdParameterValue 

を：

main = do 
text <- readFile "input.txt" 
mongoHostAdress <- (getConfigValue "mongoHostAdress" (lines text)) 
print(mongoHostAdress) 

getConfigValue name (l:ls) = if(containsPrefix name l) 
    then (return(skipPrefix name l)) 
    else (getConfigValue name ls) 

containsPrefix [] x = True 
containsPrefix (x:xs) (y:ys) = if(x==y) then (containsPrefix xs ys) else False 

skipPrefix [] (x:xs) = xs --x is just ":" and ofc we dont want it 
skipPrefix (x:xs) (y:ys) = skipPrefix xs ys