[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#48114: Disarchive occasionally fails tests
From: |
Ludovic Courtès |
Subject: |
bug#48114: Disarchive occasionally fails tests |
Date: |
Fri, 30 Apr 2021 12:00:36 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux) |
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’.
- bug#48114: Disarchive occasionally fails tests,
Ludovic Courtès <=