simon/jolt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prune stale corpus allowlist entries (now-passing print-method + misc)

Browse source 
The defmethod/print-method record cases, symbol-hint, and source-order entries no
longer diverge (closed by the defmethod-setup + earlier fixes); drop them. 0 new
divergences, corpus 2720/2741, 20 genuine gaps remain.
This commit is contained in:
Yogthos 2026-06-21 22:49:34 -04:00
parent 632a90cae2
commit 10d2b992f7
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
host/chez/run-corpus.ss
View file

@ -88,7 +88,7 @@
(define known-fail-labels (define known-fail-labels
'("getMessage on a thrown string" '("getMessage on a thrown string"
"type of record" "chunked-seq? always false" "type of record" "chunked-seq? always false"
"^Type tag on var" "symbol hint -> :tag" "^Type tag on var"
"lists extended type" "seq of tags" "lists extended type" "seq of tags"
"close on throw" "macroexpand-1" "close on throw" "macroexpand-1"
"bean is the map" "proxy resolves nil" "bean is the map" "proxy resolves nil"
@ -96,12 +96,9 @@
"bigdec" "bigdec int M" "bigdec suffix M" "bigdec" "bigdec int M" "bigdec suffix M"
"transient vector" "transient map" "transient vector" "transient map"
"atom override fires nested" "atom override fires nested"
"defmethod overrides a record, top level"
"defmethod fires nested in a map" "defmethod fires through prn"
"direct builtin override" "methods table inspectable"
"reader conditional" "reader cond :jolt" "reader cond no match" "reader conditional" "reader cond :jolt" "reader cond no match"
"reader cond splice" "reader cond splice no match" "reader cond splice" "reader cond splice no match"
"nil nested" "bool nested" "source order through syntax-quote" "nil nested" "bool nested"
"cancel an in-flight future returns true" "future-cancelled? after cancel" "cancel an in-flight future returns true" "future-cancelled? after cancel"
"no param vector")) "no param vector"))
(define known-fail (make-hashtable string-hash string=?)) (define known-fail (make-hashtable string-hash string=?))