[functional-tests] Export some more from (persistent-data btree)

2017-10-04 10:30:15 +01:00 · 2017-10-04 10:30:15 +01:00 · 48b3ac960c
commit 48b3ac960c
parent 5fd33b9560
1 changed files with 14 additions and 2 deletions
--- a/functional-tests/persistent-data/btree.scm
+++ b/functional-tests/persistent-data/btree.scm
@ -1,7 +1,8 @@
 (library
  (persistent-data btree)

-  (export btree-value-type
+  (export btree-node-salt
+          btree-value-type
          btree-root
          btree-open
          btree-lookup
@ -10,13 +11,24 @@

          define-value-type
          define-compound-value-type
-          BTreeNodeHeader)
+
+          BTreeNodeHeader
+          leaf-node?
+          internal-node?
+          block->header
+          block->values
+          block->keys
+          key-at
+          value-at
+          )

  (import (bcache block-manager)
          (chezscheme)
          (list-utils)
          (utils))

+  (define btree-node-salt 121107)
+
  (define-ftype BTreeNodeHeader
    (packed
      (endian little