patrick/gitea-repo-config
1
0
Fork 0
mirror of https://github.com/Smaug123/gitea-repo-config synced 2025-10-07 16:38:41 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add workflow (#1)

Browse Source
This commit is contained in:
Patrick Stevens
2022-12-29 23:15:59 +00:00
committed by GitHub
parent 5a93808592
commit c5777a1172
16 changed files with 3212 additions and 129 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
Gitea.Test/TestJsonSchema.fs
View File

@@ -15,37 +15,13 @@ module TestSchema =
let schemaGen = JSchemaGenerator ()
schemaGen.ContractResolver <- CamelCasePropertyNamesContractResolver ()
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
let rec findExampleFile (di : DirectoryInfo) =
if isNull di then
failwith "hit the root without finding anything"
let candidate =
Path.Combine (di.FullName, "GiteaConfig.json") |> FileInfo
if candidate.Exists then
candidate
else
findExampleFile di.Parent
[<Test>]
let ``Schema is consistent`` () =
let schemaFile =
Assembly.GetExecutingAssembly().Location
|> FileInfo
|> fun fi -> fi.Directory
|> findFileAbove "Gitea/GiteaConfig.schema.json"
|> Utils.findFileAbove "Gitea/GiteaConfig.schema.json"
let existing = JSchema.Parse (File.ReadAllText schemaFile.FullName)
let derived = schemaGen.Generate typeof<SerialisedGiteaConfig>
@@ -54,14 +30,12 @@ module TestSchema =
[<Test>]
let ``Example conforms to schema`` () =
let executing =
Assembly.GetExecutingAssembly().Location
|> FileInfo
let schemaFile = findFileAbove "GiteaConfig.json" executing.Directory
let executing = Assembly.GetExecutingAssembly().Location |> FileInfo
let schemaFile = Utils.findFileAbove "GiteaConfig.json" executing.Directory
let existing = JSchema.Parse (File.ReadAllText schemaFile.FullName)
let jsonFile = findExampleFile executing.Directory
let jsonFile = Utils.findFileAbove "GiteaConfig.json" executing.Directory
let json = File.ReadAllText jsonFile.FullName
use reader = new JsonTextReader (new StringReader (json))
@@ -84,7 +58,7 @@ module TestSchema =
Assembly.GetExecutingAssembly().Location
|> FileInfo
|> fun fi -> fi.Directory
|> findFileAbove "Gitea/GiteaConfig.schema.json"
|> Utils.findFileAbove "Gitea/GiteaConfig.schema.json"
let schema = schemaGen.Generate typeof<SerialisedGiteaConfig>