#load "bots.fsx"

open System.Text.Json
open Bots

let bot =
    { Slug = "test"
      Patterns = [ " Bot/1.0" ]
      Examples = [ "Bot/1.0"; "Alternate/1.0"; "Browser" ]
      Signer = Some "https://agent.example.test/keys" }

let matches = headers (Set.singleton "Browser") bot
assert (matches.Length = 3)

assert
    (matches
     |> List.exists (fun header -> header.Kind = "Exact" && header.Value = "Alternate/1.0"))

assert
    (matches
     |> List.exists (fun header ->
         header.Name = "Signature-Agent"
         && header.Value = "\"https://agent.example.test/keys\""))

assert (matches |> List.forall (fun header -> header.Value <> "Browser"))

let config =
    JsonDocument.Parse(
        """{"namespace":"test","gateway":"relay","gatewayNamespace":"test","source":"git.example.test","target":"code.example.test"}"""
    )

let many =
    [ for index in 0..128 ->
          { Name = "User-Agent"
            Kind = "Exact"
            Value = string index } ]

let output = routes config.RootElement many
assert (output.Length = 2)
assert (output.Head.spec.rules.Length = 2)
assert (output.Head.spec.rules.Head.matches.Length = 64)
assert (output.Tail.Head.spec.rules.Head.matches.Length = 1)
let encoded = JsonDocument.Parse(JsonSerializer.Serialize output)

assert
    (encoded.RootElement[0]
        .GetProperty("metadata")
        .GetProperty("labels")
        .GetProperty("app.kubernetes.io/managed-by")
        .GetString() = "bot-redirect")

printfn "bot matching and route partition tests passed"