Browse Source

Fix export/public expressions with comments

pull/26/head
Fredrik Ekre 1 year ago
parent
commit
2a9843fc99
No known key found for this signature in database
GPG Key ID: DE82E6D5E364C0A2
  1. 4
      src/runestone.jl
  2. 1
      test/runtests.jl

4
src/runestone.jl

@ -983,6 +983,10 @@ function spaces_in_export_public(ctx::Context, node::Node)
if kind(kid) === K"$" if kind(kid) === K"$"
@assert findlast(x -> x === K"quote", ctx.lineage_kinds) !== nothing @assert findlast(x -> x === K"quote", ctx.lineage_kinds) !== nothing
end end
elseif kind(kid) in KSet"Comment NewlineWs"
any_changes && push!(kids′, kid)
accept_node!(ctx, kid)
state = :expect_identifier
else else
@assert false @assert false
end end

1
test/runtests.jl

@ -834,6 +834,7 @@ end
@test format_string("$(verb) $(sp)$(a)$(sp),$(sp)$(b)") == "$(verb) $(a), $(b)" @test format_string("$(verb) $(sp)$(a)$(sp),$(sp)$(b)") == "$(verb) $(a), $(b)"
@test format_string("$(verb) $(a)$(sp),\n$(b)") == "$(verb) $(a),\n $(b)" @test format_string("$(verb) $(a)$(sp),\n$(b)") == "$(verb) $(a),\n $(b)"
@test format_string("$(verb) \n$(a)$(sp),\n$(b)") == "$(verb)\n $(a),\n $(b)" @test format_string("$(verb) \n$(a)$(sp),\n$(b)") == "$(verb)\n $(a),\n $(b)"
@test format_string("$(verb) $(a)$(sp),\n# b\n$(b)") == "$(verb) $(a),\n # b\n $(b)"
end end
# Interpolated identifiers (currently only expected in K"quote") # Interpolated identifiers (currently only expected in K"quote")
@test format_string(":(export \$a)") == ":(export \$a)" @test format_string(":(export \$a)") == ":(export \$a)"

Loading…
Cancel
Save