Convert the snippets that landed after the sweep, but not the printer's own output
This commit is contained in:
parent
6d54a4390e
commit
8aac059485
4
.gitignore
vendored
4
.gitignore
vendored
@ -64,3 +64,7 @@ vendor/raylib/web/
|
||||
test/slurp-out.txt
|
||||
test/slurp-made.txt
|
||||
test/web-files-out.txt
|
||||
|
||||
# Python bytecode from the tools directory
|
||||
__pycache__/
|
||||
*.pyc
|
||||
|
||||
@ -775,6 +775,11 @@ let () =
|
||||
let want =
|
||||
[ ("n", "i64", "3");
|
||||
("label", "string", "\"hello\"");
|
||||
(* Colons, deliberately: this is the *renderer's* output, not
|
||||
source. [render.ml] still prints [{:x ...}] because
|
||||
[flan-inspect.el] parses that text and the two move together
|
||||
or not at all — see NEXT.md. Converting this line with the
|
||||
rest was wrong and the suite caught it. *)
|
||||
("p", "Point", "(Point {:x 1.5 :y 2.5})");
|
||||
("xs", "[3 i32]", "[ 10 20 30]");
|
||||
("flag", "bool", "true") ]
|
||||
@ -813,7 +818,7 @@ let () =
|
||||
one slot more than the body this session now holds. *)
|
||||
let r =
|
||||
ask
|
||||
"(:op \"eval\" :code \"(defn look [n i64 label string] i64 (let [p (Point {:x 1.5 :y 2.5}) xs [10 20 30]] (restart-case (do (error (Boom {:why 7})) (let [after (i64 99)] after)) (carry-on [] 5))))\" :file \"/tmp/buf.flan\")"
|
||||
"(:op \"eval\" :code \"(defn look [n i64 label string] i64 (let [p (Point {.x 1.5 .y 2.5}) xs [10 20 30]] (restart-case (do (error (Boom {.why 7})) (let [after (i64 99)] after)) (carry-on [] 5))))\" :file \"/tmp/buf.flan\")"
|
||||
in
|
||||
if status r <> "ok" then
|
||||
fail "installing a body with fewer slots while stopped: %s"
|
||||
|
||||
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user