open NUnit.Framework
open Xunit
open Xunit.Extensions
open FsUnit
let PresentValueOf amt time rate =
amt * System.Math.Pow(1.0 + rate, -time)
[]
type ``Given a future amount f at time t at rate i``() =
[]
[]
[]
[]
[]
[]
[]
[]
[]
member x.``the present value is correct``(f, t, i, expected) =
let actual = PresentValueOf f t i
actual |> should (equalWithin 1.0e-9) expected