Skip inapplicable test

This commit is contained in:
Douglas Katzman 2024-11-06 16:57:16 +00:00
parent 82127fa564
commit de416a3657

View file

@ -649,7 +649,7 @@ F9D3B955F8E9ACBB96083D81D47A4C7A36BB22933EA1D96A4D7FB6BF75CCED090FAA88D3A6BF355C
33B66A775E34AD90D8CAFF7B559D81E37DC110D136B2DD749E936976B64A3B1D187AB5142FDBACD6769CF49504A3DDBEAC766B5BAED6FEB6FE51245CAD4B6C95
7FC954DE8173FC937A61EA28BDFC4AF876B5EDB5C299CADADA41CD6A738A4835168790C81F028D8166A296A7398B6B5C976C6BD07DF2C651298F3D01")
(with-test (:name :large-input)
(with-test (:name :large-input :skipped-on (:not :sb-core-compression))
(let* ((hexstr (remove #\newline *monster-input*))
(compressed-len (/ (length hexstr) 2))
(bytes (make-array compressed-len :element-type '(signed-byte 8))))