Fix 4 clojure.core bugs surfaced by JVM certification
The corpus certifier (test/conformance) flagged four cases where jolt's hand-written :expected matched a real defect rather than Clojure. Fixed in the jolt-core overlay, corrected the spec :expected, re-certified against JVM Clojure: - ex-message: returns nil for a non-throwable (dropped the lenient string branch); still returns the message for ex-info. (jolt-l8e8) - munge: preserves the argument's type — a symbol munges to a symbol, not a string. (jolt-hc35) - print: (print nil) emits "nil", not "" (top-level nil guard; str yields ""). (jolt-pqio) - bounded-count: uses the counted? fast path (full count), else counts up to n via seq — was (min n (count coll)), wrong for counted colls. Added an uncounted-coll spec case. (jolt-2507) Removed the 4 :bug entries from known-divergences.edn (now certified), regenerated corpus + profile, re-minted the Chez bootstrap seed (clojure.core changed). Gates: Janet 155/0, JVM certify clean, both Chez corpus gates 2534 (floors raised), bootstrap 6/6, fixpoint intact.
This commit is contained in:
parent
f54e99cc08
commit
6abbea3835
12 changed files with 329 additions and 345 deletions
|
|
@ -1,9 +1,7 @@
|
|||
{:doc
|
||||
"Known divergences of test/chez/corpus.edn :expected from JVM Clojure, classified. Most are deliberate jolt-specific or host-model differences (-> :features in conformance inc3). :bug entries are genuine and tracked. The certifier (certify.clj) gates on NEW (unlisted) divergences only. Keyed by [suite label].",
|
||||
:legend
|
||||
{:bug
|
||||
"genuine jolt/corpus bug — tracked bead, fix in jolt-core + correct :expected",
|
||||
:numeric-model
|
||||
{:numeric-model
|
||||
"jolt is all-double: no Ratio/BigDecimal/float; (/ 1 2)=>0.5, 3.0 prints 3",
|
||||
:concurrency-model
|
||||
"Janet isolated-heap snapshot futures/agents/pmap; atoms snapshot, not shared",
|
||||
|
|
@ -18,23 +16,7 @@
|
|||
:impl-detail
|
||||
"representation detail: syntax-quote yields a list? (JVM yields a Cons)"},
|
||||
:entries
|
||||
[{:suite "clojure.core / leaf batch (complement fnil munge etc.)",
|
||||
:label "munge symbol",
|
||||
:category :bug,
|
||||
:bead "jolt-hc35"}
|
||||
{:suite "exceptions / ex-info",
|
||||
:label "ex-message of string",
|
||||
:category :bug,
|
||||
:bead "jolt-l8e8"}
|
||||
{:suite "io / print family (overlay)",
|
||||
:label "print nil arg",
|
||||
:category :bug,
|
||||
:bead "jolt-pqio"}
|
||||
{:suite "seq / overlay-migrated fns",
|
||||
:label "bounded-count",
|
||||
:category :bug,
|
||||
:bead "jolt-2507"}
|
||||
{:suite "clojure.core / futures — predicates",
|
||||
[{:suite "clojure.core / futures — predicates",
|
||||
:label "cancel an in-flight future returns true",
|
||||
:category :concurrency-model,
|
||||
:flaky true}
|
||||
|
|
|
|||
|
|
@ -1,11 +1,10 @@
|
|||
{:doc
|
||||
"Conformance profile for test/chez/corpus.edn, generated by certify.clj. Each entry is a NON-portable case (keyed by [suite label]) and the host feature(s) it requires. Cases NOT listed are portable — they pass on any faithful Clojure. A runtime's conformance LEVEL = portable + the feature families it implements. See SPEC.md.",
|
||||
:clojure-version "1.12.5",
|
||||
:portable-count 2670,
|
||||
:non-portable-count 249,
|
||||
:portable-count 2674,
|
||||
:non-portable-count 246,
|
||||
:feature-counts
|
||||
{:bug 4,
|
||||
:concurrency/snapshot 4,
|
||||
{:concurrency/snapshot 5,
|
||||
:host/arrays 12,
|
||||
:host/janet 16,
|
||||
:host/jvm-interop 174,
|
||||
|
|
@ -20,6 +19,10 @@
|
|||
:label "tracks in-ns",
|
||||
:bucket :jvm-error,
|
||||
:features [:host/jvm-interop]}
|
||||
{:suite "clojure.core / futures — predicates",
|
||||
:label "cancel an in-flight future returns true",
|
||||
:bucket :divergent,
|
||||
:features [:concurrency/snapshot]}
|
||||
{:suite "clojure.core / futures — snapshot (copy) semantics",
|
||||
:label "captured atom is snapshotted, not shared",
|
||||
:bucket :divergent,
|
||||
|
|
@ -28,10 +31,6 @@
|
|||
:label "bigdec",
|
||||
:bucket :divergent,
|
||||
:features [:numerics/double-only]}
|
||||
{:suite "clojure.core / leaf batch (complement fnil munge etc.)",
|
||||
:label "munge symbol",
|
||||
:bucket :divergent,
|
||||
:features [:bug]}
|
||||
{:suite "clojure.core / leaf batch (complement fnil munge etc.)",
|
||||
:label "supers empty set",
|
||||
:bucket :jvm-error,
|
||||
|
|
@ -149,10 +148,6 @@
|
|||
:label "ex-data via catch",
|
||||
:bucket :jvm-error,
|
||||
:features [:host/jvm-interop]}
|
||||
{:suite "exceptions / ex-info",
|
||||
:label "ex-message of string",
|
||||
:bucket :divergent,
|
||||
:features [:bug]}
|
||||
{:suite "exceptions / ex-info",
|
||||
:label "propagates to outer",
|
||||
:bucket :jvm-error,
|
||||
|
|
@ -481,10 +476,6 @@
|
|||
:label "line-seq is lazy seq",
|
||||
:bucket :jvm-error,
|
||||
:features [:host/jvm-interop]}
|
||||
{:suite "io / print family (overlay)",
|
||||
:label "print nil arg",
|
||||
:bucket :divergent,
|
||||
:features [:bug]}
|
||||
{:suite "io / print-method multimethod",
|
||||
:label "StringWriter accumulates",
|
||||
:bucket :jvm-error,
|
||||
|
|
@ -717,10 +708,6 @@
|
|||
:label "re-pattern is regex?",
|
||||
:bucket :jvm-error,
|
||||
:features [:host/jvm-interop]}
|
||||
{:suite "seq / overlay-migrated fns",
|
||||
:label "bounded-count",
|
||||
:bucket :divergent,
|
||||
:features [:bug]}
|
||||
{:suite "set / nil element (jolt-bn2p)",
|
||||
:label "transient conj! nil",
|
||||
:bucket :jvm-error,
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue