Weave.jl/test/test_display.jl

@testset "limit HMTL output" begin

@static VERSION ≥ v"1.4" && let

# no limit
doc = mock_run("""
```julia
using DataFrames
DataFrame(a=rand(10))
```
"""; doctype = "md2html")
@test isdefined(doc.chunks[1], :rich_output)
@test count("<tr", doc.chunks[1].rich_output) == 12 # additonal 2 for name and type row

# limit
n = 100000
doc = mock_run("""
```julia
using DataFrames
DataFrame(a=rand($n))
```
"""; doctype = "md2html")
@test isdefined(doc.chunks[1], :rich_output)
@test count("<tr>", doc.chunks[1].rich_output) < n

end

end