[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#57573: disarchive: Test "[prop] Writing is reversible" fails
From: |
Maxime Devos |
Subject: |
bug#57573: disarchive: Test "[prop] Writing is reversible" fails |
Date: |
Sun, 4 Sep 2022 11:05:59 +0200 |
User-agent: |
Mozilla/5.0 (X11; Linux x86_64; rv:91.0) Gecko/20100101 Thunderbird/91.12.0 |
On 04-09-2022 10:24, Maxime Devos wrote:
Here's a reproducer:
(define o (make-unstructured-octal 0 (make-zero-string "0" #\䤄)))
(test-equal "Writing is reversible (#57573)"
o (decode-octal (encode-octal octal)))
That was bogus (octal is undefined), try
(define o (make-unstructured-octal 0 (make-zero-string "0" "䤄")))
(unless (valid-octal? o) (error "oops"))
(test-equal "Writing is reversible (#57573)"
o (decode-octal (encode-octal o)))
instead. Error message:
test-name: Writing is reversible (#57573)
location: tests/kinds/octal.scm:130
source:
+ (test-equal
+ "Writing is reversible (#57573)"
+ o
+ (decode-octal (encode-octal o)))
expected-value: #<<unstructured-octal> value: 0 source:
#<<zero-string> value: "0" trailer: "䤄">>
actual-value: #<<padded-octal> value: 0 width: 1 padding: #\0 trailer:
"䤄">
result: FAIL
Greetings,
Maxime.