add support for GoToSource

Author: luajalla

docs/tools/generate.fsx

@@ -20,7 +20,8 @@ let info =
 // For typical project, no changes are needed below
 // --------------------------------------------------------------------------------------
 
-#I "../../packages/FSharp.Formatting.2.2.11-beta/lib/net40"
+#I "../../packages/FSharp.Formatting.2.3.5-beta/lib/net40"
+#I "../../packages/FSharp.Compiler.Service.0.0.11-alpha/lib/net40"
 #I "../../packages/RazorEngine.3.3.0/lib/net40/"
 #r "../../packages/Microsoft.AspNet.Razor.2.0.30506.0/lib/net40/System.Web.Razor.dll"
 #r "../../packages/FAKE/tools/FakeLib.dll"
@@ -48,7 +49,7 @@ let content    = __SOURCE_DIRECTORY__ @@ "../content"
 let output     = __SOURCE_DIRECTORY__ @@ "../output"
 let files      = __SOURCE_DIRECTORY__ @@ "../files"
 let templates  = __SOURCE_DIRECTORY__ @@ "templates"
-let formatting = __SOURCE_DIRECTORY__ @@ "../../packages/FSharp.Formatting.2.2.11-beta/"
+let formatting = __SOURCE_DIRECTORY__ @@ "../../packages/FSharp.Formatting.2.3.5-beta/"
 let docTemplate = formatting @@ "templates/docpage.cshtml"
 
 // Where to look for *.csproj templates (in this order)
@@ -69,7 +70,9 @@ let buildReference () =
   for lib in referenceBinaries do
     MetadataFormat.Generate
       ( bin @@ lib, output @@ "reference", layoutRoots, 
-        parameters = ("root", root)::info )
+        parameters = ("root", root)::info,
+        sourceRepo = "https://github.com/fsprojects/ExcelFinancialFunctions/tree/master/src/",
+        sourceFolder = @"..\..\src", publicOnly = true)
 
 // Build documentation from `fsx` and `md` files in `docs/content`
 let buildDocumentation () =

docs/tools/packages.config

@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
-  <package id="FSharp.Formatting" version="2.2.11-beta" targetFramework="net45" />
+  <package id="FSharp.Formatting" version="2.3.5-beta" targetFramework="net45" />
+  <package id="FSharp.Compiler.Service" version="0.0.11-alpha" targetFramework="net45" />
   <package id="Microsoft.AspNet.Razor" version="2.0.30506.0" targetFramework="net45" />
   <package id="RazorEngine" version="3.3.0" targetFramework="net45" />
 </packages>

docs/tools/templates/template.cshtml

@@ -54,6 +54,6 @@
         </div>
       </div>
     </div>
-    <a href="@Properties["project-github"]"><img style="position: absolute; top: 0; right: 0; border: 0;" src="https://s3.amazonaws.com/github/ribbons/forkme_right_gray_6d6d6d.png" alt="Fork me on GitHub"></a>
+    <a href="@Properties["project-github"]"><img style="position: absolute; top: 0; right: 0; border: 0;" src="https://s3.amazonaws.com/github/ribbons/forkme_right_green_007200.png" alt="Fork me on GitHub"></a>
   </body>
   </html>

tests/ExcelFinancialFunctions.Tests/crosstests.fs

@@ -159,7 +159,7 @@ module CrossTests =
 
     [<Test>]
     let ``npv given irr should be zero``() = 
-        runTests "irr" (fun [| cfs; _; res |] ->
+        runTests "npv(irr)" (fun [| cfs; _; res |] ->
             (parse res, parseArray cfs), 0.) Financial.Npv
 
     [<Test>]

tests/ExcelFinancialFunctions.Tests/spottests.fs

@@ -51,3 +51,31 @@ module SpotTests =
             tryTBillPrice sd md disc
             ==>
             lazy (Financial.TBillPrice(sd, md, disc) - 100. < PRECISION))
+
+    [<Test>]
+    let ``vdb in the period should be the same as the sum by subperiods``() =
+        fsCheck (fun c s len switchToStraightLine ->
+            let start, life = 0., 10.
+            let cost, salvage, period = toFloat c * 1000., toFloat s * 100., toFloat len
+            let p1, p2 = period, period * 2.
+            
+            tryVdb cost salvage life start p2 1. switchToStraightLine
+            ==>
+            lazy (let inline vdb sd ed = Financial.Vdb(cost, salvage, life, sd, ed, 1., switchToStraightLine)
+                  abs (vdb start p1 + vdb p1 p2 - vdb start p2) < PRECISION))
+
+    [<Test>]
+    let ``cumulative accrint should be the same as the sum of payments``() =
+        fsCheck (fun (issue: DateTime) p r freq basis frac ->
+            let par, rate = toFloat p * 1000000., toFloat r
+            let fd, md = issue.AddDays 30., issue.AddYears 10            
+            let ncd = Financial.CoupNCD(fd, md, freq, basis)
+
+            tryAccrInt issue ncd fd rate par freq basis
+            ==>
+            lazy (let inline accrint interest settlement =
+                      Financial.AccrInt(issue, interest, settlement, rate, par, freq, basis)
+
+                  let daysTillInterest = max (360. / float freq * toFloat frac) 1.
+                  let interest = ncd.AddDays daysTillInterest
+                  abs (accrint ncd fd + accrint interest ncd - accrint interest fd) < PRECISION))