From: "Ludovic Courtès" <ludovic.courtes@inria.fr>
To: 48114@debbugs.gnu.org
Subject: bug#48114: Disarchive occasionally fails tests
Date: Fri, 30 Apr 2021 12:00:36 +0200 [thread overview]
Message-ID: <87v984gkhn.fsf@inria.fr> (raw)
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’.
next reply other threads:[~2021-04-30 10:02 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2021-04-30 10:00 Ludovic Courtès [this message]
2021-04-30 19:49 ` bug#48114: Disarchive occasionally fails tests Timothy Sample
2021-05-02 19:57 ` Ludovic Courtès
2021-05-03 2:24 ` Timothy Sample
2021-05-03 4:02 ` Timothy Sample
2021-05-03 6:19 ` Bengt Richter
2021-05-03 20:03 ` Ludovic Courtès
2021-05-13 21:04 ` Ludovic Courtès
2021-05-14 3:06 ` Timothy Sample
2021-05-14 13:51 ` Ludovic Courtès
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87v984gkhn.fsf@inria.fr \
--to=ludovic.courtes@inria.fr \
--cc=48114@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.