Create Pulumi-provisioned web server

PulumiWebServer.Test/Utils.fs

@@ -0,0 +1,21 @@
+namespace PulumiWebServer.Test
+
+open System.IO
+
+[<RequireQualifiedAccess>]
+module Utils =
+
+    type Dummy =
+        class
+        end
+
+    let rec findFileAbove (fileName : string) (di : DirectoryInfo) =
+        if isNull di then
+            failwith "hit the root without finding anything"
+
+        let candidate = Path.Combine (di.FullName, fileName) |> FileInfo
+
+        if candidate.Exists then
+            candidate
+        else
+            findFileAbove fileName di.Parent