4

fun2 を呼び出さずに fun1 を単体テストしたいと思います。

let fun2() =
    // Some complex function with lots of dependencies.
    1

let fun1() =
    fun2() * 2

2 つの関数間の依存関係を解消する最善の方法は何ですか?

私はいくつかの異なる方法を試しましたが、混乱を招くだけです。

fun2 を fun1 に渡す

let fun1(fun2) =
    fun2() * 2

クラスに変換してオーバーライドする

type FunClass() =
    abstract member fun2 : unit -> int
    default x.fun2() = 1

    member x.fun1() =
        x.fun2() * 2

type FunClassMock() =
    override member x.fun2() = 1

戦略パターンを使用する

type Fun1Class(fun2Class) =

    member x.fun1() =
       fun2Class.fun2() * 2

変数を使用する

let fun2Imp() =
    1

let mutable fun2 = fun2Imp

let fun1() =
    fun2() * 2

よりクリーンな方法はありますか？

4

4 に答える 4

3

使い方にもよりますが、以下のようなことができます。

let fun2() =
    // Some complex function with lots of dependencies.
    1

let createFun1 fun2 =
    fun () -> fun2() * 2

let fun1 = createFun1 fun2

これは、単純な関数を fun2 に渡すだけで fun1 をテストできるため、単体テストにも役立ちます。

于 2013-04-08T15:29:50.273 に答える
2

あまり柔軟ではありませんが、コンパイラ ディレクティブは機能します。

let fun2() =
  #if TESTING
  1
  #else
  // Some complex function with lots of dependencies.
  #endif

fun2別のモジュールで定義しopen、必要なモジュールを ing することも別のオプションです。

module Impl =
  let fun2() =
    // Some complex function with lots of dependencies.

module Testing =
  let fun2() = 1
于 2013-04-08T15:31:07.577 に答える
1

あなたがそれを行う方法は（少なくとも私が知っている限り）、「混乱を招く」ことになります。このようなものはどうですか？

let fun1() = 
    fun1_impl(fun2)

let fun1_impl(fun2) =
    fun2() * 2

次に、通常のコードでは を使用fun1し、テストでは を使用しますfun1_impl。

于 2013-04-08T15:19:44.820 に答える