JosephFerano/flan
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

The dyn expectations follow the typed printer, which the stub did not

Browse Source
This commit is contained in:
Joseph Ferano 2026-09-19 09:58:04 +07:00
parent f885e1abfa
commit 55543747d3
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
test/test_acceptance.ml
View File

@ -2998,7 +2998,12 @@ level "1"
"programs/dyn-basic.flan" dyn_basic_out; "programs/dyn-basic.flan" dyn_basic_out;
outputs ~opt:"-O0" "dyn: an unannotated defn at two types, -O0" outputs ~opt:"-O0" "dyn: an unannotated defn at two types, -O0"
"programs/dyn-basic.flan" dyn_basic_out; "programs/dyn-basic.flan" dyn_basic_out;
let dyn_vec_out = "4\n[1 2.5 three true]\n1 2.5 three true \n" in (* The rendering is the typed printer's: a leading space after the open
bracket and strings quoted inside a collection but bare alone —
(println [\"a\"]) and (println \"a\") already disagree exactly this way,
so the dyn printer disagreeing would have been the bug. The stub this
expectation was first written against printed neither. *)
let dyn_vec_out = "4\n[ 1 2.5 \"three\" true]\n1 2.5 three true \n" in
outputs "dyn: a heterogeneous vector" outputs "dyn: a heterogeneous vector"
"programs/dyn-vec.flan" dyn_vec_out; "programs/dyn-vec.flan" dyn_vec_out;
outputs ~opt:"-O0" "dyn: a heterogeneous vector, -O0" outputs ~opt:"-O0" "dyn: a heterogeneous vector, -O0"
@ -3022,7 +3027,7 @@ level "1"
in in
if code <> 134 if code <> 134
|| not (contains text want) || not (contains text want)
|| not (contains text "required to be an i64") || not (contains text "an int was wanted")
then begin then begin
incr failures; incr failures;
Printf.printf Printf.printf