Make unmarshal fuzzer exercise more code paths.

This commit is contained in:
Andrew Chambers 2020-04-06 09:57:54 +12:00
parent 553e38ffd6
commit 45156c0c47
1 changed files with 6 additions and 2 deletions

View File

@ -1,2 +1,6 @@
(pp (unmarshal (slurp ((dyn :args) 1)) load-image-dict))
# Unmarshal garbage.
(def v (unmarshal (slurp ((dyn :args) 1)) load-image-dict))
# Trigger leaks or use after free.
(gccollect)
# Attempt to use generated value.
(marshal v make-image-dict)