From c64a4bc56f93c08cf55fb907078e588ad737684c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 5 Sep 2023 00:55:35 +0200
Subject: Major work on, something.

---
 tests/formats/test.scm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'tests/formats')

diff --git a/tests/formats/test.scm b/tests/formats/test.scm
index b4a00a73..dfa04f22 100755
--- a/tests/formats/test.scm
+++ b/tests/formats/test.scm
@@ -79,15 +79,15 @@ exec $GUILE -s "$0" "$@"
               (call-with-output-string
                 (lambda (p) (serialize component p)))))
 
-           (test-equal "Deserialized object serializes back into source"
-             (sanitize-string component-str)
-             (sanitize-string
-              (call-with-output-string
-                (lambda (p)
-                  (serialize
-                   (call-with-input-string
-                       component-str deserialize)
-                   p)))))
+           (test-group "Deserialize"
+             (let ((object (call-with-input-string component-str deserialize)))
+               (test-assert "Deserialize worked" (vcomponent? object))
+
+               (test-equal "Deserialized object serializes back into source"
+                 (sanitize-string component-str)
+                 (sanitize-string
+                  (call-with-output-string
+                    (lambda (p) (serialize object p)))))))
 
 
            (test-assert "Serialized string can still be read back in"
-- 
cgit v1.2.3