# SPDX-FileCopyrightText: ☭ Emery Hemingway
# SPDX-License-Identifier: Unlicense

import std/unittest

import preserves, syndicate
from syndicate/protocols/dataspace import Observe
type Observe = dataspace.Observe[Cap]

import ./test_schema


test "patterns":
  let observerPat = ?Observe(pattern: !Foo) ?? {0: grab()}
  check($observerPat == """<rec Observe [<rec rec [<lit foo> <arr [<bind <_>> <_> <_>]>]> <_>]>""")

  let
    value = @["alles", "in", "ordnung"]
    observer = toPreserve(Observe(pattern: inject(?Foo, { 0: ?value })), Cap)
    have = capture(observerPat, observer).toPreserve(Cap).unpackLiterals
    want = [value.toPreserve(Cap)].toPreserve(Cap)
  check(have ==  want)

type Record {.preservesDictionary.} = object
  a, b, c: int

test "dictionaries":
  let pat = ?Record
  echo pat
  var source = initDictionary(Cap)
  source["b".toSymbol(Cap)] = 2.toPreserve(Cap)
  source["c".toSymbol(Cap)] = 3.toPreserve(Cap)
  source["a".toSymbol(Cap)] = 1.toPreserve(Cap)

  let values = capture(pat, source)
  check $values == "@[1, 2, 3]"