namespace Gitea.Declarative.Test open System.IO open System.Net.Http open System.Reflection open NUnit.Framework [] module TestSwaggerJson = [] let GITEA_URL = "https://gitea.patrickstevens.co.uk" [] [] let ``Update swagger file`` () : unit = let swaggerFile = Assembly.GetExecutingAssembly().Location |> FileInfo |> fun fi -> fi.Directory |> Utils.findFileAbove "Gitea.Declarative.Lib/swagger.v1.json" task { use client = new HttpClient () let! stream = client.GetStreamAsync $"{GITEA_URL}/swagger.v1.json" use file = swaggerFile.OpenWrite () do! stream.CopyToAsync file return () } |> fun t -> t.Result