Hi Timothy, Disarchive 0.2.0 occasionally fails two tests:
FAIL: tests/kinds/octal.scm - [prop] Writing is reversible FAIL: tests/kinds/octal.scm - [prop] Serializing is reversible (Thanks, Quickcheck! :-)) I added ‘pk’ calls like so: --8<---------------cut here---------------start------------->8--- (test-assert "[prop] Writing is reversible" (quickcheck (property ((octal $octal)) (test-when (valid-octal? octal) (begin (equal? (pk 'oct octal) (pk 'decode (decode-octal (encode-octal octal))))))))) (test-assert "[prop] Serializing is reversible" (quickcheck (property ((octal $octal)) (test-when (valid-octal? octal) (equal? (pk 'OCT octal) (pk 'DECODE (serdeser -octal- octal))))))) --8<---------------cut here---------------end--------------->8--- and got this output: --8<---------------cut here---------------start------------->8--- ;;; (oct #<<unstructured-octal> value: 0 source: #<<zero-string> value: "\U0f94a4\u0912\U025627\U10e96a\u9576\u2077\u048f\U0f2f60\U0f744b" trailer: #vu8(172 156 23 48 25 29 159 226 210)>>) ;;; (decode #<<unstructured-octal> value: 0 source: #<<zero-string> value: "\U0f94a4\u0912\U025627\U10e96a\u9576\u2077\u048f\U0f2f60\U0f744b" trailer: #vu8(172 156 23 48 25 29 159 226 210)>>) actual-value: #f actual-error: + (out-of-range + #f + "Value out of range ~S to ~S: ~S" + (8 9 10) + (10)) result: FAIL […] ;;; (OCT #<<unstructured-octal> value: 0 source: #<<zero-string> value: "\U0f94a4\u0912\U025627\U10e96a\u9576\u2077\u048f\U0f2f60\U0f744b" trailer: #vu8(172 156 23 48 25 29 159 226 210)>>) ;;; (DECODE #<<unstructured-octal> value: 0 source: #<<zero-string> value: "\U0f94a4\u0912\U025627\U10e96a\u9576\u2077\u048f\U0f2f60\U0f744b" trailer: #vu8(172 156 23 48 25 29 159 226 210)>>) actual-value: #f actual-error: + (out-of-range + #f + "Value out of range ~S to ~S: ~S" + (8 9 10) + (10)) result: FAIL --8<---------------cut here---------------end--------------->8--- I’m not sure where the exception comes from though. Thoughts? Thanks, Ludo’.