Adding F# to site warmup logic

Author: mathewc

…ipt.WebHost/Resources/Test/function.json …rces/Functions/Test-CSharp/function.jsonsrc/WebJobs.Script.WebHost/Resources/Test/function.json renamed to src/WebJobs.Script.WebHost/Resources/Functions/Test-CSharp/function.json src/WebJobs.Script.WebHost/Resources/Test/function.json renamed to src/WebJobs.Script.WebHost/Resources/Functions/Test-CSharp/function.json

@@ -0,0 +1,9 @@
+{
+    "bindings": [
+        {
+            "type": "manualTrigger",
+            "name": "input",
+            "direction": "in"
+        }
+    ]
+}

…bs.Script.WebHost/Resources/Test/run.csx …/Resources/Functions/Test-CSharp/run.csxsrc/WebJobs.Script.WebHost/Resources/Test/run.csx renamed to src/WebJobs.Script.WebHost/Resources/Functions/Test-CSharp/run.csx src/WebJobs.Script.WebHost/Resources/Test/run.csx renamed to src/WebJobs.Script.WebHost/Resources/Functions/Test-CSharp/run.csx

@@ -0,0 +1,4 @@
+open System
+
+let Run(input: string, log: TraceWriter) =   
+    log.Info(sprintf "Input=%s" input)

src/WebJobs.Script.WebHost/Resources/Functions/Test-FSharp/function.json

@@ -307,6 +307,7 @@
   </ItemGroup>
   <ItemGroup>
     <Content Include="Global.asax" />
+    <EmbeddedResource Include="Resources\Functions\Test-FSharp\run.fsx" />
     <Content Include="Web.config" />
   </ItemGroup>
   <ItemGroup>
@@ -357,9 +358,10 @@
     <None Include="App_Data\secrets\WebHook-Generic-CSharp.json" />
     <None Include="App_Data\secrets\WebHook-Generic.json" />
     <None Include="Properties\PublishProfiles\FileSystem.pubxml" />
-    <EmbeddedResource Include="Resources\Test\function.json" />
-    <EmbeddedResource Include="Resources\Test\host.json" />
-    <EmbeddedResource Include="Resources\Test\run.csx" />
+    <EmbeddedResource Include="Resources\Functions\host.json" />
+    <EmbeddedResource Include="Resources\Functions\Test-CSharp\function.json" />
+    <EmbeddedResource Include="Resources\Functions\Test-CSharp\run.csx" />
+    <EmbeddedResource Include="Resources\Functions\Test-FSharp\function.json" />
     <None Include="Web.Debug.config">
       <DependentUpon>Web.config</DependentUpon>
     </None>

src/WebJobs.Script.WebHost/Resources/Functions/Test-FSharp/run.fsx

@@ -163,17 +163,25 @@ public static void WarmUp(WebHostSettings settings)
                 }
                 Directory.CreateDirectory(rootPath);
 
-                string content = ReadResourceString("Test.host.json");
+                string content = ReadResourceString("Functions.host.json");
                 File.WriteAllText(Path.Combine(rootPath, "host.json"), content);
 
-                string functionPath = Path.Combine(rootPath, "Test");
+                // read in the C# function
+                string functionPath = Path.Combine(rootPath, "Test-CSharp");
                 Directory.CreateDirectory(functionPath);
-                content = ReadResourceString("Test.function.json");
+                content = ReadResourceString("Functions.Test_CSharp.function.json");
                 File.WriteAllText(Path.Combine(functionPath, "function.json"), content);
-
-                content = ReadResourceString("Test.run.csx");
+                content = ReadResourceString("Functions.Test_CSharp.run.csx");
                 File.WriteAllText(Path.Combine(functionPath, "run.csx"), content);
 
+                // read in the F# function
+                functionPath = Path.Combine(rootPath, "Test-FSharp");
+                Directory.CreateDirectory(functionPath);
+                content = ReadResourceString("Functions.Test_FSharp.function.json");
+                File.WriteAllText(Path.Combine(functionPath, "function.json"), content);
+                content = ReadResourceString("Functions.Test_FSharp.run.fsx");
+                File.WriteAllText(Path.Combine(functionPath, "run.fsx"), content);
+
                 traceWriter.Info("Warm up functions deployed");
 
                 ScriptHostConfiguration config = new ScriptHostConfiguration
@@ -196,7 +204,8 @@ public static void WarmUp(WebHostSettings settings)
                 {
                     { "input", "{}" }
                 };
-                host.CallAsync("Test", arguments).Wait();
+                host.CallAsync("Test-CSharp", arguments).Wait();
+                host.CallAsync("Test-FSharp", arguments).Wait();
                 host.Stop();
 
                 traceWriter.Info("Warm up succeeded");

….Script.WebHost/Resources/Test/host.json …pt.WebHost/Resources/Functions/host.jsonsrc/WebJobs.Script.WebHost/Resources/Test/host.json renamed to src/WebJobs.Script.WebHost/Resources/Functions/host.json src/WebJobs.Script.WebHost/Resources/Test/host.json renamed to src/WebJobs.Script.WebHost/Resources/Functions/host.json

@@ -106,6 +106,8 @@ public void Warmup_Succeeds()
                 var content = File.ReadAllText(hostLogFile);
 
                 Assert.Contains("Warm up started", content);
+                Assert.Contains("Executed: 'Functions.Test-CSharp' (Succeeded)", content);
+                Assert.Contains("Executed: 'Functions.Test-FSharp' (Succeeded)", content);
                 Assert.Contains("Warm up succeeded", content);
             }
         }