2021-08-28 10:48:50 +00:00
|
|
|
# SPDX-FileCopyrightText: 2021 ☭ Emery Hemingway
|
2021-08-31 15:00:00 +00:00
|
|
|
# SPDX-License-Identifier: Unlicense
|
2021-06-28 13:47:14 +00:00
|
|
|
|
2021-09-23 13:20:06 +00:00
|
|
|
import std/[options, tables, unittest]
|
2021-11-12 11:25:28 +00:00
|
|
|
import preserves
|
2021-06-28 13:47:14 +00:00
|
|
|
|
|
|
|
suite "conversions":
|
|
|
|
test "dictionary":
|
2021-10-17 09:20:17 +00:00
|
|
|
type Bar = tuple
|
2021-06-28 13:47:14 +00:00
|
|
|
s: string
|
2021-10-17 09:20:17 +00:00
|
|
|
type Foobar {.preservesDictionary.} = object
|
2021-06-28 13:47:14 +00:00
|
|
|
a, b: int
|
|
|
|
c: Bar
|
|
|
|
let
|
2021-10-17 09:20:17 +00:00
|
|
|
c = Foobar(a: 1, b: 2, c: ("ku", ))
|
2021-06-28 13:47:14 +00:00
|
|
|
b = toPreserve(c)
|
|
|
|
a = preserveTo(b, Foobar)
|
2021-08-25 11:49:35 +00:00
|
|
|
check(a.isSome and (get(a) == c))
|
2021-06-28 13:47:14 +00:00
|
|
|
check(b.kind == pkDictionary)
|
|
|
|
|
|
|
|
test "records":
|
2021-10-17 09:20:17 +00:00
|
|
|
type Bar {.preservesRecord: "bar".} = object
|
2021-06-28 13:47:14 +00:00
|
|
|
s: string
|
2021-10-17 09:20:17 +00:00
|
|
|
type Foobar {.preservesRecord: "foo".} = object
|
2021-06-28 13:47:14 +00:00
|
|
|
a, b: int
|
|
|
|
c: Bar
|
|
|
|
let
|
2021-10-17 09:20:17 +00:00
|
|
|
tup = Foobar(a: 1, b: 2, c: Bar(s: "ku", ))
|
2021-07-07 10:50:57 +00:00
|
|
|
prs = toPreserve(tup)
|
|
|
|
check(prs.kind == pkRecord)
|
2021-08-25 11:49:35 +00:00
|
|
|
check($prs == """<foo 1 2 <bar "ku">>""")
|
|
|
|
check(preserveTo(prs, Foobar) == some(tup))
|
2021-07-09 14:54:13 +00:00
|
|
|
|
2021-09-23 13:20:06 +00:00
|
|
|
test "tables":
|
|
|
|
var a: Table[int, string]
|
|
|
|
for i, s in ["a", "b", "c"]: a[i] = s
|
|
|
|
let b = toPreserve(a)
|
2021-10-17 09:20:17 +00:00
|
|
|
check($b == """{0: "a", 1: "b", 2: "c"}""")
|
2021-09-23 13:20:06 +00:00
|
|
|
var c: Table[int, string]
|
|
|
|
check(fromPreserve(c, b))
|
|
|
|
check(a == c)
|
|
|
|
|
2021-07-09 14:54:13 +00:00
|
|
|
suite "%":
|
|
|
|
template check(p: Preserve; s: string) =
|
|
|
|
test s: check($p == s)
|
2021-08-28 09:17:23 +00:00
|
|
|
check false.toPreserve, "#f"
|
|
|
|
check [0, 1, 2, 3].toPreserve, "[0 1 2 3]"
|