gitea-repo-config/Gitea.Declarative.Test/TestJsonSchema.fs

namespace Gitea.Declarative.Test

open System.IO
open System.Reflection
open Gitea.Declarative
open NJsonSchema.Generation
open NJsonSchema.Validation
open NUnit.Framework
open FsUnitTyped
open NJsonSchema
open Newtonsoft.Json
open Newtonsoft.Json.Serialization

[<TestFixture>]
module TestSchema =

    [<Test>]
    let ``Example conforms to schema`` () =
        let executing = Assembly.GetExecutingAssembly().Location |> FileInfo

        // We choose to refer to the path specifically here, so that the "Update" functionality
        // below can't be broken by an undetected file rename.
        let schemaFile =
            Utils.findFileAbove "Gitea.Declarative.Lib/GiteaConfig.schema.json" executing.Directory

        let schema = JsonSchema.FromJsonAsync(File.ReadAllText schemaFile.FullName).Result

        let jsonFile = Utils.findFileAbove "GiteaConfig.json" executing.Directory
        let json = File.ReadAllText jsonFile.FullName

        let validator = JsonSchemaValidator ()
        let errors = validator.Validate (json, schema)

        errors |> shouldBeEmpty

    [<Test>]
    let ``Example can be loaded`` () =
        let executing = Assembly.GetExecutingAssembly().Location |> FileInfo
        let jsonFile = Utils.findFileAbove "GiteaConfig.json" executing.Directory
        GiteaConfig.get jsonFile |> ignore

    [<Test>]
    let ``Schema can be output`` () =
        use schema = GiteaConfig.getSchema ()
        let reader = new StreamReader (schema)
        let schema = reader.ReadToEnd ()
        schema.Contains "SerialisedGiteaConfig" |> shouldEqual true

    let schemaFile : Lazy<FileInfo> =
        lazy
            Assembly.GetExecutingAssembly().Location
            |> FileInfo
            |> fun fi -> fi.Directory
            |> Utils.findFileAbove "Gitea.Declarative.Lib/GiteaConfig.schema.json"

    let computeSchema () =
        let settings = JsonSchemaGeneratorSettings ()

        settings.SerializerSettings <-
            JsonSerializerSettings (ContractResolver = CamelCasePropertyNamesContractResolver ())

        let schema = JsonSchema.FromType (typeof<SerialisedGiteaConfig>, settings)

        // Hack around the lack of discriminated unions in C#
        let serialisedRepoSchema = schema.Definitions.[typeof<SerialisedRepo>.Name]
        serialisedRepoSchema.RequiredProperties.Clear ()

        do
            let schema = JsonSchema ()
            schema.RequiredProperties.Add "description"
            schema.RequiredProperties.Add "gitHub"
            serialisedRepoSchema.OneOf.Add schema

        do
            let schema = JsonSchema ()
            schema.RequiredProperties.Add "description"
            schema.RequiredProperties.Add "native"
            serialisedRepoSchema.OneOf.Add schema

        schema

    [<Test>]
    let ``Schema hasn't changed`` () =
        let computed = computeSchema () |> fun x -> x.ToJson ()
        let actual = File.ReadAllText (schemaFile.Force().FullName)
        computed |> shouldEqual actual

    [<Test>]
    [<Explicit "Run this to regenerate the schema file">]
    let ``Update schema file`` () =
        let schema = computeSchema ()
        File.WriteAllText (schemaFile.Force().FullName, schema.ToJson ())