[functional-tests] Some work on thin-check and thin-dump

functional-tests/thin/dump.scm

@@ -0,0 +1,56 @@
+(library
+ (thin check)
+
+ (export thin-dump
+         thin-dump-flags)
+
+ (import
+   (bcache block-manager)
+   (persistent-data btree)
+   (fmt fmt)
+   (list-utils)
+   (matchable)
+   (parser-combinators)
+   (srfi s8 receive)
+   (thin metadata)
+   (thin mapping-tree)
+   (chezscheme))
+
+(define (dump-dev-tree cache root)
+ (btree-each (btree-open device-details-vt cache root)
+             (lambda (k v)
+	      (fmt #t
+                   "dev-id: " k "\n"
+                   "  mapped blocks: " (ftype-ref ThinDeviceDetails (mapped-blocks) v) "\n"
+                   "  transaction id: " (ftype-ref ThinDeviceDetails (transaction-id) v) "\n"
+                   "  creation time: " (ftype-ref ThinDeviceDetails (creation-time) v) "\n"
+                   "  snapshotted time: " (ftype-ref ThinDeviceDetails (snapshotted-time) v) "\n"))))
+
+(define-enumeration thin-check-element
+  (quiet
+   clear-needs-check-flag
+   ignore-non-fatal-errors
+   skip-mappings
+   super-block-only)
+  thin-check-flags)
+
+(define (thin-check metadata-path flags)
+ (tag 'superblock `((uuid . "<not implemented yet>")
+                    (time . )
+                    (transaction . 1)
+                    (flags . 0)
+                    (version . 2)
+                    (data-block-size . 128)
+                    (nr-data-blocks . ,(apply + nr-mappings)))
+
+  (with-bcache (cache metadata-path 1024)
+   (with-block (b cache 0 (get-flags))
+    (let ((sb (block->superblock b)))
+     (fmt (current-output-port)
+      "block-nr: " (ftype-ref ThinSuperblock (block-nr) sb) "\n"
+      "magic: " (ftype-ref ThinSuperblock (magic) sb) "\n"
+      "data-mapping-root: " (ftype-ref ThinSuperblock (data-mapping-root) sb) "\n"
+      "device-details-root: " (ftype-ref ThinSuperblock (device-details-root) sb) "\n")
+     (dump-dev-tree cache (ftype-ref ThinSuperblock (device-details-root) sb)))))))
+
+ )