;;;; tests for mdh (persistence)

(import mdh test)

(test-begin)

(test "^ ref undefined" "" (^ "empty"))
(test "^ get" "123" (^ "foo"))
(test "^ get indexed " "hello" (^ "array" 1 2 3))
(define g1 (global "g1"))
(test "global get" "two" (global-ref (g1)))
(define g2 (global "g2"))
(test "merged" "end" (global-ref (g1 2 2 3)))

(test-end)
(test-exit)