diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-05 00:55:35 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-05 00:55:35 +0200 |
commit | c64a4bc56f93c08cf55fb907078e588ad737684c (patch) | |
tree | f70767074a4550a2be180dd4659e2dedc922b0b4 /tests/formats | |
parent | Move lens test. (diff) | |
download | calp-c64a4bc56f93c08cf55fb907078e588ad737684c.tar.gz calp-c64a4bc56f93c08cf55fb907078e588ad737684c.tar.xz |
Major work on, something.
Diffstat (limited to 'tests/formats')
-rwxr-xr-x | tests/formats/test.scm | 18 |
1 files changed, 9 insertions, 9 deletions
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" |