Come posso creare un'azione <T> in F #?

Question

Sto usando il framework Moq per il test delle unità e vorrei poter passare in Action per registrare i metodi void.

let log = new Mock<ILog>() 
let quot = <@ fun (mock:ILog) -> mock.Info(It.IsAny<string>) @> 
let expr = (quot.ToLinqExpression() :?> Expression<Action<ILog>>) 
log.Verify(expr) 

Questo codice non riesce con il seguente errore:

System.InvalidCastException : Unable to cast object of type 'System.Linq.Expressions.MethodCallExpressionN' to type 'System.Linq.Expressions.Expression 1[System.Action 1[log4net.ILog]]'.

posso stampare il tipo utilizzando

printfn "%s" (quot.Type.ToString()) 

che emette

Microsoft.FSharp.Core.FSharpFunc`2[log4net.ILog,Microsoft.FSharp.Core.Unit]

Così, come posso creare un'azione?

Answer 1

Prova:

let quot = <@ new Action<_>(fun (mock:ILog) -> mock.Info(It.IsAny<string>)) @> 

Answer 2

espressioni LINQ sono pienamente supportati in F # 3, così ora si può passare un azione per Moq come lambda expression:

let mock = Mock<ILog>() 
mock.Verify(fun (log:ILog) -> log.Info(It.IsAny<string>()))