module InterestIsInterestingTests open FsUnit.Xunit open Xunit open Exercism.Tests open InterestIsInteresting [] [] let ``Minimal first interest rate``() = interestRate 0m |> should (equalWithin 0.001) 0.5f [] [] let ``Tiny first interest rate``() = interestRate 0.000001m |> should (equalWithin 0.001) 0.5f [] [] let ``Maximum first interest rate``() = interestRate 999.9999m |> should (equalWithin 0.001) 0.5f [] [] let ``Minimal second interest rate``() = interestRate 1_000.0m |> should (equalWithin 0.001) 1.621f [] [] let ``Tiny second interest rate``() = interestRate 1_000.0001m |> should (equalWithin 0.001) 1.621f [] [] let ``Maximum second interest rate``() = interestRate 4_999.9990m |> should (equalWithin 0.001) 1.621f [] [] let ``Minimal third interest rate``() = interestRate 5_000.0000m |> should (equalWithin 0.001) 2.475f [] [] let ``Tiny third interest rate``() = interestRate 5_000.0001m |> should (equalWithin 0.001) 2.475f [] [] let ``Large third interest rate``() = interestRate 5_639_998.742909m |> should (equalWithin 0.001) 2.475f [] [] let ``Minimal negative interest rate``() = interestRate -0.000001M |> should (equalWithin 0.001) 3.213f [] [] let ``Small negative interest rate``() = interestRate -0.123M |> should (equalWithin 0.001) 3.213f [] [] let ``Regular negative interest rate``() = interestRate -300.0M |> should (equalWithin 0.001) 3.213f [] [] let ``Large negative interest rate``() = interestRate -152964.231M |> should (equalWithin 0.001) 3.213f [] [] let ``Interest on negative balance`` () = interest -10000.0m |> should (equalWithin 0.001) -321.3m [] [] let ``Interest on small balance`` () = interest 555.55m |> should (equalWithin 0.001) 2.77775m [] [] let ``Interest on medium balance`` () = interest 4999.99m |> should (equalWithin 0.001) 81.0498379m [] [] let ``Interest on large balance`` () = interest 34600.80m |> should (equalWithin 0.001) 856.3698m [] [] let ``Annual balance update for empty start balance``() = annualBalanceUpdate 0.0m |> should (equalWithin 0.001) 0.0000m [] [] let ``Annual balance update for small positive start balance``() = annualBalanceUpdate 0.000001m |> should (equalWithin 0.001) 0.000001005m [] [] let ``Annual balance update for average positive start balance``() = annualBalanceUpdate 1_000.0m |> should (equalWithin 0.001) 1016.210000m [] [] let ``Annual balance update for large positive start balance``() = annualBalanceUpdate 1_000.0001m |> should (equalWithin 0.001) 1016.210101621m [] [] let ``Annual balance update for huge positive start balance``() = annualBalanceUpdate 898124017.826243404425m |> should (equalWithin 0.001) 920352587.26744292868451875m [] [] let ``Annual balance update for small negative start balance``() = annualBalanceUpdate -0.123M |> should (equalWithin 0.001) -0.12695199M [] [] let ``Annual balance update for large negative start balance``() = annualBalanceUpdate -152964.231M |> should (equalWithin 0.001) -157878.97174203M [] [] let ``Amount to donate for empty start balance``() = amountToDonate 0.0m 2.0 |> should equal 0 [] [] let ``Amount to donate for small positive start balance``() = amountToDonate 0.000001m 2.1 |> should equal 0 [] [] let ``Amount to donate for average positive start balance``() = amountToDonate 1_000.0m 2.0 |> should equal 40 [] [] let ``Amount to donate for large positive start balance``() = amountToDonate 1_000.0001m 0.99 |> should equal 19 [] [] let ``Amount to donate for huge positive start balance``() = amountToDonate 898124017.826243404425m 2.65 |> should equal 47600572 [] [] let ``Amount to donate for small negative start balance``() = amountToDonate -0.123M 3.33 |> should equal 0 [] [] let ``Amount to donate for large negative start balance``() = amountToDonate -152964.231M 5.4 |> should equal 0