Move the whole project to scripts for easier running and testing. Add tests in the build script.

Author: zhengbli

App.config

@@ -1,4 +1,4 @@
-module JS
+#load "Shared.fsx"
 
 open System
 open System.IO
@@ -691,6 +691,7 @@ let EmitTheWholeThing flavor (target: TextWriter) =
 
     fprintf target "%s" content
     target.Flush()
+    target.Close()
 
 let EmitDomWeb () = 
     EmitTheWholeThing Flavor.Web GlobalVars.jsWebOutput

AssemblyInfo.fs

@@ -1,4 +1,5 @@
-module Shared
+#r @"packages\FSharp.Data\lib\net40\FSharp.Data.dll"
+#r "System.Xml.Linq.dll"
 
 open FSharp.Data
 open System.IO

Generator.fsproj

@@ -1,4 +1,4 @@
-module TS
+#load "Shared.fsx"
 
 open System
 open System.Text.RegularExpressions
@@ -578,6 +578,7 @@ let EmitTheWholeThing flavor (target:TextWriter) =
 
     fprintf target "%s" (Pt.getResult())
     target.Flush()
+    target.Close()
 
 let EmitDomWeb () =
     EmitTheWholeThing Flavor.All GlobalVars.tsWebOutput

Generator.sln

@@ -22,5 +22,3 @@ if not exist paket.lock (
 
 @echo "Building..."
 packages\FAKE\tools\FAKE.exe %* --fsiargs build.fsx
-
-.\bin\Generator.exe

JS.fs renamed to JS.fsx

@@ -1,24 +1,36 @@
 #r "packages/FAKE/tools/FakeLib.dll"
-open Fake
+#load "Shared.fsx"
+#load "TS.fsx"
+#load "JS.fsx"
 
-let buildDir = "./bin"
+open Fake
+open TS
+open JS
+open System.IO
 
-Target "Clean" (fun _ ->
-    CleanDir buildDir
+Target "Run" (fun _ ->
+    JS.EmitDomWeb()
+    JS.EmitDomWin()
+    JS.EmitDomWorker()
+    // For typescript only generate for Dom
+    TS.EmitDomWeb()
+    TS.EmitDomWorker()
 )
 
-Target "Build" (fun _ ->
-    !! "Generator.fsproj"
-        |> MSBuildRelease buildDir "Build"
-        |> Log "Build output: "
-)
+let testFile file =
+    let baseline = "./baselines/" + file
+    let newFile = "./generated/" + file
+    if FilesAreEqual (FileInfo baseline) (FileInfo newFile) then
+        tracefn "Test passed: %s." newFile
+    else
+        traceError (sprintf "Test failed: %s is different from baseline file." newFile)
 
-Target "DoneBuilding" (fun _ ->
-    trace "Done building."
+Target "Test" (fun _ ->
+    Directory.GetFiles("./baselines")
+    |> Array.map Path.GetFileName
+    |> Array.iter testFile
 )
 
-"Clean"
-    ==> "Build"
-    ==> "DoneBuilding"
+"Run" ==> "Test"
 
-RunTargetOrDefault "DoneBuilding"
+RunTargetOrDefault "Test"