ReturnFunc not working for int64 properties

[marklam]

Visual F# 4.4, .net 4.5.2, Foq 1.7.1, debug build

open Foq

type IFoo =
    abstract N : int64

[<EntryPoint>]
let main _ = 
    let mock1 = Mock<IFoo>().Setup(fun foo -> <@ foo.N @>).Returns(7L).Create()
    printfn "%d" mock1.N

    let mock2 = Mock<IFoo>().Setup(fun foo -> <@ foo.N @>).ReturnsFunc(fun () -> 7L).Create()
    printfn "%d" mock2.N

    0

Should write

7
7

Actually writes

7
200113899394039815

[marklam]

Also, using SetupByName produces a similar result (on this run, 209092047489990663):

    let mock2 = Mock<IFoo>().SetupByName("get_N").ReturnsFunc(fun () -> 7L).Create()
    printfn "%d" mock2.N

but not doing any setup produces the default value, 0

    let mock2 = Mock<IFoo>().Create()
    printfn "%d" mock2.N

[ptrelford]

Hi Mark and sorry for the excessively delayed response. Thanks for the bug report, unfortunately to this day I have been unable to repro your issue, it's returning 7 for me in all cases. If this is still an issue please provide more details, i.e. which version of Foq are you using, which version of the F# Compiler, FSharp.Core. Have you tried pulling the Foq source code directly from the site?

[marklam]

Hi Phil,
I've created a GitHub repo with the repro case here
And my debug build here

It was built Debug AnyCPU using the NuGet release 1.7.1, FSharp.Core 4.40.23413.0, and .net 4.5.2

[marklam]

I also tried dropping in the current version of Foq.fs from GitHub, but it made no difference.

[ptrelford]

Sorry, still unable to reproduce your issue. I've added your reported issue as a test case all-the-same.

[marklam]

For the record, the 1.7.2 version does fix the problem. Sorry it took me a while to check, but I'd added a (now-stale) copy of Foq.fs to my repro case. Removing that and updating to 1.7.2 fixed the problem.
Thanks!