# frozen_string_literal: true
require_relative 'spec_helper'
describe 'Asciidoctor::PDF::Converter - Image' do
it 'should not crash when converting block image if theme is blank' do
image_data = File.binread example_file 'wolpertinger.jpg'
pdf = to_pdf <<~'EOS', attribute_overrides: { 'pdf-theme' => (fixture_file 'bare-theme.yml'), 'imagesdir' => examples_dir }
image::wolpertinger.jpg[]
EOS
images = get_images pdf, 1
(expect images).to have_size 1
(expect images[0].data).to eql image_data
end
it 'should not crash if doctitle contains inline raster image with no explicit width' do
expected_image_data = File.binread fixture_file 'tux.jpg'
pdf = to_pdf <<~'EOS', pdf_theme: { heading_h1_font_size: 42 }, analyze: :image
= Document Title image:tux.jpg[]
content
EOS
images = pdf.images
(expect images).to have_size 1
(expect images[0][:data]).to eql expected_image_data
(expect images[0][:width]).to eql 153.0
(expect images[0][:height]).to eql 180.0
end
it 'should not crash if doctitle contains inline raster image with only scale' do
expected_image_data = File.binread fixture_file 'tux.jpg'
pdf = to_pdf <<~'EOS', pdf_theme: { heading_h1_font_size: 42 }, analyze: :image
= Document Title image:tux.jpg[scale=.5]
content
EOS
images = pdf.images
(expect images).to have_size 1
(expect images[0][:data]).to eql expected_image_data
(expect images[0][:width]).to eql 76.5
(expect images[0][:height]).to eql 90.0
end
it 'should not crash if doctitle contains inline image with data URI target' do
image_data = File.binread fixture_file 'square.jpg'
encoded_image_data = [image_data].pack 'm0'
pdf = to_pdf <<~EOS, analyze: :image
= Document Title image:data:image/jpg;base64,#{encoded_image_data}[]
content
EOS
images = pdf.images
(expect images).to have_size 1
(expect images[0][:data]).to eql image_data
(expect images[0][:width]).to eql 3.75
(expect images[0][:height]).to eql 3.75
end
it 'should not crash if doctitle contains inline SVG image with no explicit width' do
pdf = to_pdf <<~'EOS', pdf_theme: { heading_h1_font_size: 42 }, analyze: :rect
= Document Title image:square.svg[]
content
EOS
(expect pdf.rectangles).to have_size 1
rect = pdf.rectangles[0]
(expect rect[:width]).to eql 200.0
(expect rect[:height]).to eql 200.0
end
it 'should not crash if section title contains inline image with no explicit width' do
expected_image_data = File.binread fixture_file 'tux.jpg'
pdf = to_pdf <<~'EOS', pdf_theme: { heading_h2_font_size: 36 }, analyze: :image
== Section Title image:tux.jpg[]
content
EOS
images = pdf.images
(expect images).to have_size 1
(expect images[0][:data]).to eql expected_image_data
(expect images[0][:width]).to eql 153.0
(expect images[0][:height]).to eql 180.0
end
it 'should place anchor directly at top of block image' do
input = <<~'EOS'
paragraph
[#tux]
image::tux.png[Tux]
EOS
images = (to_pdf input, analyze: :image).images
pdf = to_pdf input
(expect (image_dest = get_dest pdf, 'tux')).not_to be_nil
(expect image_dest[:y]).to eql images[0][:y]
end
it 'should offset anchor from top of block image by amount of block_anchor_top' do
input = <<~'EOS'
paragraph
[#tux]
image::tux.png[Tux]
EOS
pdf_theme = { block_anchor_top: -12 }
images = (to_pdf input, pdf_theme: pdf_theme, analyze: :image).images
pdf = to_pdf input, pdf_theme: pdf_theme
(expect (image_dest = get_dest pdf, 'tux')).not_to be_nil
(expect image_dest[:y]).to eql (images[0][:y] + -pdf_theme[:block_anchor_top])
end
it 'should place anchor at top of block image if advanced to next page' do
input = <<~'EOS'
paragraph
[#tall-diagram]
image::tall-diagram.png[Tall Diagram]
EOS
images = (to_pdf input, analyze: :image).images
pdf = to_pdf input
(expect (image_dest = get_dest pdf, 'tall-diagram')).not_to be_nil
(expect image_dest[:page_number]).to be 2
(expect image_dest[:y]).to eql images[0][:y]
end
context 'imagesdir' do
it 'should resolve target of block image relative to imagesdir', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-wolpertinger.pdf', attribute_overrides: { 'imagesdir' => examples_dir }
image::wolpertinger.jpg[,144]
EOS
(expect to_file).to visually_match 'image-wolpertinger.pdf'
end
it 'should resolve target of block image if imagesdir is absolute directory with non-ASCII characters' do
pdf = to_pdf <<~'EOS', analyze: :image, attribute_overrides: { 'imagesdir' => (File.join fixtures_dir, %(\u6d4b\u8bd5)) }
image::square.png[pdfwidth=1in]
EOS
(expect pdf.images).to have_size 1
end
it 'should resolve target of block image if imagesdir is not set and pwd contains non-ASCII characters' do
Dir.chdir (File.join fixtures_dir, %(\u6d4b\u8bd5)) do
pdf = to_pdf <<~'EOS', analyze: :image
image::square.png[pdfwidth=1in]
EOS
(expect pdf.images).to have_size 1
end
end
it 'should replace block image with alt text if image is missing' do
(expect do
pdf = to_pdf 'image::no-such-image.png[Missing Image]', analyze: true
(expect pdf.lines).to eql ['[Missing Image] | no-such-image.png']
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
end
it 'should wrap alt text of block image if it exceeds width of content area' do
(expect do
pdf = to_pdf 'image::missing-image-with-very-long-filename.png[This image is missing and therefore will be replaced with alt text]', analyze: true
(expect pdf.pages).to have_size 1
lines = pdf.lines pdf.find_text page_number: 1
(expect lines).to eql ['[This image is missing and therefore will be replaced with alt text] | missing-image-with-very-long-', 'filename.png']
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
end
it 'should wrap alt text of block image if it exceeds width of table cell' do
(expect do
pdf = to_pdf <<~'EOS', analyze: true
[cols="1,3"]
|===
a|
image::missing-image-with-very-long-filename.png[This image is missing and therefore will be replaced with alt text]
e|Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.
s|second
s|row
|===
EOS
(expect pdf.pages).to have_size 1
alt_text_lines = pdf.lines pdf.text.select {|it| it[:x] == 51.24 && it[:font_name] != 'NotoSerif-Bold' }
(expect alt_text_lines).to eql ['[This image is missing', 'and therefore will be', 'replaced with alt text] |', 'missing-image-with-', 'very-long-filename.png']
(expect pdf.find_text font_name: 'NotoSerif-Bold', page_number: 1).to have_size 2
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
end
it 'should be able to customize formatting of alt text using theme' do
pdf_theme = { image_alt_content: '%{alt} (%{target})' } # rubocop:disable Style/FormatStringToken
(expect do
pdf = to_pdf 'image::no-such-image.png[Missing Image]', pdf_theme: pdf_theme, analyze: true
(expect pdf.lines).to eql ['Missing Image (no-such-image.png)']
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
end
it 'should align alt text using alignment specified on image' do
[
['', image_align: nil],
['align=center', {}],
['role=center', {}],
['', image_align: 'center'],
].each do |attrlist, pdf_theme|
(expect do
pdf = to_pdf %(image::no-such-image.png[#{attrlist}]), analyze: true, pdf_theme: pdf_theme
(expect pdf.lines).to eql ['[no such image] | no-such-image.png']
if attrlist.empty? && !pdf_theme[:image_align]
(expect pdf.text[0][:x]).to eql 48.24
else
(expect pdf.text[0][:x]).to be > 50
end
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
end
end
it 'should not crash when rendering alt text for missing image if align value is invalid' do
(expect do
pdf = to_pdf 'image::no-such-image.png[,align=middle]', analyze: true
(expect pdf.lines).to eql ['[no such image] | no-such-image.png']
(expect pdf.text[0][:x]).to eql 48.24
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
end
it 'should skip block if image is missing an alt text is empty' do
pdf_theme = { image_alt_content: '' }
(expect do
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, analyze: true
paragraph one
paragraph two
image::no-such-image.png[Missing Image]
paragraph three
EOS
(expect pdf.lines).to eql ['paragraph one', 'paragraph two', 'paragraph three']
para_one_y = (pdf.find_text 'paragraph one')[0][:y].round 2
para_two_y = (pdf.find_text 'paragraph two')[0][:y].round 2
para_three_y = (pdf.find_text 'paragraph three')[0][:y].round 2
(expect para_one_y - para_two_y).to eql para_two_y - para_three_y
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
end
it 'should warn instead of crash if block image is unreadable', unless: (windows? || Process.euid == 0) do
image_file = Pathname.new fixture_file 'logo.png'
(expect do
old_mode = image_file.stat.mode
image_file.chmod 0o000
pdf = to_pdf 'image::logo.png[Unreadable Image]', analyze: true
(expect pdf.lines).to eql ['[Unreadable Image] | logo.png']
ensure
image_file.chmod old_mode
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
end
it 'should respect value of imagesdir if changed mid-document' do
pdf = to_pdf <<~EOS, enable_footer: true, attributes: {}
:imagesdir: #{fixtures_dir}
image::tux.png[tux]
:imagesdir: #{examples_dir}
image::wolpertinger.jpg[wolpertinger]
EOS
(expect get_images pdf).to have_size 2
end
end
context 'Alignment' do
it 'should align block image to value of align attribute on macro', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-align-right-attribute.pdf', attribute_overrides: { 'imagesdir' => examples_dir }
image::wolpertinger.jpg[align=right]
EOS
(expect to_file).to visually_match 'image-align-right.pdf'
end
it 'should align image to left if value of align attribute is invalid' do
pdf = to_pdf 'image::wolpertinger.jpg[,align=middle]', analyze: :image, attribute_overrides: { 'imagesdir' => examples_dir }
images = pdf.images
(expect images).to have_size 1
(expect images[0][:x]).to eql 48.24
end
it 'should align block image as indicated by block alignment role on macro', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-align-right-attribute.pdf', attribute_overrides: { 'imagesdir' => examples_dir }
[.right]
image::wolpertinger.jpg[]
EOS
(expect to_file).to visually_match 'image-align-right.pdf'
end
it 'should align block image to value of image_align key in theme if alignment not specified on image', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-align-right-theme.pdf', pdf_theme: { image_align: 'right' }, attribute_overrides: { 'imagesdir' => examples_dir }
image::wolpertinger.jpg[]
EOS
(expect to_file).to visually_match 'image-align-right.pdf'
end
end
context 'Width' do
subject { Asciidoctor::Converter.create 'pdf' }
it 'should resolve pdfwidth in % to pt' do
attrs = { 'pdfwidth' => '25%' }
(expect subject.resolve_explicit_width attrs, bounds_width: 1000).to eql 250.0
end
it 'should resolve pdfwidth in px to pt' do
attrs = { 'pdfwidth' => '144px' }
(expect subject.resolve_explicit_width attrs, bounds_width: 1000).to eql 108.0
end
it 'should resolve pdfwidth in pc to pt' do
attrs = { 'pdfwidth' => '12pc' }
(expect subject.resolve_explicit_width attrs, bounds_width: 1000).to eql 144.0
end
it 'should resolve pdfwidth in vw' do
attrs = { 'pdfwidth' => '50vw' }
result = subject.resolve_explicit_width attrs, bounds_width: 1000, support_vw: true
(expect result.to_f).to eql 50.0
(expect result).to be_a Asciidoctor::PDF::Converter::ViewportWidth
end
it 'should resolve pdfwidth in iw' do
attrs = { 'pdfwidth' => '50iw' }
result = subject.resolve_explicit_width attrs
(expect result.to_f).to eql 50.0
(expect result).to be_a Asciidoctor::PDF::Converter::ImageWidth
end
it 'should ignore vw unit if not supported' do
attrs = { 'pdfwidth' => '50vw' }
result = subject.resolve_explicit_width attrs, bounds_width: 1000
(expect result.to_f).to eql 50.0
(expect result).not_to be_a Asciidoctor::PDF::Converter::ViewportWidth
end
it 'should ignore vw unit used in fallback if not supported' do
converter = subject
converter.instance_variable_set :@theme, (build_pdf_theme image_width: '50vw')
attrs = {}
result = subject.resolve_explicit_width attrs, bounds_width: 1000, use_fallback: true
(expect result.to_f).to eql 50.0
(expect result).not_to be_a Asciidoctor::PDF::Converter::ViewportWidth
end
it 'should resolve scale attribute to value with ImageWidth module' do
attrs = { 'scale' => '25' }
result = subject.resolve_explicit_width attrs
(expect result.to_f).to eql 25.0
(expect result).to be_a Asciidoctor::PDF::Converter::ImageWidth
end
it 'should resolve scaledwidth in % to pt' do
attrs = { 'scaledwidth' => '25%' }
(expect subject.resolve_explicit_width attrs, bounds_width: 1000).to eql 250.0
end
it 'should resolve scaledwidth in px to pt' do
attrs = { 'scaledwidth' => '144px' }
(expect subject.resolve_explicit_width attrs, bounds_width: 1000).to eql 108.0
end
it 'should resolve width in % to pt' do
attrs = { 'width' => '25%' }
(expect subject.resolve_explicit_width attrs, bounds_width: 1000).to eql 250.0
end
it 'should resolve unitless width in px to pt' do
attrs = { 'width' => '100' }
(expect subject.resolve_explicit_width attrs, bounds_width: 1000).to eql 75.0
end
it 'should ignore width that has non digits' do
attrs = { 'width' => 'text' }
(expect subject.resolve_explicit_width attrs, bounds_width: 1000).to be_nil
end
it 'should size image using percentage width specified by pdfwidth', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-pdfwidth-percentage.pdf', attribute_overrides: { 'imagesdir' => examples_dir }
image::wolpertinger.jpg[,144,pdfwidth=25%,scaledwidth=50%]
EOS
(expect to_file).to visually_match 'image-pdfwidth-percentage.pdf'
end
it 'should size image using percentage width specified by scaledwidth', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-scaledwidth-percentage.pdf', attribute_overrides: { 'imagesdir' => examples_dir }
image::wolpertinger.jpg[,144,scaledwidth=25%]
EOS
(expect to_file).to visually_match 'image-pdfwidth-percentage.pdf'
end
it 'should size image using percentage width specified by width', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-width-percentage.pdf', attribute_overrides: { 'imagesdir' => examples_dir }
image::wolpertinger.jpg[,144,width=25%]
EOS
(expect to_file).to visually_match 'image-pdfwidth-percentage.pdf'
end
it 'should scale raster image as percentage of intrinsic size', visual: true do
['scale=75', 'pdfwidth=75iw'].each do |width_attr|
pdf = to_pdf <<~EOS, attribute_overrides: { 'imagesdir' => examples_dir }, analyze: :image
image::wolpertinger.jpg[,144,#{width_attr}]
EOS
image = pdf.images[0]
(expect image[:intrinsic_width].to_f).to eql 220.0
(expect image[:width].to_f).to eql 123.75
end
end
it 'should scale SVG image as percentage of intrinsic size', visual: true do
['scale=50', 'pdfwidth=50iw'].each do |width_attr|
to_file = to_pdf_file <<~EOS, %(image-svg-#{width_attr.sub '=', '-'}.pdf)
image::square.svg[#{width_attr}]
EOS
(expect to_file).to visually_match 'image-svg-scale.pdf'
end
end
it 'should scale image to width of page when pdfwidth=100vw and align-to-page option is set', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-full-width.pdf'
image::square.png[pdfwidth=100vw,opts=align-to-page]
EOS
(expect to_file).to visually_match 'image-full-width.pdf'
end
it 'should interpret unrecognized units as pt' do
pdf = to_pdf <<~'EOS', analyze: :image
Follow the image:square.jpg[pdfwidth=12ft].
EOS
(expect pdf.images).to have_size 1
(expect pdf.images[0][:width]).to eql 12.0
end
it 'should scale inline image as percentage of intrinsic size' do
['scale=400', 'pdfwidth=400iw'].each do |width_attr|
pdf = to_pdf <<~EOS, analyze: :image
image:square.jpg[#{width_attr}]
EOS
image = pdf.images[0]
(expect image[:intrinsic_width].to_f).to eql 5.0
(expect image[:intrinsic_height].to_f).to eql 5.0
(expect image[:width]).to eql 15.0
(expect image[:height]).to eql 15.0
end
end
it 'should interpret vw units as pt if align-to-page opts is not set' do
pdf = to_pdf <<~'EOS', analyze: :image
Follow the image:square.jpg[pdfwidth=50vw].
EOS
(expect pdf.images).to have_size 1
(expect pdf.images[0][:width]).to eql 50.0
end
it 'should scale down image if height exceeds available space', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-png-scale-to-fit.pdf'
:pdf-page-layout: landscape
image::tux.png[pdfwidth=100%]
EOS
(expect to_file).to visually_match 'image-png-scale-to-fit.pdf'
end
# NOTE: if not implemented properly, this case is subject to a floating point calculation error
it 'should set height of scaled down image to exactly height of available space' do
input = <<~'EOS'
:pdf-page-size: Letter
:pdf-page-margin: 0.67in
before
image::tall-irregular.jpg[pdfwidth=100%]
EOS
pdf = to_pdf input
(expect pdf.pages).to have_size 2
(expect get_images pdf, 1).to be_empty
(expect get_images pdf, 2).to have_size 1
images = (to_pdf input, analyze: :image).images
(expect images[0][:height]).to eql 695.52
end
it 'should use the numeric width defined in the theme if an explicit width is not specified', visual: true do
[72, '72', '1in', '6pc'].each do |image_width|
to_file = to_pdf_file <<~'EOS', 'image-numeric-fallback-width.pdf', pdf_theme: { image_width: image_width }
image::tux.png[pdfwidth=204px]
image::tux.png[,204]
image::tux.png[]
EOS
(expect to_file).to visually_match 'image-numeric-fallback-width.pdf'
end
end
it 'should use the percentage width defined in the theme if an explicit width is not specified', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-percentage-fallback-width.pdf', pdf_theme: { image_width: '50%' }
image::tux.png[]
EOS
(expect to_file).to visually_match 'image-percentage-fallback-width.pdf'
end
it 'should use intrinsic width if value of width is not numeric', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-block-intrinsic-width.pdf', attribute_overrides: { 'imagesdir' => examples_dir }
image::wolpertinger.jpg[,invalid]
EOS
(expect to_file).to visually_match 'image-block-intrinsic-width.pdf'
end
it 'should use the vw width defined in theme if explicit width is not specified', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-full-width-theme.pdf', pdf_theme: { image_width: '100vw' }
image::square.png[opts=align-to-page]
EOS
(expect to_file).to visually_match 'image-full-width.pdf'
end
end
context 'SVG' do
it 'should not leave gap around SVG that specifies viewBox but no width' do
input = <<~'EOS'
:pdf-page-size: 200x400
:pdf-page-margin: 0
image::square-viewbox-only.svg[]
after
EOS
pdf = to_pdf input, analyze: :rect
(expect pdf.rectangles).to have_size 1
(expect pdf.rectangles[0][:point]).to eql [0.0, 200.0]
(expect pdf.rectangles[0][:width]).to eql 200.0
(expect pdf.rectangles[0][:height]).to eql 200.0
pdf = to_pdf input, analyze: true
text = pdf.text
(expect text).to have_size 1
(expect text[0][:string]).to eql 'after'
(expect text[0][:y]).to eql 176.036
end
it 'should not leave gap around constrained SVG that specifies viewBox but no width' do
input = <<~'EOS'
:pdf-page-size: 200x400
:pdf-page-margin: 0
image::square-viewbox-only.svg[pdfwidth=50%]
after
EOS
pdf = to_pdf input, analyze: :rect
(expect pdf.rectangles).to have_size 1
(expect pdf.rectangles[0][:point]).to eql [0.0, 200.0]
(expect pdf.rectangles[0][:width]).to eql 200.0
(expect pdf.rectangles[0][:height]).to eql 200.0
pdf = to_pdf input, analyze: true
text = pdf.text
(expect text).to have_size 1
(expect text[0][:string]).to eql 'after'
(expect text[0][:y]).to eql 276.036
end
it 'should compute width correctly when SVG defines width in px units', visual: true do
[true, false].each do |from_theme|
to_file = with_content_spacer 200, 200, 'px' do |spacer_path|
pdf_theme = {}
pdf_theme[:image_width] = '200px' if from_theme
to_pdf_file <<~EOS, %(image-svg-px-width-from-#{from_theme ? 'theme' : 'file'}.svg), pdf_theme: pdf_theme
image::#{spacer_path}[]
image::#{spacer_path}[pdfwidth=200px]
EOS
end
(expect to_file).to visually_match 'image-svg-px-width.pdf'
end
end
it 'should treat value with px units at pt in SVG data', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-svg-px-data.pdf'
image::red-blue-squares.svg[pdfwidth=25%]
EOS
(expect to_file).to visually_match 'image-svg-px-data.pdf'
end
it 'should not allow inline image to affect the cursor position of the following paragraph' do
pdf = to_pdf <<~'EOS', analyze: true
before
next
EOS
expected_gap = ((pdf.find_unique_text 'before')[:y] - (pdf.find_unique_text 'next')[:y]).round 2
pdf = to_pdf <<~'EOS', analyze: true
before image:tall.svg[pdfwidth=0.5in] after
next
EOS
actual_gap = ((pdf.find_unique_text %r/before/)[:y] - (pdf.find_unique_text 'next')[:y]).round 2
(expect actual_gap).to eql expected_gap
(expect (pdf.find_unique_text %r/before/)[:y]).to eql (pdf.find_unique_text %r/after/)[:y]
end
it 'should set color space on page that only has image and stamp' do
pdf = to_pdf <<~'EOS', pdf_theme: { footer_recto_right_content: 'pg {page-number}' }, enable_footer: true
image::square.svg[]
EOS
(expect (pdf.page 1).text.squeeze).to eql 'pg 1'
raw_content = (pdf.page 1).raw_content
color_space_idx = raw_content.index <<~'EOS'
/DeviceRGB cs
0.0 0.0 0.0 scn
/DeviceRGB CS
0.0 0.0 0.0 SCN
EOS
stamp_idx = raw_content.index %(\n/Stamp)
(expect color_space_idx).to be > 0
(expect stamp_idx).to be > 0
(expect stamp_idx).to be > color_space_idx
end
it 'should scale down SVG at top of page if dimensions exceed page size', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-svg-scale-to-fit-page.pdf'
:pdf-page-size: Letter
image::watermark.svg[pdfwidth=100%]
EOS
(expect to_file).to visually_match 'image-svg-scale-to-fit-page.pdf'
end
it 'should scale down SVG not at top of page and advance to next page if dimensions exceed page size', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-svg-scale-to-fit-next-page-with-text.pdf'
:pdf-page-size: Letter
push
image
down
image::watermark.svg[pdfwidth=100%]
EOS
to_file = to_pdf_file %(image::#{to_file}[page=2]), 'image-svg-scale-to-fit-next-page.pdf'
(expect to_file).to visually_match 'image-svg-scale-to-fit-page.pdf'
end
it 'should place SVG in correct column when page columns are enabled' do
pdf_theme = {
page_columns: 2,
page_column_gap: 12,
thematic_break_border_color: '0000FF',
thematic_break_border_width: 1,
}
input = <<~'EOS'
left column
[.column]
<<<
---
image::tall.svg[pdfwidth=50%]
EOS
lines = (to_pdf input, pdf_theme: pdf_theme, analyze: :line).lines
thematic_break_line = lines.find {|it| it[:color] == '0000FF' && it[:width] == 1 }
column_left = thematic_break_line[:from][:x]
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: true
gs_p1 = (pdf.extract_graphic_states pdf.pages[0][:raw_content])
(expect gs_p1).to have_size 2
(expect gs_p1[1]).to include %(#{column_left} 181.89 200.0 600.0 re)
end
it 'should center SVG in right column when page columns are enabled', visual: true do
pdf_theme = {
page_columns: 2,
page_column_gap: 12,
thematic_break_border_color: '0000FF',
thematic_break_border_width: 1,
}
input = <<~'EOS'
left column
[.column]
<<<
---
image::tall.svg[pdfwidth=50%,align=center]
EOS
to_file = to_pdf_file input, 'image-svg-in-column-align-center.pdf', pdf_theme: pdf_theme
(expect to_file).to visually_match 'image-svg-in-column-align-center.pdf'
end
it 'should not advance SVG at top of column box to fit if column box starts below top of page' do
backend = nil
create_class (Asciidoctor::Converter.for 'pdf') do
register_for (backend = %(pdf#{object_id}).to_sym)
def traverse node
return super unless node.context == :document
column_box [0, cursor], columns: 2, width: bounds.width, reflow_margins: true do
super
end
end
end
pdf = to_pdf <<~'EOS', backend: backend, analyze: true
= Document Title
image::tall.svg[pdfwidth=90mm]
paragraph in second column
EOS
(expect pdf.pages).to have_size 1
gs_p1 = (pdf.extract_graphic_states pdf.pages[0][:raw_content])
(expect gs_p1).to have_size 1
(expect gs_p1[0]).to include '48.24 158.37 200.0 600.0 re'
second_column_text = pdf.find_unique_text 'paragraph in second column'
(expect second_column_text[:x]).to eql 302.89
(expect second_column_text[:y] + second_column_text[:font_size]).to (be_within 2).of 758.37
end
it 'should advance SVG below top of column box to next column to fit' do
backend = nil
create_class (Asciidoctor::Converter.for 'pdf') do
register_for (backend = %(pdf#{object_id}).to_sym)
def traverse node
return super unless node.context == :document
column_box [0, cursor], columns: 2, width: bounds.width, reflow_margins: true do
super
end
end
end
pdf = to_pdf <<~'EOS', backend: backend, analyze: true
= Document Title
before
image::tall.svg[pdfwidth=90mm]
paragraph on next page
EOS
(expect pdf.pages).to have_size 2
before_text = pdf.find_unique_text 'before'
(expect before_text[:x]).to eql 48.24
gs_p1 = (pdf.extract_graphic_states pdf.pages[0][:raw_content])
(expect gs_p1).to have_size 1
(expect gs_p1[0]).to include '302.89 158.37 200.0 600.0 re'
second_column_text = pdf.find_unique_text 'paragraph on next page'
(expect second_column_text[:page_number]).to eql 2
(expect second_column_text[:x]).to eql 48.24
end
it 'should scale down SVG to fit bounds if width is set in SVG but not on image macro', visual: true do
to_file = to_pdf_file 'image::green-bar-width.svg[]', 'image-svg-scale-to-fit-bounds.pdf'
(expect to_file).to visually_match 'image-svg-scale-to-fit-bounds.pdf'
end
it 'should not scale SVG if it can fit on next page' do
pdf = to_pdf <<~EOS, analyze: true
#{(%w(filler) * 6).join %(\n\n)}
image::tall.svg[]
below first
<<<
image::tall.svg[]
below second
EOS
below_first_text = pdf.find_unique_text 'below first'
below_second_text = pdf.find_unique_text 'below second'
(expect below_first_text[:y]).to eql below_second_text[:y]
(expect below_first_text[:page_number]).to be 2
(expect below_second_text[:page_number]).to be 3
end
it 'should scale down inline SVG to fit height of page' do
input = <<~'EOS'
:pdf-page-size: 200x350
:pdf-page-margin: 0
image:tall.svg[]
EOS
pdf = to_pdf input, analyze: :line
image_h = pdf.lines[1][:to][:y] - pdf.lines[1][:from][:y]
(expect image_h).to eql 350.0
end
it 'should scale down inline SVG to fit height of next page' do
input = <<~'EOS'
:pdf-page-size: 200x350
:pdf-page-margin: 0
before
image:tall.svg[]
EOS
pdf = to_pdf input, analyze: :line
(expect pdf.lines.map {|it| it[:page_number] }.uniq).to eql [2]
image_h = pdf.lines[1][:to][:y] - pdf.lines[1][:from][:y]
(expect image_h).to eql 350.0
end
it 'should display text inside link' do
pdf = to_pdf <<~'EOS', analyze: true
image::svg-with-link.svg[]
EOS
text = pdf.find_text 'Text with link'
(expect text).to have_size 1
(expect text[0][:font_name]).to eql 'mplus1mn-regular'
(expect text[0][:font_size].to_f).to eql 12.0
(expect text[0][:font_color]).to eql 'AA0000'
end
it 'should map font names in SVG to font names in document font catalog' do
pdf = to_pdf <<~'EOS', analyze: true
image::svg-with-text.svg[]
EOS
text = pdf.find_text 'This text uses a document font.'
(expect text).to have_size 1
(expect text[0][:font_name]).to eql 'mplus1mn-regular'
(expect text[0][:font_size].to_f).to eql 12.0
(expect text[0][:font_color]).to eql 'AA0000'
end
it 'should replace unrecognized font family with base font family' do
pdf = to_pdf <<~'EOS', analyze: true
image::svg-with-unknown-font.svg[]
EOS
text = pdf.find_text 'This text uses the default SVG font.'
(expect text).to have_size 1
(expect text[0][:font_name]).to eql 'NotoSerif'
(expect text[0][:font_size].to_f).to eql 12.0
(expect text[0][:font_color]).to eql 'AA0000'
end
it 'should map generic font family to AFM font by default' do
pdf = to_pdf <<~'EOS', analyze: true
image::svg-with-generic-font.svg[]
EOS
text = pdf.find_text 'This text uses the serif font.'
(expect text).to have_size 1
(expect text[0][:font_name]).to eql 'Times-Roman'
(expect text[0][:font_size].to_f).to eql 12.0
(expect text[0][:font_color]).to eql 'AA0000'
end
it 'should allow generic font family to be mapped in font catalog' do
pdf_theme = build_pdf_theme
pdf_theme.font_catalog['serif'] = { 'normal' => pdf_theme.font_catalog['Noto Serif']['normal'] }
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, analyze: true
image::svg-with-generic-font.svg[]
EOS
text = pdf.find_text 'This text uses the serif font.'
(expect text).to have_size 1
(expect text[0][:font_name]).to eql 'NotoSerif'
(expect text[0][:font_size].to_f).to eql 12.0
(expect text[0][:font_color]).to eql 'AA0000'
end
it 'should replace unrecognized font family in SVG with SVG fallback font family if specified in theme' do
[true, false].each do |block|
pdf = to_pdf <<~EOS, pdf_theme: { svg_fallback_font_family: 'Times-Roman' }, analyze: true
#{block ? '' : 'before'}
image:#{block ? ':' : ''}svg-with-unknown-font.svg[pdfwidth=100%]
#{block ? '' : 'after'}
EOS
text = pdf.find_text 'This text uses the default SVG font.'
(expect text).to have_size 1
(expect text[0][:font_name]).to eql 'Times-Roman'
(expect text[0][:font_size].to_f).to eql 12.0
(expect text[0][:font_color]).to eql 'AA0000'
end
end
it 'should embed local image in inline image', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-svg-with-local-image.pdf'
A sign of a good writer: image:svg-with-local-image.svg[pdfwidth=1.27cm]
EOS
(expect to_file).to visually_match 'image-svg-with-image.pdf'
end
it 'should embed local image in block image', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-block-svg-with-local-image.pdf'
image::svg-with-local-image.svg[pdfwidth=1.27cm]
EOS
(expect to_file).to visually_match 'image-block-svg-with-image.pdf'
end
it 'should allow image path to reference file in ancestor directory inside base dir' do
expected_image_data = File.binread example_file 'sample-logo.jpg'
svg_data = <<~'EOS'
EOS
with_tmp_file '.svg', contents: svg_data do |tmp_file|
image_path = tmp_file.path
['::', ':'].each do |macro_delim|
pdf = to_pdf <<~EOS, base_dir: (File.dirname __dir__)
image#{macro_delim}#{image_path}[SVG with ancestor relative image,pdfwidth=25%]
EOS
images = get_images pdf, 1
(expect images).to have_size 1
(expect images[0].data).to eql expected_image_data
end
end
end
it 'should embed GIF image if prawn-gmagick is available', if: (defined? GMagick::Image) do
pdf = to_pdf 'image::svg-with-gif-image.svg[]', analyze: :image
(expect pdf.images).to have_size 1
image = pdf.images[0]
(expect image[:intrinsic_width]).to eql 204
end
it 'should log warning for GIF image if prawn-gmagick is not available', unless: (defined? GMagick::Image) do
(expect do
pdf = to_pdf 'image::svg-with-gif-image.svg[]', analyze: :image
(expect pdf.images).to be_empty
end).to log_message severity: :WARN, message: %(problem encountered in image: #{fixture_file 'svg-with-gif-image.svg'}; Unsupported image type supplied to image tag)
end
it 'should embed image from data-uri in inline image', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-svg-with-data-uri-image.pdf'
A sign of a good writer: image:svg-with-data-uri-image.svg[pdfwidth=1.27cm]
EOS
(expect to_file).to visually_match 'image-svg-with-image.pdf'
end
it 'should embed image from data-uri in block image', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-block-svg-with-data-uri-image.pdf'
image::svg-with-data-uri-image.svg[pdfwidth=1.27cm]
EOS
(expect to_file).to visually_match 'image-block-svg-with-image.pdf'
end
it 'should embed SVG image from data-uri in SVG', visual: true do
pdf = to_pdf 'image::svg-with-data-uri-svg-image.svg[]', analyze: :rect
(expect pdf.rectangles).to have_size 1
(expect pdf.rectangles[0][:fill_color]).to eql 'FF0000'
end
it 'should support non-standard image/jpg MIME type', visual: true do
image_data = File.binread fixture_file 'square.jpg'
pdf = to_pdf 'image::svg-with-data-uri-jpg-image.svg[pdfwidth=1.27cm]', analyze: :image
images = pdf.images
(expect images).to have_size 1
(expect images[0][:data]).to eql image_data
end
it 'should use width defined in image if width not specified on inline macro', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-svg-with-own-width.pdf'
A sign of a good writer: image:svg-with-local-image.svg[]
EOS
(expect to_file).to visually_match 'image-svg-with-image.pdf'
end
it 'should use width defined in image if width not specified on block macro', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-block-svg-with-own-width.pdf'
image::svg-with-local-image.svg[]
EOS
(expect to_file).to visually_match 'image-block-svg-with-image.pdf'
end
it 'should not embed remote image if allow allow-uri-read attribute is not set', visual: true do
(expect do
to_file = to_pdf_file <<~'EOS', 'image-svg-with-remote-image-disabled.pdf'
A sign of a good writer: image:svg-with-remote-image.svg[]
EOS
(expect to_file).to visually_match 'image-svg-with-missing-image.pdf'
end).to log_message severity: :WARN, message: %(~problem encountered in image: #{fixture_file 'svg-with-remote-image.svg'}; Error retrieving URL https://cdn.jsdelivr.net/gh/asciidoctor/asciidoctor-pdf@v1.6.2/spec/fixtures/logo.png)
end
it 'should embed remote image if allow allow-uri-read attribute is set', network: true, visual: true do
to_file = to_pdf_file <<~'EOS', 'image-svg-with-remote-image.pdf', attribute_overrides: { 'allow-uri-read' => '' }
A sign of a good writer: image:svg-with-remote-image.svg[pdfwidth=1.27cm]
EOS
(expect to_file).to visually_match 'image-svg-with-image.pdf'
end
it 'should warn if remote image is missing and allow-uri-read attribute is set', network: true do
(expect do
pdf = to_pdf <<~'EOS', attribute_overrides: { 'allow-uri-read' => '' }
See the logo in image:svg-with-missing-remote-image.svg[pdfwidth=16]
EOS
(expect get_images pdf, 1).to be_empty
(expect (pdf.page 1).text).to include 'See the logo in'
end).to log_message severity: :WARN, message: %(problem encountered in image: #{fixture_file 'svg-with-missing-remote-image.svg'}; Error retrieving URL https://github.com/no-such-image.png: 404 Not Found)
end
it 'should warn if remote image is not a valid URL and allow-uri-read attribute is set', network: true do
(expect do
pdf = to_pdf <<~'EOS', attribute_overrides: { 'allow-uri-read' => '' }
See the logo in image:svg-with-non-url-image.svg[pdfwidth=16]
EOS
(expect get_images pdf, 1).to be_empty
(expect (pdf.page 1).text).to include 'See the logo in'
end).to log_message severity: :WARN, message: %(problem encountered in image: #{fixture_file 'svg-with-non-url-image.svg'}; Error retrieving URL s3://foobar/tux.png: No handler available for this URL scheme)
end
it 'should not mistake image target containing colon as URL' do
(expect do
pdf = to_pdf 'image::module:path.jpg[Missing Image]', analyze: true
(expect pdf.lines).to eql ['[Missing Image] | module:path.jpg']
end).to log_message severity: :WARN, message: %(~image to embed not found or not readable: #{fixture_file 'module:path.jpg'})
end
it 'should ignore inline option for SVG on image macro' do
pdf = to_pdf <<~'EOS', analyze: :rect
image::square.svg[pdfwidth=200pt,opts=inline]
EOS
(expect pdf.rectangles).to have_size 1
rect = pdf.rectangles[0]
(expect rect[:point]).to eql [48.24, 605.89]
(expect rect[:width]).to eql 200.0
(expect rect[:height]).to eql 200.0
end
it 'should fail to embed broken SVG with warning' do
{ '::' => '[Broken SVG] | broken.svg', ':' => '[Broken SVG]' }.each do |macro_delim, alt_text|
(expect do
pdf = to_pdf %(image#{macro_delim}broken.svg[Broken SVG]), analyze: true
(expect pdf.lines).to eql [alt_text]
end).to log_message severity: :WARN, message: %(~could not embed image: #{fixture_file 'broken.svg'}; Missing end tag for 'rect')
end
end
it 'should pass SVG warnings in main document to logger' do
{ '::' => [48.24, 605.89], ':' => [48.24, 605.14] }.each do |macro_delim, point|
[true, false].each do |in_block|
(expect do
input = %(image#{macro_delim}faulty.svg[Faulty SVG])
input = %([%unbreakable]\n--\n#{input}\n--) if in_block
pdf = to_pdf input, analyze: :rect
(expect pdf.rectangles).to have_size 1
rect = pdf.rectangles[0]
(expect rect[:point]).to eql point
(expect rect[:width]).to eql 200.0
(expect rect[:height]).to eql 200.0
end).to log_message severity: :WARN, message: %(~problem encountered in image: #{fixture_file 'faulty.svg'}; Unknown tag 'foobar')
end
end
end
it 'should render linear gradient in SVG', visual: true do
to_file = to_pdf_file 'image::gradient.svg[pdfwidth=100%]', 'image-svg-with-gradient.pdf'
(expect to_file).to visually_match 'image-svg-with-gradient.pdf'
end
it 'should set graphic state for running content when image occupies whole page' do
pdf_theme = {
footer_recto_right_content: %(image:#{fixture_file 'svg-with-text.svg'}[]),
footer_verso_left_content: %(image:#{fixture_file 'svg-with-text.svg'}[]),
}
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, enable_footer: true
before
image::tall.svg[pdfwidth=50%]
after
EOS
(expect pdf.pages).to have_size 3
page_contents = pdf.objects[(pdf.page 2).page_object[:Contents]].data
page_content_lines = page_contents.split ?\n
(expect page_content_lines.shift).to eql 'q'
(expect page_content_lines.shift).to eql 'q'
stack_size = 1
until (line = page_content_lines.shift).nil?
if line == 'q'
stack_size += 1
elsif line == 'Q'
break if (stack_size -= 1) == 0
end
end
(expect page_content_lines.slice 0, 3).to eql ['q', '/DeviceRGB cs', '0.0 0.0 0.0 scn']
end
it 'should set graphic state for running content when image does not occupy whole page' do
pdf_theme = {
footer_recto_right_content: %(image:#{fixture_file 'svg-with-text.svg'}[]),
footer_verso_left_content: %(image:#{fixture_file 'svg-with-text.svg'}[]),
}
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, enable_footer: true
first
<<<
before
image::tall.svg[pdfwidth=25%]
after
EOS
(expect pdf.pages).to have_size 2
[1, 2].each do |pagenum|
page_contents = pdf.objects[(pdf.page pagenum).page_object[:Contents]].data
(expect (page_contents.split ?\n).slice 0, 3).to eql ['q', '/DeviceRGB cs', '0.2 0.2 0.2 scn']
end
end
it 'should embed local SVG in inline image', visual: true do
(expect do
to_file = to_pdf_file <<~'EOS', 'image-inline-svg-with-local-svg.pdf'
image:svg-with-local-svg.svg[pdfwidth=1.27cm] contains a red square.
EOS
(expect to_file).to visually_match 'image-inline-svg-with-local-svg.pdf'
end).to not_log_message
end
it 'should not embed local SVG in block image', visual: true do
(expect do
to_file = to_pdf_file <<~'EOS', 'image-block-svg-with-local-svg.pdf'
.Contains a red square
image::svg-with-local-svg.svg[pdfwidth=5in]
EOS
(expect to_file).to visually_match 'image-block-svg-with-local-svg.pdf'
end).to not_log_message
end
end
context 'Raster' do
it 'should embed JPG image' do
pdf = to_pdf 'image::cover.jpg[]', pdf_theme: { page_size: 'Letter' }, analyze: :image
images = pdf.images
(expect images).to have_size 1
image = pdf.images[0]
(expect image[:page_number]).to be 1
(expect image[:intrinsic_width]).to eql 287
(expect image[:x]).to eql 48.24
(expect image[:y]).to eql 756.0
(expect image[:width]).to eql 287 * 0.75
(expect image[:data]).to eql File.binread fixture_file 'cover.jpg'
end
it 'should embed PNG image', visual: true do
to_file = to_pdf_file 'image::tux.png[]', 'image-png-implicit-width.pdf'
(expect to_file).to visually_match 'image-png-implicit-width.pdf'
end
# TODO: we'd like to avoid this, but the cached objects are document bound
it 'should decode PNG image again in scratch document' do
image_handler = Prawn.image_handler
old_image_handler = Prawn.singleton_method :image_handler
Prawn.singleton_class.remove_method :image_handler
call_count = 0
Prawn.singleton_class.define_method :image_handler do
call_count += 1
image_handler
end
pdf = to_pdf <<~'EOS', analyze: :image
****
image::tux.png[]
****
EOS
(expect pdf.images).to have_size 1
(expect call_count).to eql 2
ensure
Prawn.singleton_class.remove_method :image_handler
Prawn.singleton_class.define_method :image_handler, &old_image_handler
end
it 'should set color space on page that only has image and stamp' do
pdf = to_pdf <<~'EOS', pdf_theme: { footer_recto_right_content: 'pg {page-number}' }, enable_footer: true
image::tux.png[]
EOS
(expect (pdf.page 1).text.squeeze).to eql 'pg 1'
raw_content = (pdf.page 1).raw_content
color_space_idx = raw_content.index <<~'EOS'
/DeviceRGB cs
0.0 0.0 0.0 scn
/DeviceRGB CS
0.0 0.0 0.0 SCN
EOS
stamp_idx = raw_content.index %(\n/Stamp)
(expect color_space_idx).to be > 0
(expect stamp_idx).to be > 0
(expect stamp_idx).to be > color_space_idx
end
it 'should scale down image not at top of page and advance to next page if dimensions exceed page size' do
pdf_theme = { page_size: 'Letter', page_margin: 50 }
expected_top = (to_pdf 'image::cover.jpg[pdfwidth=1in]', pdf_theme: pdf_theme, analyze: :image).images[0][:y]
expected_height = 11 * 72.0 - 100
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, analyze: :image
before
image::cover.jpg[pdfwidth=100%]
EOS
images = pdf.images
(expect images).to have_size 1
image = images[0]
(expect image[:page_number]).to be 2
(expect image[:y]).to eql expected_top
(expect image[:height]).to eql expected_height
end
it 'should not scale image if it can fit on next page' do
reference_width = (to_pdf 'image::cover.jpg[]', analyze: :image).images[0][:width]
pdf = to_pdf <<~EOS, analyze: :image
:pdf-page-size: A5
#{(%w(filler) * 8).join %(\n\n)}
image::cover.jpg[]
EOS
(expect pdf.images[0][:width]).to eql reference_width
end
it 'should fail to embed incomplete PNG with warning' do
with_tmp_file '.png', tmpdir: output_dir do |tmp_file|
tmp_file.binmode
tmp_file.write [137, 80, 78, 71, 10].pack 'C*' # make a PNG with incomplete data
tmp_file.close
image_path = tmp_file.path
{ '::' => %([Incomplete PNG] | #{image_path}), ':' => '[Incomplete PNG]' }.each do |macro_delim, alt_text|
(expect do
input = <<~EOS
image#{macro_delim}#{image_path}[Incomplete PNG]
EOS
pdf = to_pdf input, pdf_theme: { page_layout: 'landscape' }, analyze: true
(expect pdf.lines).to eql [alt_text]
end).to log_message severity: :WARN, message: %(could not embed image: #{image_path}; image file is an unrecognised format)
end
end
end
it 'should fail to embed interlaced PNG image with warning', unless: (defined? GMagick::Image) do
{ '::' => '[Interlaced PNG] | interlaced.png', ':' => '[Interlaced PNG]' }.each do |macro_delim, alt_text|
(expect do
input = <<~EOS
[%unbreakable]
--
image#{macro_delim}interlaced.png[Interlaced PNG]
--
EOS
pdf = to_pdf input, analyze: true
(expect pdf.lines).to eql [alt_text]
end).to log_message severity: :WARN, message: %(could not embed image: #{fixture_file 'interlaced.png'}; PNG uses unsupported interlace method; install prawn-gmagick gem to add support for PNG image format)
end
end
it 'should embed interlaced PNG image if prawn-gmagick is available', if: (defined? GMagick::Image) do
['::', ':'].each do |macro_delim|
pdf = to_pdf %(image#{macro_delim}interlaced.png[Interlaced PNG]), analyze: :image
(expect pdf.images).to have_size 1
end
end
it 'should not suggest installing prawn-gmagick if gem has already been loaded', if: (defined? GMagick::Image) do
['::', ':'].each do |macro_delim|
(expect do
input = <<~EOS
[%unbreakable]
--
image#{macro_delim}lorem-ipsum.yml[Unrecognized image format]
--
EOS
pdf = to_pdf input, analyze: :image
(expect pdf.images).to have_size 0
end).to log_message severity: :WARN, message: %(could not embed image: #{fixture_file 'lorem-ipsum.yml'}; image file is an unrecognised format)
end
end
# NOTE: gmagick reads `Depth: 8/2-bit` as 2 instead of 8
it 'should reread bit depth if gmagick fails to read bit depth correctly', if: (defined? GMagick::Image), visual: true do
to_file = to_pdf_file <<~'EOS', 'image-png-depth.pdf'
image::square.png[pdfwidth=25%]
EOS
(expect to_file).to visually_match 'image-png-depth.pdf'
end
it 'should set graphic state for running content when image occupies whole page' do
pdf_theme = {
footer_recto_right_content: %(image:#{fixture_file 'svg-with-text.svg'}[]),
footer_verso_left_content: %(image:#{fixture_file 'svg-with-text.svg'}[]),
}
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, enable_footer: true
:pdf-page-size: Letter
before
image::cover.jpg[pdfwidth=100%]
after
EOS
(expect pdf.pages).to have_size 3
page_contents = pdf.objects[(pdf.page 2).page_object[:Contents]].data
page_content_lines = page_contents.split ?\n
(expect page_content_lines.shift).to eql 'q'
page_content_lines.shift if page_content_lines[0].empty?
(expect page_content_lines.shift).to eql 'q'
stack_size = 1
until (line = page_content_lines.shift).nil?
if line == 'q'
stack_size += 1
elsif line == 'Q'
break if (stack_size -= 1) == 0
end
end
(expect page_content_lines.slice 0, 3).to eql ['q', '/DeviceRGB cs', '0.0 0.0 0.0 scn']
end
it 'should place raster image in correct column when page columns are enabled' do
pdf_theme = {
page_columns: 2,
page_column_gap: 12,
thematic_break_border_color: '0000FF',
thematic_break_border_width: 1,
}
input = <<~'EOS'
left column
[.column]
<<<
---
image::tux.jpg[pdfwidth=50%]
EOS
lines = (to_pdf input, pdf_theme: pdf_theme, analyze: :line).lines
thematic_break_line = lines.find {|it| it[:color] == '0000FF' && it[:width] == 1 }
column_left = thematic_break_line[:from][:x]
images = (to_pdf input, pdf_theme: pdf_theme, analyze: :image).images
(expect images).to have_size 1
(expect images[0][:page_number]).to eql 1
(expect images[0][:x]).to eql column_left
end
it 'should align raster image to right of column when page columns are enabled' do
pdf_theme = {
page_columns: 2,
page_column_gap: 12,
thematic_break_border_color: '0000FF',
thematic_break_border_width: 1,
}
input = <<~'EOS'
left column
[.column]
<<<
---
image::tux.jpg[align=right,pdfwidth=50%]
EOS
lines = (to_pdf input, pdf_theme: pdf_theme, analyze: :line).lines
thematic_break_line = lines.find {|it| it[:color] == '0000FF' && it[:width] == 1 }
column_right = thematic_break_line[:to][:x]
images = (to_pdf input, pdf_theme: pdf_theme, analyze: :image).images
(expect images).to have_size 1
(expect images[0][:page_number]).to eql 1
(expect images[0][:width]).to eql 121.7
(expect images[0][:x]).to eql (column_right - images[0][:width])
end
it 'should align raster image to center of column when page columns are enabled' do
pdf_theme = {
page_columns: 2,
page_column_gap: 12,
thematic_break_border_color: '0000FF',
thematic_break_border_width: 1,
}
input = <<~'EOS'
left column
[.column]
<<<
---
image::tux.jpg[align=center,pdfwidth=50%]
EOS
lines = (to_pdf input, pdf_theme: pdf_theme, analyze: :line).lines
thematic_break_line = lines.find {|it| it[:color] == '0000FF' && it[:width] == 1 }
column_left = thematic_break_line[:from][:x]
column_right = thematic_break_line[:to][:x]
images = (to_pdf input, pdf_theme: pdf_theme, analyze: :image).images
(expect images).to have_size 1
(expect images[0][:page_number]).to eql 1
(expect images[0][:width]).to eql 121.7
(expect images[0][:x]).to be > column_left
(expect images[0][:x] + images[0][:width]).to be < column_right
end
end
context 'BMP' do
if defined? GMagick::Image
it 'should embed image if prawn-gmagick is available' do
pdf = to_pdf 'image::waterfall.bmp[Waterfall,240]', analyze: :image
(expect pdf.images).to have_size 1
image = pdf.images[0]
(expect image[:intrinsic_width]).to eql 240
(expect image[:width]).to eql 180.0
end
else
it 'should warn and replace block image with alt text if image format is unsupported' do
(expect do
pdf = to_pdf 'image::waterfall.bmp[Waterfall,240]', analyze: true
(expect pdf.lines).to eql ['[Waterfall] | waterfall.bmp']
end).to log_message severity: :WARN, message: '~could not embed image'
end
end
end
context 'GIF' do
if defined? GMagick::Image
it 'should embed block image if prawn-gmagick is available' do
pdf = to_pdf 'image::tux.gif[Tux]', analyze: :image
(expect pdf.images).to have_size 1
image = pdf.images[0]
(expect image[:intrinsic_width]).to eql 204
(expect image[:width]).to eql 153.0
end
it 'should embed inline image if prawn-gmagick is available' do
pdf = to_pdf 'image:tux.gif[Tux,16] is always a good sign.', analyze: :image
(expect pdf.images).to have_size 1
image = pdf.images[0]
(expect image[:intrinsic_width]).to eql 204
(expect image[:width]).to eql 12.0
end
it 'should warn and replace block image with alt text if image format is unsupported (emulated)' do
old_gmagick_image = GMagick.send :remove_const, :Image
(expect do
pdf = to_pdf 'image::tux.gif[Tux]', analyze: true
(expect pdf.lines).to eql ['[Tux] | tux.gif']
end).to log_message severity: :WARN, message: '~GIF image format not supported. Install the prawn-gmagick gem or convert tux.gif to PNG.'
ensure
GMagick.const_set :Image, old_gmagick_image
end
it 'should warn and replace inline image with alt text if image format is unsupported (emulated)' do
old_gmagick_image = GMagick.send :remove_const, :Image
(expect do
pdf = to_pdf 'image:tux.gif[Tux,16] is always a good sign.', analyze: true
(expect pdf.lines).to eql ['[Tux] is always a good sign.']
end).to log_message severity: :WARN, message: '~GIF image format not supported. Install the prawn-gmagick gem or convert tux.gif to PNG.'
ensure
GMagick.const_set :Image, old_gmagick_image
end
it 'should warn and replace inline image with alt text if image format is unrecognized (emulated)' do
old_gmagick_image = GMagick.send :remove_const, :Image
old_gmagick_can_render = Gmagick.singleton_method :can_render?
Gmagick.singleton_class.remove_method :can_render?
Gmagick.singleton_class.define_method :can_render? do |_image_blob|
false
end
(expect do
pdf = to_pdf 'image:waterfall.bmp[waterfall,16] is not agile.', analyze: true
(expect pdf.lines).to eql ['[waterfall] is not agile.']
end).to log_message severity: :WARN, message: '~image file is an unrecognised format; install prawn-gmagick gem to add support for BMP image format'
ensure
GMagick.const_set :Image, old_gmagick_image
Gmagick.singleton_class.remove_method :can_render?
Gmagick.singleton_class.define_method :can_render?, &old_gmagick_can_render
end
else
it 'should warn and replace block image with alt text if image format is unsupported' do
(expect do
pdf = to_pdf 'image::tux.gif[Tux]', analyze: true
(expect pdf.lines).to eql ['[Tux] | tux.gif']
end).to log_message severity: :WARN, message: '~GIF image format not supported. Install the prawn-gmagick gem or convert tux.gif to PNG.'
end
it 'should warn and replace inline image with alt text if image format is unsupported' do
(expect do
pdf = to_pdf 'image:tux.gif[Tux,16] is always a good sign.', analyze: true
(expect pdf.lines).to eql ['[Tux] is always a good sign.']
end).to log_message severity: :WARN, message: '~GIF image format not supported. Install the prawn-gmagick gem or convert tux.gif to PNG.'
end
end
end
context 'PDF' do
it 'should replace block macro with alt text if PDF is missing' do
(expect do
pdf = to_pdf 'image::missing.pdf[PDF insert]', analyze: true
(expect pdf.lines).to eql ['[PDF insert] | missing.pdf']
end).to log_message severity: :WARN, message: '~pdf to insert not found or not readable'
end
it 'should replace block macro with alt text if remote PDF is missing' do
image_url = nil
(expect do
pdf, image_url = with_local_webserver do |base_url|
target = %(#{base_url}/missing.pdf)
result = to_pdf %(image::#{target}[Remote PDF insert]), attribute_overrides: { 'allow-uri-read' => '' }, analyze: true
[result, target]
end
(expect pdf.lines).to eql [%([Remote PDF insert] | #{image_url})]
end).to log_message severity: :WARN, message: %(~could not retrieve remote image: #{image_url})
end
it 'should insert page at location of block macro if target is a PDF' do
pdf = to_pdf <<~'EOS', enable_footer: true, analyze: true
before
image::blue-letter.pdf[]
after
EOS
pages = pdf.pages
(expect pages).to have_size 3
(expect pages[0][:size]).to eql PDF::Core::PageGeometry::SIZES['A4']
(expect pages[0][:text][-1][:string]).to eql '1'
(expect pages[1][:size].map(&:to_f)).to eql PDF::Core::PageGeometry::SIZES['LETTER']
# NOTE: no running content on imported pages
(expect pages[1][:text]).to be_empty
(expect pages[2][:text][-1][:string]).to eql '3'
end
it 'should replace empty page at location of block macro if target is a PDF' do
pdf = to_pdf <<~'EOS', enable_footer: true, analyze: true
:page-background-image: image:bg.png[]
before
<<<
image::blue-letter.pdf[]
<<<
after
EOS
pages = pdf.pages
(expect pages).to have_size 3
(expect pages[0][:size]).to eql PDF::Core::PageGeometry::SIZES['A4']
(expect pages[0][:text][-1][:string]).to eql '1'
(expect pages[1][:size].map(&:to_f)).to eql PDF::Core::PageGeometry::SIZES['LETTER']
# NOTE: no running content on imported pages
(expect pages[1][:text]).to be_empty
(expect pages[2][:text][-1][:string]).to eql '3'
end
it 'should not break internal references when PDF is imported on first page' do
pdf = to_pdf <<~'EOS', enable_footer: true, attribute_overrides: { 'pdf-page-size' => 'Letter' }
image::blue-letter.pdf[]
see <>
<<<
== Section
go to <<__anchor-top,top>>
go to <>
<<<
[#last]
last
EOS
names = get_names pdf
(expect names).to have_size 3
(expect names.keys).to eql %w(__anchor-top _section last)
(expect (top_dest = get_dest pdf, '__anchor-top')).not_to be_nil
(expect top_dest[:page_number]).to be 1
(expect (last_dest = get_dest pdf, 'last')).not_to be_nil
(expect last_dest[:page_number]).to be 4
annotations = get_annotations pdf
(expect annotations).to have_size 3
(expect annotations.map {|it| it[:Dest] }).to eql %w(_section __anchor-top last)
end
it 'should only import first page of multi-page PDF file by default' do
pdf = to_pdf 'image::red-green-blue.pdf[]'
(expect pdf.pages).to have_size 1
page_contents = pdf.objects[(pdf.page 1).page_object[:Contents][0]].data
(expect (page_contents.split ?\n).slice 0, 3).to eql ['q', '/DeviceRGB cs', '1.0 0.0 0.0 scn']
end
it 'should import specified page from PDF file' do
pdf = to_pdf 'image::red-green-blue.pdf[page=2]'
(expect pdf.pages).to have_size 1
page_contents = pdf.objects[(pdf.page 1).page_object[:Contents][0]].data
(expect (page_contents.split ?\n).slice 0, 3).to eql ['q', '/DeviceRGB cs', '0.0 1.0 0.0 scn']
end
it 'should not insert blank page between consecutive PDF page imports' do
pdf = to_pdf <<~'EOS'
image::red-green-blue.pdf[page=1]
image::red-green-blue.pdf[page=2]
EOS
(expect pdf.pages).to have_size 2
p1_contents = pdf.objects[(pdf.page 1).page_object[:Contents][0]].data
(expect (p1_contents.split ?\n).slice 0, 3).to eql ['q', '/DeviceRGB cs', '1.0 0.0 0.0 scn']
p2_contents = pdf.objects[(pdf.page 2).page_object[:Contents][0]].data
(expect (p2_contents.split ?\n).slice 0, 3).to eql ['q', '/DeviceRGB cs', '0.0 1.0 0.0 scn']
end
it 'should insert all pages specified by pages attribute without leaving blank pages in between' do
['pages="3,1,2"', 'pages=3;1..2'].each do |pages_attr|
pdf = to_pdf <<~EOS
image::red-green-blue.pdf[#{pages_attr}]
EOS
(expect pdf.pages).to have_size 3
p1_contents = pdf.objects[(pdf.page 1).page_object[:Contents][0]].data
(expect (p1_contents.split ?\n).slice 0, 3).to eql ['q', '/DeviceRGB cs', '0.0 0.0 1.0 scn']
p2_contents = pdf.objects[(pdf.page 2).page_object[:Contents][0]].data
(expect (p2_contents.split ?\n).slice 0, 3).to eql ['q', '/DeviceRGB cs', '1.0 0.0 0.0 scn']
p3_contents = pdf.objects[(pdf.page 3).page_object[:Contents][0]].data
(expect (p3_contents.split ?\n).slice 0, 3).to eql ['q', '/DeviceRGB cs', '0.0 1.0 0.0 scn']
end
end
it 'should ignore page numbers not found in imported PDF' do
pdf = to_pdf <<~'EOS'
image::red-green-blue.pdf[pages=1..10]
EOS
(expect pdf.pages).to have_size 3
p1_contents = pdf.objects[(pdf.page 1).page_object[:Contents][0]].data
(expect (p1_contents.split ?\n).slice 0, 3).to eql ['q', '/DeviceRGB cs', '1.0 0.0 0.0 scn']
p2_contents = pdf.objects[(pdf.page 2).page_object[:Contents][0]].data
(expect (p2_contents.split ?\n).slice 0, 3).to eql ['q', '/DeviceRGB cs', '0.0 1.0 0.0 scn']
p3_contents = pdf.objects[(pdf.page 3).page_object[:Contents][0]].data
(expect (p3_contents.split ?\n).slice 0, 3).to eql ['q', '/DeviceRGB cs', '0.0 0.0 1.0 scn']
end
it 'should not create empty page if imported PDF has no pages' do
pdf = to_pdf <<~'EOS'
== Before
image::no-pages.pdf[]
== After
EOS
(expect pdf.pages).to have_size 2
(expect (pdf.page 2).text).to eql 'After'
outline = extract_outline pdf
(expect outline.find {|it| it[:title] == 'Before' }[:dest][:label]).to eql '1'
(expect outline.find {|it| it[:title] == 'After' }[:dest][:label]).to eql '2'
end
it 'should restore rotated margin after imported page' do
pdf = to_pdf <<~'EOS', analyze: true
:pdf-page-margin-rotated: 0
portrait
[page-layout=landscape]
<<<
landscape
image::blue-letter.pdf[]
landscape again
EOS
(expect pdf.pages).to have_size 4
(expect (pdf.find_unique_text 'landscape')[:x]).to eql 0.0
(expect (pdf.find_unique_text 'landscape again')[:x]).to eql 0.0
end
it 'should add destination to top of imported page if ID is specified' do
pdf = to_pdf <<~'EOS'
go to <>
.Red Page
[#red]
image::red-green-blue.pdf[page=1]
EOS
(expect get_names pdf).to have_key 'red'
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
(expect annotations[0][:Dest]).to eql 'red'
(expect (pdf.page 1).text).to include 'Red Page'
end
it 'should add destination to top of first import page if ID is specified' do
pdf = to_pdf <<~'EOS'
go to <>
.Red Page
[#red]
image::red-green-blue.pdf[pages=1..3]
EOS
(expect get_names pdf).to have_key 'red'
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
(expect annotations[0][:Dest]).to eql 'red'
(expect (pdf.page 1).text).to include 'Red Page'
end
it 'should restore anchor of hidden section title on imported page' do
pdf = to_pdf <<~'EOS'
= Document Title
:notitle:
:doctype: book
go to <>
[#blue%notitle]
== Blue Page
image::blue-letter.pdf[]
EOS
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
(expect annotations[0][:Dest]).to eql 'blue'
(expect (pdf.page 1).text).to include 'Blue Page'
(expect (pdf.page 2).text).not_to include 'Blue Page'
(expect get_names pdf).to have_key 'blue'
sect_dest = get_dest pdf, 'blue'
(expect sect_dest).not_to be_nil
(expect sect_dest[:page_number]).to eql 2
end
it 'should allow imported page to be referenced from TOC by way of notitle section' do
pdf = to_pdf <<~'EOS'
= Document Title
:doctype: book
:toc:
[#blue%notitle]
== Blue Page
image::blue-letter.pdf[]
EOS
toc_page = pdf.page 2
annotations = get_annotations pdf, 2
(expect annotations).to have_size 2
(expect annotations[0][:Dest]).to eql 'blue'
(expect annotations[1][:Dest]).to eql 'blue'
(expect toc_page.text).to include 'Blue Page'
(expect get_names pdf).to have_key 'blue'
sect_dest = get_dest pdf, 'blue'
(expect sect_dest).not_to be_nil
(expect sect_dest[:page_number]).to eql 3
end
end
context 'Data URI' do
it 'should embed block image if target is a JPG data URI' do
image_data = File.binread fixture_file 'square.jpg'
encoded_image_data = [image_data].pack 'm0'
pdf = to_pdf %(image::data:image/jpg;base64,#{encoded_image_data}[])
images = get_images pdf, 1
(expect images).to have_size 1
(expect images[0].hash[:Width]).to be 5
(expect images[0].hash[:Height]).to be 5
(expect images[0].data).to eql image_data
end
it 'should embed block image if target is an SVG data URI' do
image_data = File.read (fixture_file 'square.svg'), mode: 'r:UTF-8'
encoded_image_data = [image_data].pack 'm0'
pdf = to_pdf %(image::data:image/svg+xml;base64,#{encoded_image_data}[]), analyze: :rect
(expect pdf.rectangles).to have_size 1
end
it 'should embed inline image if target is a JPG data URI' do
image_data = File.binread fixture_file 'square.jpg'
encoded_image_data = [image_data].pack 'm0'
pdf = to_pdf %(image:data:image/jpg;base64,#{encoded_image_data}[] base64)
images = get_images pdf, 1
(expect images).to have_size 1
(expect images[0].hash[:Width]).to be 5
(expect images[0].hash[:Height]).to be 5
(expect images[0].data).to eql image_data
end
it 'should embed inline image if target is an SVG data URI' do
image_data = File.read (fixture_file 'square.svg'), mode: 'r:UTF-8'
encoded_image_data = [image_data].pack 'm0'
pdf = to_pdf %(image:data:image/svg+xml;base64,#{encoded_image_data}[]), analyze: :rect
(expect pdf.rectangles).to have_size 1
end
end
context 'Remote' do
it 'should warn and show alt text with URL if block image is remote and allow-uri-read is not set' do
(expect do
image_url = nil
pdf = with_local_webserver do |base_url|
image_url = %(#{base_url}/logo.png)
to_pdf %(image::#{image_url}[Remote Image]), analyze: true
end
(expect pdf.lines).to eql [%([Remote Image] | #{image_url})]
end).to log_message severity: :WARN, message: /^cannot embed remote image: .* \(allow-uri-read attribute not enabled\)$/
end
it 'should warn and show alt text if inline image is remote and allow-uri-read is not set' do
(expect do
image_url = nil
pdf = with_local_webserver do |base_url|
image_url = %(#{base_url}/logo.png)
to_pdf %(Observe image:#{image_url}[Remote Image]), analyze: true
end
(expect pdf.lines).to eql ['Observe [Remote Image]']
end).to log_message severity: :WARN, message: /^cannot embed remote image: .* \(allow-uri-read attribute not enabled\)$/
end
it 'should read remote image if allow-uri-read is set' do
converter, pdf = with_local_webserver do |base_url|
doc = to_pdf %(image::#{base_url}/logo.png[Remote Image]), analyze: :document, to_file: (pdf_io = StringIO.new), attribute_overrides: { 'allow-uri-read' => '' }
[doc.converter, (PDF::Reader.new pdf_io)]
end
images = get_images pdf, 1
(expect images).to have_size 1
(expect (pdf.page 1).text).to be_empty
# NOTE: we could assert no log messages instead, but that assumes the remove_tmp_files method is even called
(expect converter.instance_variable_get :@tmp_files).to be_empty
end
it 'should read image if allow-uri-read is set and imagesdir is a URL' do
pdf = with_local_webserver do |base_url|
to_pdf %(image::logo.png[Remote Image]), attribute_overrides: { 'allow-uri-read' => '', 'imagesdir' => %(#{base_url}/) }
end
images = get_images pdf, 1
(expect images).to have_size 1
(expect (pdf.page 1).text).to be_empty
end
it 'should read remote image with no file extension if allow-uri-read is set' do
FileUtils.cp (fixture_file 'logo.png'), (fixture_file 'logo')
pdf = with_local_webserver do |base_url|
to_pdf %(image::#{base_url}/logo[Remote Image]), attribute_overrides: { 'allow-uri-read' => '' }
end
images = get_images pdf, 1
(expect images).to have_size 1
(expect images[0].hash[:Filter]).to eql [:FlateDecode]
(expect (pdf.page 1).text).to be_empty
ensure
File.unlink fixture_file 'logo'
end
it 'should only read remote image once if allow-uri-read is set' do
pdf = with_local_webserver do |base_url, thr|
image_macro = %(image::#{base_url}/logo.png[Remote Image])
result = to_pdf <<~EOS, attribute_overrides: { 'allow-uri-read' => '' }
#{image_macro}
====
#{image_macro}
====
EOS
requests = thr[:requests]
(expect requests).to have_size 1
(expect requests[0]).to include '/logo.png'
result
end
images = get_images pdf, 1
(expect images).to have_size 2
(expect (pdf.page 1).text).to be_empty
end
it 'should only read missing remote image once if allow-uri-read is set' do
with_local_webserver do |base_url, thr|
image_url = %(#{base_url}/no-such-image.png)
(expect do
image_macro = %(image::#{image_url}[Remote Image])
pdf = to_pdf <<~EOS, attribute_overrides: { 'allow-uri-read' => '' }
#{image_macro}
====
#{image_macro}
====
EOS
requests = thr[:requests]
(expect requests).to have_size 1
(expect requests[0]).to include '/no-such-image.png'
images = get_images pdf, 1
(expect images).to have_size 0
text = (pdf.page 1).text
(expect (text.scan %([Remote Image] | #{image_url})).size).to eql 2
end).to log_message severity: :WARN, message: %(~could not retrieve remote image: #{image_url}; 404 Not Found)
end
end
it 'should read same remote image for each unique query string if allow-uri-read is set' do
with_local_webserver do |base_url, thr|
pdf = to_pdf <<~EOS, attribute_overrides: { 'allow-uri-read' => '' }
image::#{base_url}/logo.png?v=1[Remote Image,format=png]
image::#{base_url}/logo.png?v=2[Remote Image,format=png]
EOS
requests = thr[:requests]
(expect requests).to have_size 2
(expect requests[0]).to include '/logo.png?v=1'
(expect requests[1]).to include '/logo.png?v=2'
images = get_images pdf, 1
(expect images).to have_size 2
(expect (pdf.page 1).text).to be_empty
end
end
it 'should only read remote image once if used in both main and running content if allow-uri-read is set' do
pdf = with_local_webserver do |base_url, thr|
pdf_theme = {
header_height: 30,
header_columns: '=100%',
header_recto_center_content: %(image:#{base_url}/logo.png[Remote Image]),
footer_columns: '=100%',
footer_recto_center_content: %(image:#{base_url}/logo.png[Remote Image]),
}
result = to_pdf <<~EOS, pdf_theme: pdf_theme, enable_footer: true, attribute_overrides: { 'allow-uri-read' => '' }
image::#{base_url}/logo.png[Remote Image]
EOS
requests = thr[:requests]
(expect requests).to have_size 1
(expect requests[0]).to include '/logo.png'
result
end
images = get_images pdf, 1
(expect images).to have_size 3
(expect (pdf.page 1).text).to be_empty
end
it 'should read remote image over HTTPS if allow-uri-read is set', network: true do
pdf = to_pdf 'image::https://cdn.jsdelivr.net/gh/asciidoctor/asciidoctor-pdf@v1.6.2/spec/fixtures/logo.png[Remote Image]', attribute_overrides: { 'allow-uri-read' => '' }
images = get_images pdf, 1
(expect images).to have_size 1
(expect (pdf.page 1).text).to be_empty
end
it 'should log warning if remote image cannot be fetched' do
with_local_webserver do |base_url|
image_url = %(#{base_url}/no-such-image.png)
(expect do
pdf = to_pdf %(image::#{image_url}[No Such Image]), attribute_overrides: { 'allow-uri-read' => '' }, analyze: true
(expect pdf.lines).to eql [%([No Such Image] | #{image_url})]
end).to log_message severity: :WARN, message: %(~could not retrieve remote image: #{image_url}; 404 Not Found)
end
end
it 'should use image format specified by format attribute' do
pdf = with_local_webserver do |base_url|
to_pdf <<~EOS, attribute_overrides: { 'allow-uri-read' => '' }, analyze: :rect
:pdf-page-size: 200x400
:pdf-page-margin: 0
image::#{base_url}/square.svg?v=1[format=svg,pdfwidth=100%]
EOS
end
(expect pdf.rectangles).to have_size 1
rect = pdf.rectangles[0]
(expect rect[:point]).to eql [0.0, 200.0]
(expect rect[:width]).to eql 200.0
(expect rect[:height]).to eql 200.0
end
it 'should not inherit format from document' do
(expect do
FileUtils.cp (fixture_file 'square.svg'), (fixture_file 'square')
pdf = with_local_webserver do |base_url|
to_pdf <<~EOS, attribute_overrides: { 'allow-uri-read' => '' }, analyze: :rect
:pdf-page-size: 200x400
:pdf-page-margin: 0
:format: svg
image::#{base_url}/square[pdfwidth=100%]
EOS
ensure
File.unlink fixture_file 'square'
end
(expect pdf.rectangles).to be_empty
end).to log_message severity: :WARN, message: %(~image file is an unrecognised format)
end
context 'Cache', if: (RSpec::ExampleGroupHelpers.gem_available? 'open-uri-cached'), &(proc do
before :context do # rubocop:disable RSpec/BeforeAfterAll
(expect defined? OpenURI::Cache).to be_falsy # rubocop:disable RSpec/ExpectInHook
with_local_webserver do |base_url|
to_pdf %(image::#{base_url}/logo.png[]), attribute_overrides: { 'allow-uri-read' => '', 'cache-uri' => '' }
end
(expect defined? OpenURI::Cache).to be_truthy # rubocop:disable RSpec/ExpectInHook
OpenURI::Cache.cache_path = output_file 'open-uri-cache'
end
after :context do # rubocop:disable RSpec/BeforeAfterAll
OpenURI.singleton_class.send :remove_method, :open_uri
OpenURI.singleton_class.send :alias_method, :open_uri, :original_open_uri
end
before do
(Pathname.new OpenURI::Cache.cache_path).rmtree secure: true
end
it 'should cache remote image if cache-uri document attribute is set' do
with_local_webserver do |base_url, thr|
image_url = %(#{base_url}/logo.png)
(expect OpenURI::Cache.get image_url).to be_nil
2.times do
pdf = to_pdf %(image::#{image_url}[Remote Image]), attribute_overrides: { 'allow-uri-read' => '', 'cache-uri' => '' }
requests = thr[:requests]
(expect requests).to have_size 1
(expect requests[0]).to include '/logo.png'
(expect OpenURI::Cache.get image_url).not_to be_nil
images = get_images pdf, 1
(expect images).to have_size 1
(expect (pdf.page 1).text).to be_empty
end
OpenURI::Cache.invalidate image_url
end
end
end)
end
context 'Inline' do
it 'should resolve target of inline image relative to imagesdir', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-inline.pdf', attribute_overrides: { 'imagesdir' => examples_dir }
image:sample-logo.jpg[ACME,12] ACME products are the best!
EOS
(expect to_file).to visually_match 'image-inline.pdf'
end
it 'should replace inline image with alt text if image is missing' do
(expect do
pdf = to_pdf 'You cannot see that which is image:not-there.png[not there].', analyze: true
(expect pdf.lines).to eql ['You cannot see that which is [not there].']
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
end
it 'should not fail to parse inline image if alt text contains a double quote character' do
(expect do
pdf = to_pdf 'Look for image:logo.png[the "no cow" brand] when you buy.', analyze: :image
(expect pdf.images).to have_size 1
end).to not_log_message
end
it 'should only render inline image once if alt text is chunked to apply a fallback font' do
pdf = to_pdf <<~'EOS', attribute_overrides: { 'imagesdir' => examples_dir, 'pdf-theme' => 'default-with-font-fallbacks' }, analyze: :image
How many wolpertingers do you see? +
image:wolpertinger.jpg[チのデータレプリケーションです。]
EOS
(expect pdf.images).to have_size 1
end
it 'should warn instead of crash if inline image is unreadable', unless: (windows? || Process.euid == 0) do
image_file = Pathname.new fixture_file 'logo.png'
(expect do
old_mode = image_file.stat.mode
image_file.chmod 0o000
pdf = to_pdf 'image:logo.png[Unreadable Image,16] Company Name', analyze: true
(expect pdf.lines).to eql ['[Unreadable Image] Company Name']
ensure
image_file.chmod old_mode
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
end
# NOTE: this test also verifies space is allocated for an inline image at the start of a line
it 'should convert multiple images on the same line', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-multiple-inline.pdf'
image:logo.png[Asciidoctor,12] is developed on image:tux.png[Linux,12].
EOS
(expect to_file).to visually_match 'image-multiple-inline.pdf'
end
it 'should not mangle character spacing in line if inline image wraps', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-wrap-inline.pdf'
[cols="30e,58,12",width=75%]
|===
|Name |Description |Min # data points
|Confidence interval of the mean
|The confidence interval of the mean is image:equation.svg[width=118], where image:symbol-m.svg[width=11] is the mean, image:symbol-s.svg[width=6] is the estimated sample standard deviation, and so on.
|2
|Confidence interval of the mean
a|The confidence interval of the mean is image:equation.svg[width=118], where image:symbol-m.svg[width=11] is the mean, image:symbol-s.svg[width=6] is the estimated sample standard deviation, and so on.
|2
|===
EOS
(expect to_file).to visually_match 'image-wrap-inline.pdf'
end
it 'should not warn about missing image placeholder char in fallback font when image is advanced to next page' do
(expect do
filler = %w(filler) * 26 * %(\n\n)
pdf = to_pdf <<~EOS, pdf_theme: { extends: 'default-with-font-fallbacks' }
#{filler}
#{'x' * 200} Look for the image:square.png[].
EOS
(expect pdf.pages).to have_size 2
(expect get_images pdf).to have_size 1
(expect (get_images pdf, 1)).to be_empty
(expect (get_images pdf, 2)).to have_size 1
pdf.pages.each do |page|
(expect page.text).not_to include ?\u2063
end
end).to not_log_message using_log_level: :INFO
end
it 'should increase line height if height if image height is more than 1.5x line height', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-inline-extends-line-height.pdf'
see tux run +
see image:tux.png[tux] run +
see tux run
EOS
(expect to_file).to visually_match 'image-inline-extends-line-height.pdf'
end
it 'should not increase line height if image height does not exceed 1.5x line height' do
pdf = to_pdf <<~'EOS', analyze: true
see tux run +
see tux run +
see image:tux.png[tux,24] run
EOS
text = pdf.text
line1_spacing = (text[0][:y] - text[1][:y]).round 2
line2_spacing = (text[1][:y] - text[2][:y]).round 2
(expect line1_spacing).to eql line2_spacing
end
it 'should scale image down to fit available height on next page', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-inline-pushed-scale-down-height.pdf'
:pdf-page-size: A6
:pdf-page-layout: landscape
before
image:cover.jpg[]
EOS
to_file = to_pdf_file %(image::#{to_file}[page=2]), 'image-inline-pushed-scale-down-height-2.pdf'
(expect to_file).to visually_match 'image-inline-scale-down-height.pdf'
end
it 'should not warn about missing image placeholder char in AFM font when image is advanced to next page' do
(expect do
pdf = to_pdf <<~'EOS', attribute_overrides: { 'pdf-theme' => 'base' }
:pdf-page-size: A6
:pdf-page-layout: landscape
before
image:square.png[pdfwidth=7cm]
EOS
(expect pdf.pages).to have_size 2
(expect get_images pdf).to have_size 1
(expect (get_images pdf, 1)).to be_empty
(expect (get_images pdf, 2)).to have_size 1
pdf.pages.each do |page|
(expect page.text).not_to include ?\u2063
end
end).to not_log_message using_log_level: :INFO
end
it 'should scale image down to fit available height inside delimited block', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-inline-in-block-scale-down-height.pdf'
:pdf-page-size: A6
:pdf-page-layout: landscape
****
image:cover.jpg[]
****
EOS
(expect to_file).to visually_match 'image-inline-in-block-scale-down-height.pdf'
end
it 'should not scale image if pdfwidth matches intrinsic width' do
pdf = to_pdf <<~'EOS', analyze: :image
see image:tux.png[pdfwidth=204] run
EOS
images = pdf.images
(expect images).to have_size 1
image = images[0]
(expect image[:width]).to eql image[:intrinsic_width].to_f
(expect image[:height]).to eql image[:intrinsic_height].to_f
end
it 'should scale image down to fit available height', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-inline-scale-down-height.pdf'
:pdf-page-size: A6
:pdf-page-layout: landscape
image:cover.jpg[]
EOS
(expect to_file).to visually_match 'image-inline-scale-down-height.pdf'
end
it 'should scale image down to fit available width', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-inline-scale-down-width.pdf'
:pdf-page-size: A6
image:cover.jpg[]
EOS
(expect to_file).to visually_match 'image-inline-scale-down-width.pdf'
end
it 'should compute scaled width relative to container size' do
midpoint = (get_page_size to_pdf 'body', analyze: true)[0] * 0.5
input = <<~'EOS'
****
====
******
========
left
image:tux.png[scaledwidth=50%]midpoint
========
******
====
****
EOS
pdf = to_pdf input, analyze: true
midpoint_text = pdf.find_unique_text 'midpoint'
(expect midpoint_text[:x]).to eql midpoint
left_text = pdf.find_unique_text 'left'
pdf = to_pdf input, analyze: :image
images = pdf.images
(expect images).to have_size 1
image = images[0]
(expect image[:x]).to eql left_text[:x]
(expect image[:width]).to eql ((midpoint_text[:x] - left_text[:x]).round 2)
end
it 'should scale image down to fit line if fit=line', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-inline-fit-line.pdf'
See image:tux.png[fit=line] run.
EOS
(expect to_file).to visually_match 'image-inline-fit-line.pdf'
end
it 'should not alter character spacing of text in inline SVG image', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-inline-svg-with-text.pdf'
before image:svg-with-text.svg[width=200] after
EOS
(expect to_file).to visually_match 'image-inline-svg-with-text.pdf'
end
it 'should size inline image with percentage width relative to page width' do
pdf = to_pdf 'see image:tux.png[,50%] run', attribute_overrides: { 'pdf-page-size' => 'Letter' }, analyze: :image
expected_width = (8.5 * 72 - (0.67 * 2 * 72)) * 0.5
images = pdf.images
(expect images).to have_size 1
image = images[0]
(expect image[:width]).to eql expected_width
end
it 'should not fail to parse raw image HTML if width attribute not specified' do
pdf = to_pdf <<~EOS, analyze: :image
Look for pass:[] when you buy.
EOS
images = pdf.images
(expect images).to have_size 1
(expect images[0][:width]).to eql 498.8
end
it 'should use intrinsic width if value of width is not numeric', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-inline-intrinsic-width.pdf', attribute_overrides: { 'imagesdir' => examples_dir }
image:wolpertinger.jpg[,invalid]
EOS
(expect to_file).to visually_match 'image-inline-intrinsic-width.pdf'
end
end
context 'Link' do
it 'should add link around block raster image if link attribute is set' do
pdf = to_pdf <<~'EOS'
image::tux.png[pdfwidth=1in,link=https://www.linuxfoundation.org/projects/linux/]
EOS
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
link_annotation = annotations[0]
(expect link_annotation[:Subtype]).to be :Link
(expect link_annotation[:A][:URI]).to eql 'https://www.linuxfoundation.org/projects/linux/'
link_rect = link_annotation[:Rect]
(expect (link_rect[2] - link_rect[0]).round 1).to eql 72.0
(expect (link_rect[3] - link_rect[1]).round 1).to eql 84.7
(expect link_rect[0]).to eql 48.24
end
it 'should add link around block image aligned to right' do
input = 'image::tux.png[pdfwidth=1in,link=https://www.linuxfoundation.org/projects/linux/,align=right]'
pdf = to_pdf input
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
link_annotation = annotations[0]
(expect link_annotation[:Subtype]).to be :Link
(expect link_annotation[:A][:URI]).to eql 'https://www.linuxfoundation.org/projects/linux/'
link_rect = link_annotation[:Rect]
link_coords = { x: link_rect[0], y: link_rect[3], width: ((link_rect[2] - link_rect[0]).round 5), height: ((link_rect[3] - link_rect[1]).round 5) }
pdf = to_pdf input, analyze: :image
image = pdf.images[0]
image_coords = { x: image[:x], y: image[:y], width: image[:width], height: image[:height] }
(expect link_coords).to eql image_coords
end
it 'should add link around block SVG image if link attribute is set' do
pdf = to_pdf <<~'EOS'
image::square.svg[pdfwidth=1in,link=https://example.org]
EOS
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
link_annotation = annotations[0]
(expect link_annotation[:Subtype]).to be :Link
(expect link_annotation[:A][:URI]).to eql 'https://example.org'
link_rect = link_annotation[:Rect]
(expect (link_rect[2] - link_rect[0]).round 1).to eql 72.0
(expect (link_rect[3] - link_rect[1]).round 1).to eql 72.0
(expect link_rect[0]).to eql 48.24
end
it 'should use link in alt text if image is missing' do
(expect do
pdf = to_pdf 'image::no-such-image.png[Missing Image,link=https://example.org]'
text = (pdf.page 1).text
(expect text).to eql '[Missing Image] | no-such-image.png'
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
link_annotation = annotations[0]
(expect link_annotation[:Subtype]).to be :Link
(expect link_annotation[:A][:URI]).to eql 'https://example.org'
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
end
it 'should add link around inline image if link attribute is set' do
pdf = to_pdf <<~'EOS', attribute_overrides: { 'imagesdir' => examples_dir }
image:sample-logo.jpg[ACME,pdfwidth=1pc,link=https://example.org] is a sign of quality!
EOS
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
link_annotation = annotations[0]
(expect link_annotation[:Subtype]).to be :Link
(expect link_annotation[:A][:URI]).to eql 'https://example.org'
link_rect = link_annotation[:Rect]
(expect (link_rect[2] - link_rect[0]).round 1).to eql 12.0
(expect (link_rect[3] - link_rect[1]).round 1).to eql 14.3
(expect link_rect[0]).to eql 48.24
end
it 'should add link around alt text of inline image if link attribute is set and image is not found' do
input = <<~'EOS'
image:sample-logo.jpg[ACME,pdfwidth=1pc,link=https://example.org] is a sign of quality!
EOS
pdf = nil
(expect do
pdf = to_pdf input
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
link_annotation = annotations[0]
(expect link_annotation[:Subtype]).to be :Link
(expect link_annotation[:A][:URI]).to eql 'https://example.org'
(expect do
pdf = to_pdf input, analyze: true
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
link_text = pdf.find_unique_text '[ACME]'
(expect link_text).not_to be_nil
(expect link_annotation).to annotate link_text
end
it 'should add link around inline image if image macro is enclosed in link macro' do
pdf = to_pdf <<~'EOS', attribute_overrides: { 'imagesdir' => examples_dir }
https://example.org[image:sample-logo.jpg[ACME,pdfwidth=1pc]] is a sign of quality!
EOS
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
link_annotation = annotations[0]
(expect link_annotation[:Subtype]).to be :Link
(expect link_annotation[:A][:URI]).to eql 'https://example.org'
link_rect = link_annotation[:Rect]
(expect (link_rect[2] - link_rect[0]).round 1).to eql 12.0
(expect (link_rect[3] - link_rect[1]).round 1).to eql 14.3
(expect link_rect[0]).to eql 48.24
end
end
context 'Caption' do
it 'should render caption under an image with a title' do
input = <<~'EOS'
.Tux, the Linux mascot
image::tux.png[tux]
EOS
pdf = to_pdf input, analyze: :image
images = pdf.images
(expect images).to have_size 1
image_bottom = images[0][:y] - images[0][:height]
pdf = to_pdf input, analyze: true
text = pdf.text
(expect text).to have_size 1
caption_text = text[0]
(expect caption_text[:string]).to eql 'Figure 1. Tux, the Linux mascot'
(expect caption_text[:font_name]).to eql 'NotoSerif-Italic'
(expect caption_text[:y]).to be < image_bottom
end
it 'should render caption above an image with a title when image_caption_end is top' do
pdf_theme = { image_caption_end: 'top' }
input = <<~'EOS'
.Tux, the Linux mascot
image::tux.png[tux]
EOS
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: :image
images = pdf.images
(expect images).to have_size 1
image_top = images[0][:y]
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: true
text = pdf.text
(expect text).to have_size 1
caption_text = text[0]
(expect caption_text[:string]).to eql 'Figure 1. Tux, the Linux mascot'
(expect caption_text[:font_name]).to eql 'NotoSerif-Italic'
(expect caption_text[:y]).to be > image_top
end
it 'should not duplicate footnote in a caption' do
input = <<~'EOS'
.Tux, the Linux mascotfootnote:[The one and only.]
image::tux.png[tux]
EOS
pdf = to_pdf input, analyze: true
expected_lines = ['Figure 1. Tux, the Linux mascot[1]', '[1] The one and only.']
(expect pdf.lines pdf.text).to eql expected_lines
pdf = to_pdf input
annotations = get_annotations pdf, 1
(expect annotations).to have_size 2
footnote_label_y = annotations[0][:Rect][3]
footnote_item_y = annotations[1][:Rect][3]
(expect (footnoteref_dest = get_dest pdf, '_footnoteref_1')).not_to be_nil
(expect footnote_label_y - footnoteref_dest[:y]).to be < 1
(expect (footnotedef_dest = get_dest pdf, '_footnotedef_1')).not_to be_nil
(expect footnotedef_dest[:y]).to eql footnote_item_y
end
it 'should show caption for missing image' do
(expect do
pdf = to_pdf <<~'EOS', analyze: true
.A missing image
image::no-such-image.png[Missing Image]
EOS
(expect pdf.lines).to eql ['[Missing Image] | no-such-image.png', 'Figure 1. A missing image']
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
end
it 'should keep caption on same page as image when image exceeds height of page' do
pdf = to_pdf <<~'EOS'
before image
.Image caption
image::tall-diagram.png[Tall diagram]
EOS
(expect pdf.pages).to have_size 2
(expect get_images pdf, 2).to have_size 1
(expect pdf.pages[1].text).to eql 'Figure 1. Image caption'
end
it 'should keep caption on same page as image when image exceeds height of page and image_caption_end is top' do
pdf_theme = { image_caption_end: 'top' }
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme
before image
.Image caption
image::tall-diagram.png[Tall diagram]
EOS
(expect pdf.pages).to have_size 2
(expect get_images pdf, 2).to have_size 1
(expect pdf.pages[1].text).to eql 'Figure 1. Image caption'
end
it 'should raise error if caption does not fit on a single page' do
(expect do
caption = (['excessive caption'] * 300).join ' '
to_pdf <<~EOS
before image
.#{caption}
image::tall-diagram.png[Tall diagram]
EOS
end).to raise_exception Prawn::Errors::CannotFit
end
it 'should scale down SVG at top of page to fit image and caption if dimensions exceed page size', visual: true do
to_file = to_pdf_file <<~EOS, 'image-svg-with-caption-scale-to-fit-page.pdf'
:pdf-page-size: Letter
.#{(['title text'] * 15).join ' '}
image::watermark.svg[pdfwidth=100%]
EOS
(expect to_file).to visually_match 'image-svg-with-caption-scale-to-fit-page.pdf'
end
it 'should set caption align to image align if theme sets caption align to inherit' do
pdf_theme = {
image_caption_align: 'inherit',
}
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, attribute_overrides: { 'imagesdir' => examples_dir }, analyze: true
.Behold, the great Wolpertinger!
image::wolpertinger.jpg[,144,align=right]
EOS
midpoint = (get_page_size pdf)[0] * 0.5
(expect pdf.text[0][:x]).to be > midpoint
end
it 'should restrict caption width to specified percentage of available width if max-width is percentage value' do
pdf_theme = {
image_caption_align: 'center',
image_caption_max_width: '25%',
}
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, analyze: true
.This is a picture of our beloved Tux.
image::tux.png[]
EOS
midpoint = (get_page_size pdf, 1)[0] * 0.5
(expect pdf.lines).to eql ['Figure 1. This is a picture', 'of our beloved Tux.']
first_line_text, second_line_text = pdf.text
(expect first_line_text[:x]).to be > 48.24
(expect first_line_text[:x] + first_line_text[:width]).to be > midpoint
(expect second_line_text[:x]).to be > first_line_text[:x]
end
it 'should restrict caption width to width of image if max-width is fit-content' do
pdf_theme = {
image_caption_align: 'inherit',
image_caption_max_width: 'fit-content',
}
input = <<~'EOS'
.This is a picture of our beloved Tux.
image::tux.png[align=right]
EOS
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: :image
images = pdf.images
(expect images).to have_size 1
tux_image = images[0]
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: true
caption_texts = pdf.text
(expect caption_texts).to have_size 2
caption_text_l1, caption_text_l2 = caption_texts
(expect caption_text_l1[:y]).to be > caption_text_l2[:y]
(expect caption_text_l1[:string]).to start_with 'Figure 1.'
(expect caption_text_l1[:width]).to be < tux_image[:width]
(expect caption_text_l2[:width]).to be < tux_image[:width]
(expect caption_text_l1[:x]).to be > tux_image[:x]
(expect caption_text_l2[:x]).to be > caption_text_l1[:x]
(expect caption_text_l1[:x] + caption_text_l1[:width]).to be_within(1).of caption_text_l2[:x] + caption_text_l2[:width]
end
it 'should configure caption width to fit image width if float attribute is set on image' do
input = <<~'EOS'
.This is a picture of our beloved Tux.
image::tux.png[align=right,float=right]
EOS
tux_image = (to_pdf input, analyze: :image).images[0]
pdf = to_pdf input, analyze: true
caption_texts = pdf.text
(expect caption_texts).to have_size 2
caption_text_l1, caption_text_l2 = caption_texts
(expect caption_text_l1[:y]).to be > caption_text_l2[:y]
(expect caption_text_l1[:string]).to start_with 'Figure 1.'
(expect caption_text_l1[:width]).to be < tux_image[:width]
(expect caption_text_l2[:width]).to be < tux_image[:width]
(expect caption_text_l1[:x]).to eql tux_image[:x]
(expect caption_text_l2[:x]).to eql caption_text_l1[:x]
end
it 'should not change caption width if float attribute is set on image and caption max width is fit-content' do
pdf_theme = { image_caption_align: 'inherit', image_caption_max_width: 'fit-content(50%)' }
input = <<~'EOS'
.This is a picture of our beloved Tux.
image::tux.png[align=right,float=right]
EOS
tux_image = (to_pdf input, pdf_theme: pdf_theme, analyze: :image).images[0]
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: true
caption_texts = pdf.text
(expect caption_texts).to have_size 3
caption_text_l1, caption_text_l2, caption_text_l3 = caption_texts
(expect caption_text_l1[:y]).to be > caption_text_l2[:y]
(expect caption_text_l2[:y]).to be > caption_text_l3[:y]
(expect caption_text_l1[:string]).to start_with 'Figure 1.'
(expect caption_text_l1[:width]).to be < (tux_image[:width] * 0.5)
(expect caption_text_l2[:width]).to be < (tux_image[:width] * 0.5)
(expect caption_text_l3[:width]).to be < (tux_image[:width] * 0.5)
(expect caption_text_l1[:x]).to be > (tux_image[:x] + tux_image[:width] * 0.5)
end
it 'should restrict caption width to percentage of image width if max-width is fit-content function' do
pdf_theme = {
image_caption_align: 'inherit',
image_caption_max_width: 'fit-content(50%)',
}
input = <<~'EOS'
.This is a picture of our beloved Tux.
image::tux.png[align=right]
EOS
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: true
caption_texts = pdf.text
(expect caption_texts).to have_size 3
(expect caption_texts[0][:width]).to be < 75.0
(expect caption_texts[1][:width]).to be < 75.0
(expect caption_texts[2][:width]).to be < 75.0
end
it 'should align caption within width of image if alignment is fixed and max-width is fit-content' do
pdf_theme = {
image_caption_align: 'left',
image_caption_max_width: 'fit-content',
}
input = <<~'EOS'
.This is a picture of our beloved Tux.
image::tux.png[align=right]
EOS
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: :image
images = pdf.images
(expect images).to have_size 1
tux_image = images[0]
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: true
caption_texts = pdf.text
(expect caption_texts).to have_size 2
caption_text_l1, caption_text_l2 = caption_texts
(expect caption_text_l1[:y]).to be > caption_text_l2[:y]
(expect caption_text_l1[:string]).to start_with 'Figure 1.'
(expect caption_text_l1[:width]).to be < tux_image[:width]
(expect caption_text_l2[:width]).to be < tux_image[:width]
(expect caption_text_l1[:x]).to eql tux_image[:x]
(expect caption_text_l2[:x]).to eql caption_text_l1[:x]
end
it 'should align caption within width of image if alignment is fixed and max-width is percentage of image width' do
pdf_theme = {
image_caption_align: 'left',
image_caption_max_width: 'fit-content(50%)',
}
input = <<~'EOS'
.This is a picture of our beloved Tux.
image::tux.png[align=right]
EOS
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: :image
images = pdf.images
(expect images).to have_size 1
tux_image = images[0]
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: true
caption_texts = pdf.text
(expect caption_texts).to have_size 3
caption_text_l1, caption_text_l2, caption_text_l3 = caption_texts
(expect caption_text_l1[:y]).to be > caption_text_l2[:y]
(expect caption_text_l2[:y]).to be > caption_text_l3[:y]
(expect caption_text_l1[:string]).to start_with 'Figure 1.'
(expect caption_text_l1[:width]).to be < tux_image[:width] * 0.5
(expect caption_text_l2[:width]).to be < tux_image[:width] * 0.5
(expect caption_text_l3[:width]).to be < tux_image[:width] * 0.5
(expect caption_text_l1[:x]).to eql tux_image[:x]
(expect caption_text_l2[:x]).to eql caption_text_l1[:x]
(expect caption_text_l3[:x]).to eql caption_text_l2[:x]
end
end
context 'Border' do
it 'should not draw border if color is transparent' do
pdf_theme = {
image_border_width: 0.5,
image_border_color: 'transparent',
}
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, analyze: :line
.Tux
image::tux.png[align=center]
EOS
(expect pdf.lines).to be_empty
end
# NOTE: tests center alignment
it 'should draw border around PNG image if border width and border color are set in the theme', visual: true do
pdf_theme = {
image_border_width: 0.5,
image_border_color: 'DDDDDD',
image_border_radius: 2,
}
to_file = to_pdf_file <<~'EOS', 'image-border.pdf', pdf_theme: pdf_theme
.Tux
image::tux.png[align=center]
EOS
(expect to_file).to visually_match 'image-border.pdf'
end
it 'should draw border around left-aligned PNG image if border width and border color are set in the theme', visual: true do
pdf_theme = {
image_border_width: 0.5,
image_border_color: '5D5D5D',
}
to_file = to_pdf_file <<~'EOS', 'image-border-align-left.pdf', pdf_theme: pdf_theme
.Tux
image::tux.png[]
EOS
(expect to_file).to visually_match 'image-border-align-left.pdf'
end
it 'should stretch border around PNG image to bounds if border fit key is auto', visual: true do
pdf_theme = {
image_border_width: 0.5,
image_border_color: 'DDDDDD',
image_border_radius: 2,
image_border_fit: 'auto',
}
to_file = to_pdf_file <<~'EOS', 'image-border-fit-page.pdf', pdf_theme: pdf_theme
.Tux
image::tux.png[align=center]
EOS
(expect to_file).to visually_match 'image-border-fit-page.pdf'
end
# NOTE: tests right alignment
it 'should draw border around SVG if border width and border color are set in the theme', visual: true do
pdf_theme = {
image_border_width: 1,
image_border_color: '000000',
}
to_file = to_pdf_file <<~'EOS', 'image-svg-border.pdf', pdf_theme: pdf_theme
.Square
image::square.svg[align=right,pdfwidth=25%]
EOS
(expect to_file).to visually_match 'image-svg-border.pdf'
end
it 'should stretch border around SVG to bounds if border fit key is auto', visual: true do
pdf_theme = {
image_border_width: 1,
image_border_color: '000000',
image_border_fit: 'auto',
}
to_file = to_pdf_file <<~'EOS', 'image-svg-border-fit-page.pdf', pdf_theme: pdf_theme
.Square
image::square.svg[align=center,pdfwidth=25%]
EOS
(expect to_file).to visually_match 'image-svg-border-fit-page.pdf'
end
it 'should not draw border around raster image if noborder role is present', visual: true do
pdf_theme = {
image_border_width: 1,
image_border_color: '000000',
}
to_file = to_pdf_file <<~'EOS', 'image-raster-noborder.pdf', pdf_theme: pdf_theme, attribute_overrides: { 'imagesdir' => examples_dir }
image::wolpertinger.jpg[,144,role=specimen noborder]
EOS
(expect to_file).to visually_match 'image-wolpertinger.pdf'
end
it 'should not draw border around SVG image if noborder role is present' do
pdf_theme = {
image_border_width: 1,
image_border_color: 'DEDEDE',
}
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, analyze: :line
image::square-viewbox-only.svg[role=noborder]
EOS
(expect pdf.lines.select {|it| it[:color] == 'DEDEDE' }).to be_empty
end
it 'should allow border on block image to be specified per edge' do
pdf_theme = {
image_border_width: [1, 2, 3, 4],
image_border_color: 'DEDEDE',
}
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, analyze: :line
image::square.png[]
EOS
lines = pdf.lines
(expect lines).to have_size 4
(expect lines.map {|it| it[:width] }.sort).to eql [1, 2, 3, 4]
(expect lines.map {|it| it[:color] }.uniq).to eql %w(DEDEDE)
end
it 'should allow border on block image to be specified on ends and sides' do
pdf_theme = {
image_border_width: [4, 1],
image_border_color: 'DEDEDE',
}
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, analyze: :line
image::square.png[]
EOS
lines = pdf.lines
(expect lines).to have_size 4
(expect lines.map {|it| it[:width] }.sort).to eql [1, 1, 4, 4]
(expect lines.select {|it| it[:width] == 4 && it[:from][:y] == it[:to][:y] }).to have_size 2
(expect lines.select {|it| it[:width] == 1 && it[:from][:x] == it[:to][:x] }).to have_size 2
(expect lines.map {|it| it[:color] }.uniq).to eql %w(DEDEDE)
end
it 'should draw border around inline image if border width and border color are set in the theme', visual: true do
pdf_theme = {
role_enclose_border_width: 0.5,
role_enclose_border_offset: 1,
role_enclose_border_color: '0000FF',
role_enclose_border_radius: 2,
}
%w([.enclose]#image:tux.png[tux,fit=line]# image:tux.png[tux,fit=line,role=enclose]).each do |image|
to_file = to_pdf_file <<~EOS, 'image-inline-border.pdf', pdf_theme: pdf_theme
before #{image} after
EOS
(expect to_file).to visually_match 'image-inline-border.pdf'
end
end
it 'should draw background under inline image if background color is set in the theme', visual: true do
pdf_theme = {
role_enclose_background_color: 'CCCCCC',
role_enclose_border_offset: 1,
role_enclose_border_radius: 2,
}
%w([.enclose]#image:tux.png[tux,fit=line]# image:tux.png[tux,fit=line,role=enclose]).each do |image|
to_file = to_pdf_file <<~EOS, 'image-inline-background.pdf', pdf_theme: pdf_theme
before #{image} after
EOS
(expect to_file).to visually_match 'image-inline-background.pdf'
end
end
it 'should ignore :fit option for SVG image if :width is set' do
image_path = fixture_file 'square.svg'
doc = Prawn::Document.new do
text 'start'
text 'before'
image image_path, fit: [150, 150], width: 50
text 'after'
end
pdf = TextInspector.analyze StringIO.new doc.render
text = pdf.text
tare = text[0][:y] - text[1][:y]
(expect (text[1][:y] - pdf.text[2][:y] - tare).round 2).to eql 50.0
end
it 'should ignore :fit option for SVG image if :height is set' do
image_path = fixture_file 'square.svg'
doc = Prawn::Document.new do
text 'start'
text 'before'
image image_path, fit: [150, 150], height: 25
text 'after'
end
pdf = TextInspector.analyze StringIO.new doc.render
text = pdf.text
tare = text[0][:y] - text[1][:y]
(expect (text[1][:y] - pdf.text[2][:y] - tare).round 2).to eql 25.0
end
it 'should honor :fit option for SVG image if :width and :height are not set' do
image_path = fixture_file 'square.svg'
doc = Prawn::Document.new do
text 'start'
text 'before'
image image_path, fit: [150, 150]
text 'after'
end
pdf = TextInspector.analyze StringIO.new doc.render
text = pdf.text
tare = text[0][:y] - text[1][:y]
(expect (text[1][:y] - pdf.text[2][:y] - tare).round 2).to eql 150.0
end
end
end
] when you buy.
EOS
images = pdf.images
(expect images).to have_size 1
(expect images[0][:width]).to eql 498.8
end
it 'should use intrinsic width if value of width is not numeric', visual: true do
to_file = to_pdf_file <<~'EOS', 'image-inline-intrinsic-width.pdf', attribute_overrides: { 'imagesdir' => examples_dir }
image:wolpertinger.jpg[,invalid]
EOS
(expect to_file).to visually_match 'image-inline-intrinsic-width.pdf'
end
end
context 'Link' do
it 'should add link around block raster image if link attribute is set' do
pdf = to_pdf <<~'EOS'
image::tux.png[pdfwidth=1in,link=https://www.linuxfoundation.org/projects/linux/]
EOS
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
link_annotation = annotations[0]
(expect link_annotation[:Subtype]).to be :Link
(expect link_annotation[:A][:URI]).to eql 'https://www.linuxfoundation.org/projects/linux/'
link_rect = link_annotation[:Rect]
(expect (link_rect[2] - link_rect[0]).round 1).to eql 72.0
(expect (link_rect[3] - link_rect[1]).round 1).to eql 84.7
(expect link_rect[0]).to eql 48.24
end
it 'should add link around block image aligned to right' do
input = 'image::tux.png[pdfwidth=1in,link=https://www.linuxfoundation.org/projects/linux/,align=right]'
pdf = to_pdf input
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
link_annotation = annotations[0]
(expect link_annotation[:Subtype]).to be :Link
(expect link_annotation[:A][:URI]).to eql 'https://www.linuxfoundation.org/projects/linux/'
link_rect = link_annotation[:Rect]
link_coords = { x: link_rect[0], y: link_rect[3], width: ((link_rect[2] - link_rect[0]).round 5), height: ((link_rect[3] - link_rect[1]).round 5) }
pdf = to_pdf input, analyze: :image
image = pdf.images[0]
image_coords = { x: image[:x], y: image[:y], width: image[:width], height: image[:height] }
(expect link_coords).to eql image_coords
end
it 'should add link around block SVG image if link attribute is set' do
pdf = to_pdf <<~'EOS'
image::square.svg[pdfwidth=1in,link=https://example.org]
EOS
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
link_annotation = annotations[0]
(expect link_annotation[:Subtype]).to be :Link
(expect link_annotation[:A][:URI]).to eql 'https://example.org'
link_rect = link_annotation[:Rect]
(expect (link_rect[2] - link_rect[0]).round 1).to eql 72.0
(expect (link_rect[3] - link_rect[1]).round 1).to eql 72.0
(expect link_rect[0]).to eql 48.24
end
it 'should use link in alt text if image is missing' do
(expect do
pdf = to_pdf 'image::no-such-image.png[Missing Image,link=https://example.org]'
text = (pdf.page 1).text
(expect text).to eql '[Missing Image] | no-such-image.png'
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
link_annotation = annotations[0]
(expect link_annotation[:Subtype]).to be :Link
(expect link_annotation[:A][:URI]).to eql 'https://example.org'
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
end
it 'should add link around inline image if link attribute is set' do
pdf = to_pdf <<~'EOS', attribute_overrides: { 'imagesdir' => examples_dir }
image:sample-logo.jpg[ACME,pdfwidth=1pc,link=https://example.org] is a sign of quality!
EOS
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
link_annotation = annotations[0]
(expect link_annotation[:Subtype]).to be :Link
(expect link_annotation[:A][:URI]).to eql 'https://example.org'
link_rect = link_annotation[:Rect]
(expect (link_rect[2] - link_rect[0]).round 1).to eql 12.0
(expect (link_rect[3] - link_rect[1]).round 1).to eql 14.3
(expect link_rect[0]).to eql 48.24
end
it 'should add link around alt text of inline image if link attribute is set and image is not found' do
input = <<~'EOS'
image:sample-logo.jpg[ACME,pdfwidth=1pc,link=https://example.org] is a sign of quality!
EOS
pdf = nil
(expect do
pdf = to_pdf input
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
link_annotation = annotations[0]
(expect link_annotation[:Subtype]).to be :Link
(expect link_annotation[:A][:URI]).to eql 'https://example.org'
(expect do
pdf = to_pdf input, analyze: true
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
link_text = pdf.find_unique_text '[ACME]'
(expect link_text).not_to be_nil
(expect link_annotation).to annotate link_text
end
it 'should add link around inline image if image macro is enclosed in link macro' do
pdf = to_pdf <<~'EOS', attribute_overrides: { 'imagesdir' => examples_dir }
https://example.org[image:sample-logo.jpg[ACME,pdfwidth=1pc]] is a sign of quality!
EOS
annotations = get_annotations pdf, 1
(expect annotations).to have_size 1
link_annotation = annotations[0]
(expect link_annotation[:Subtype]).to be :Link
(expect link_annotation[:A][:URI]).to eql 'https://example.org'
link_rect = link_annotation[:Rect]
(expect (link_rect[2] - link_rect[0]).round 1).to eql 12.0
(expect (link_rect[3] - link_rect[1]).round 1).to eql 14.3
(expect link_rect[0]).to eql 48.24
end
end
context 'Caption' do
it 'should render caption under an image with a title' do
input = <<~'EOS'
.Tux, the Linux mascot
image::tux.png[tux]
EOS
pdf = to_pdf input, analyze: :image
images = pdf.images
(expect images).to have_size 1
image_bottom = images[0][:y] - images[0][:height]
pdf = to_pdf input, analyze: true
text = pdf.text
(expect text).to have_size 1
caption_text = text[0]
(expect caption_text[:string]).to eql 'Figure 1. Tux, the Linux mascot'
(expect caption_text[:font_name]).to eql 'NotoSerif-Italic'
(expect caption_text[:y]).to be < image_bottom
end
it 'should render caption above an image with a title when image_caption_end is top' do
pdf_theme = { image_caption_end: 'top' }
input = <<~'EOS'
.Tux, the Linux mascot
image::tux.png[tux]
EOS
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: :image
images = pdf.images
(expect images).to have_size 1
image_top = images[0][:y]
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: true
text = pdf.text
(expect text).to have_size 1
caption_text = text[0]
(expect caption_text[:string]).to eql 'Figure 1. Tux, the Linux mascot'
(expect caption_text[:font_name]).to eql 'NotoSerif-Italic'
(expect caption_text[:y]).to be > image_top
end
it 'should not duplicate footnote in a caption' do
input = <<~'EOS'
.Tux, the Linux mascotfootnote:[The one and only.]
image::tux.png[tux]
EOS
pdf = to_pdf input, analyze: true
expected_lines = ['Figure 1. Tux, the Linux mascot[1]', '[1] The one and only.']
(expect pdf.lines pdf.text).to eql expected_lines
pdf = to_pdf input
annotations = get_annotations pdf, 1
(expect annotations).to have_size 2
footnote_label_y = annotations[0][:Rect][3]
footnote_item_y = annotations[1][:Rect][3]
(expect (footnoteref_dest = get_dest pdf, '_footnoteref_1')).not_to be_nil
(expect footnote_label_y - footnoteref_dest[:y]).to be < 1
(expect (footnotedef_dest = get_dest pdf, '_footnotedef_1')).not_to be_nil
(expect footnotedef_dest[:y]).to eql footnote_item_y
end
it 'should show caption for missing image' do
(expect do
pdf = to_pdf <<~'EOS', analyze: true
.A missing image
image::no-such-image.png[Missing Image]
EOS
(expect pdf.lines).to eql ['[Missing Image] | no-such-image.png', 'Figure 1. A missing image']
end).to log_message severity: :WARN, message: '~image to embed not found or not readable'
end
it 'should keep caption on same page as image when image exceeds height of page' do
pdf = to_pdf <<~'EOS'
before image
.Image caption
image::tall-diagram.png[Tall diagram]
EOS
(expect pdf.pages).to have_size 2
(expect get_images pdf, 2).to have_size 1
(expect pdf.pages[1].text).to eql 'Figure 1. Image caption'
end
it 'should keep caption on same page as image when image exceeds height of page and image_caption_end is top' do
pdf_theme = { image_caption_end: 'top' }
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme
before image
.Image caption
image::tall-diagram.png[Tall diagram]
EOS
(expect pdf.pages).to have_size 2
(expect get_images pdf, 2).to have_size 1
(expect pdf.pages[1].text).to eql 'Figure 1. Image caption'
end
it 'should raise error if caption does not fit on a single page' do
(expect do
caption = (['excessive caption'] * 300).join ' '
to_pdf <<~EOS
before image
.#{caption}
image::tall-diagram.png[Tall diagram]
EOS
end).to raise_exception Prawn::Errors::CannotFit
end
it 'should scale down SVG at top of page to fit image and caption if dimensions exceed page size', visual: true do
to_file = to_pdf_file <<~EOS, 'image-svg-with-caption-scale-to-fit-page.pdf'
:pdf-page-size: Letter
.#{(['title text'] * 15).join ' '}
image::watermark.svg[pdfwidth=100%]
EOS
(expect to_file).to visually_match 'image-svg-with-caption-scale-to-fit-page.pdf'
end
it 'should set caption align to image align if theme sets caption align to inherit' do
pdf_theme = {
image_caption_align: 'inherit',
}
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, attribute_overrides: { 'imagesdir' => examples_dir }, analyze: true
.Behold, the great Wolpertinger!
image::wolpertinger.jpg[,144,align=right]
EOS
midpoint = (get_page_size pdf)[0] * 0.5
(expect pdf.text[0][:x]).to be > midpoint
end
it 'should restrict caption width to specified percentage of available width if max-width is percentage value' do
pdf_theme = {
image_caption_align: 'center',
image_caption_max_width: '25%',
}
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, analyze: true
.This is a picture of our beloved Tux.
image::tux.png[]
EOS
midpoint = (get_page_size pdf, 1)[0] * 0.5
(expect pdf.lines).to eql ['Figure 1. This is a picture', 'of our beloved Tux.']
first_line_text, second_line_text = pdf.text
(expect first_line_text[:x]).to be > 48.24
(expect first_line_text[:x] + first_line_text[:width]).to be > midpoint
(expect second_line_text[:x]).to be > first_line_text[:x]
end
it 'should restrict caption width to width of image if max-width is fit-content' do
pdf_theme = {
image_caption_align: 'inherit',
image_caption_max_width: 'fit-content',
}
input = <<~'EOS'
.This is a picture of our beloved Tux.
image::tux.png[align=right]
EOS
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: :image
images = pdf.images
(expect images).to have_size 1
tux_image = images[0]
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: true
caption_texts = pdf.text
(expect caption_texts).to have_size 2
caption_text_l1, caption_text_l2 = caption_texts
(expect caption_text_l1[:y]).to be > caption_text_l2[:y]
(expect caption_text_l1[:string]).to start_with 'Figure 1.'
(expect caption_text_l1[:width]).to be < tux_image[:width]
(expect caption_text_l2[:width]).to be < tux_image[:width]
(expect caption_text_l1[:x]).to be > tux_image[:x]
(expect caption_text_l2[:x]).to be > caption_text_l1[:x]
(expect caption_text_l1[:x] + caption_text_l1[:width]).to be_within(1).of caption_text_l2[:x] + caption_text_l2[:width]
end
it 'should configure caption width to fit image width if float attribute is set on image' do
input = <<~'EOS'
.This is a picture of our beloved Tux.
image::tux.png[align=right,float=right]
EOS
tux_image = (to_pdf input, analyze: :image).images[0]
pdf = to_pdf input, analyze: true
caption_texts = pdf.text
(expect caption_texts).to have_size 2
caption_text_l1, caption_text_l2 = caption_texts
(expect caption_text_l1[:y]).to be > caption_text_l2[:y]
(expect caption_text_l1[:string]).to start_with 'Figure 1.'
(expect caption_text_l1[:width]).to be < tux_image[:width]
(expect caption_text_l2[:width]).to be < tux_image[:width]
(expect caption_text_l1[:x]).to eql tux_image[:x]
(expect caption_text_l2[:x]).to eql caption_text_l1[:x]
end
it 'should not change caption width if float attribute is set on image and caption max width is fit-content' do
pdf_theme = { image_caption_align: 'inherit', image_caption_max_width: 'fit-content(50%)' }
input = <<~'EOS'
.This is a picture of our beloved Tux.
image::tux.png[align=right,float=right]
EOS
tux_image = (to_pdf input, pdf_theme: pdf_theme, analyze: :image).images[0]
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: true
caption_texts = pdf.text
(expect caption_texts).to have_size 3
caption_text_l1, caption_text_l2, caption_text_l3 = caption_texts
(expect caption_text_l1[:y]).to be > caption_text_l2[:y]
(expect caption_text_l2[:y]).to be > caption_text_l3[:y]
(expect caption_text_l1[:string]).to start_with 'Figure 1.'
(expect caption_text_l1[:width]).to be < (tux_image[:width] * 0.5)
(expect caption_text_l2[:width]).to be < (tux_image[:width] * 0.5)
(expect caption_text_l3[:width]).to be < (tux_image[:width] * 0.5)
(expect caption_text_l1[:x]).to be > (tux_image[:x] + tux_image[:width] * 0.5)
end
it 'should restrict caption width to percentage of image width if max-width is fit-content function' do
pdf_theme = {
image_caption_align: 'inherit',
image_caption_max_width: 'fit-content(50%)',
}
input = <<~'EOS'
.This is a picture of our beloved Tux.
image::tux.png[align=right]
EOS
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: true
caption_texts = pdf.text
(expect caption_texts).to have_size 3
(expect caption_texts[0][:width]).to be < 75.0
(expect caption_texts[1][:width]).to be < 75.0
(expect caption_texts[2][:width]).to be < 75.0
end
it 'should align caption within width of image if alignment is fixed and max-width is fit-content' do
pdf_theme = {
image_caption_align: 'left',
image_caption_max_width: 'fit-content',
}
input = <<~'EOS'
.This is a picture of our beloved Tux.
image::tux.png[align=right]
EOS
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: :image
images = pdf.images
(expect images).to have_size 1
tux_image = images[0]
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: true
caption_texts = pdf.text
(expect caption_texts).to have_size 2
caption_text_l1, caption_text_l2 = caption_texts
(expect caption_text_l1[:y]).to be > caption_text_l2[:y]
(expect caption_text_l1[:string]).to start_with 'Figure 1.'
(expect caption_text_l1[:width]).to be < tux_image[:width]
(expect caption_text_l2[:width]).to be < tux_image[:width]
(expect caption_text_l1[:x]).to eql tux_image[:x]
(expect caption_text_l2[:x]).to eql caption_text_l1[:x]
end
it 'should align caption within width of image if alignment is fixed and max-width is percentage of image width' do
pdf_theme = {
image_caption_align: 'left',
image_caption_max_width: 'fit-content(50%)',
}
input = <<~'EOS'
.This is a picture of our beloved Tux.
image::tux.png[align=right]
EOS
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: :image
images = pdf.images
(expect images).to have_size 1
tux_image = images[0]
pdf = to_pdf input, pdf_theme: pdf_theme, analyze: true
caption_texts = pdf.text
(expect caption_texts).to have_size 3
caption_text_l1, caption_text_l2, caption_text_l3 = caption_texts
(expect caption_text_l1[:y]).to be > caption_text_l2[:y]
(expect caption_text_l2[:y]).to be > caption_text_l3[:y]
(expect caption_text_l1[:string]).to start_with 'Figure 1.'
(expect caption_text_l1[:width]).to be < tux_image[:width] * 0.5
(expect caption_text_l2[:width]).to be < tux_image[:width] * 0.5
(expect caption_text_l3[:width]).to be < tux_image[:width] * 0.5
(expect caption_text_l1[:x]).to eql tux_image[:x]
(expect caption_text_l2[:x]).to eql caption_text_l1[:x]
(expect caption_text_l3[:x]).to eql caption_text_l2[:x]
end
end
context 'Border' do
it 'should not draw border if color is transparent' do
pdf_theme = {
image_border_width: 0.5,
image_border_color: 'transparent',
}
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, analyze: :line
.Tux
image::tux.png[align=center]
EOS
(expect pdf.lines).to be_empty
end
# NOTE: tests center alignment
it 'should draw border around PNG image if border width and border color are set in the theme', visual: true do
pdf_theme = {
image_border_width: 0.5,
image_border_color: 'DDDDDD',
image_border_radius: 2,
}
to_file = to_pdf_file <<~'EOS', 'image-border.pdf', pdf_theme: pdf_theme
.Tux
image::tux.png[align=center]
EOS
(expect to_file).to visually_match 'image-border.pdf'
end
it 'should draw border around left-aligned PNG image if border width and border color are set in the theme', visual: true do
pdf_theme = {
image_border_width: 0.5,
image_border_color: '5D5D5D',
}
to_file = to_pdf_file <<~'EOS', 'image-border-align-left.pdf', pdf_theme: pdf_theme
.Tux
image::tux.png[]
EOS
(expect to_file).to visually_match 'image-border-align-left.pdf'
end
it 'should stretch border around PNG image to bounds if border fit key is auto', visual: true do
pdf_theme = {
image_border_width: 0.5,
image_border_color: 'DDDDDD',
image_border_radius: 2,
image_border_fit: 'auto',
}
to_file = to_pdf_file <<~'EOS', 'image-border-fit-page.pdf', pdf_theme: pdf_theme
.Tux
image::tux.png[align=center]
EOS
(expect to_file).to visually_match 'image-border-fit-page.pdf'
end
# NOTE: tests right alignment
it 'should draw border around SVG if border width and border color are set in the theme', visual: true do
pdf_theme = {
image_border_width: 1,
image_border_color: '000000',
}
to_file = to_pdf_file <<~'EOS', 'image-svg-border.pdf', pdf_theme: pdf_theme
.Square
image::square.svg[align=right,pdfwidth=25%]
EOS
(expect to_file).to visually_match 'image-svg-border.pdf'
end
it 'should stretch border around SVG to bounds if border fit key is auto', visual: true do
pdf_theme = {
image_border_width: 1,
image_border_color: '000000',
image_border_fit: 'auto',
}
to_file = to_pdf_file <<~'EOS', 'image-svg-border-fit-page.pdf', pdf_theme: pdf_theme
.Square
image::square.svg[align=center,pdfwidth=25%]
EOS
(expect to_file).to visually_match 'image-svg-border-fit-page.pdf'
end
it 'should not draw border around raster image if noborder role is present', visual: true do
pdf_theme = {
image_border_width: 1,
image_border_color: '000000',
}
to_file = to_pdf_file <<~'EOS', 'image-raster-noborder.pdf', pdf_theme: pdf_theme, attribute_overrides: { 'imagesdir' => examples_dir }
image::wolpertinger.jpg[,144,role=specimen noborder]
EOS
(expect to_file).to visually_match 'image-wolpertinger.pdf'
end
it 'should not draw border around SVG image if noborder role is present' do
pdf_theme = {
image_border_width: 1,
image_border_color: 'DEDEDE',
}
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, analyze: :line
image::square-viewbox-only.svg[role=noborder]
EOS
(expect pdf.lines.select {|it| it[:color] == 'DEDEDE' }).to be_empty
end
it 'should allow border on block image to be specified per edge' do
pdf_theme = {
image_border_width: [1, 2, 3, 4],
image_border_color: 'DEDEDE',
}
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, analyze: :line
image::square.png[]
EOS
lines = pdf.lines
(expect lines).to have_size 4
(expect lines.map {|it| it[:width] }.sort).to eql [1, 2, 3, 4]
(expect lines.map {|it| it[:color] }.uniq).to eql %w(DEDEDE)
end
it 'should allow border on block image to be specified on ends and sides' do
pdf_theme = {
image_border_width: [4, 1],
image_border_color: 'DEDEDE',
}
pdf = to_pdf <<~'EOS', pdf_theme: pdf_theme, analyze: :line
image::square.png[]
EOS
lines = pdf.lines
(expect lines).to have_size 4
(expect lines.map {|it| it[:width] }.sort).to eql [1, 1, 4, 4]
(expect lines.select {|it| it[:width] == 4 && it[:from][:y] == it[:to][:y] }).to have_size 2
(expect lines.select {|it| it[:width] == 1 && it[:from][:x] == it[:to][:x] }).to have_size 2
(expect lines.map {|it| it[:color] }.uniq).to eql %w(DEDEDE)
end
it 'should draw border around inline image if border width and border color are set in the theme', visual: true do
pdf_theme = {
role_enclose_border_width: 0.5,
role_enclose_border_offset: 1,
role_enclose_border_color: '0000FF',
role_enclose_border_radius: 2,
}
%w([.enclose]#image:tux.png[tux,fit=line]# image:tux.png[tux,fit=line,role=enclose]).each do |image|
to_file = to_pdf_file <<~EOS, 'image-inline-border.pdf', pdf_theme: pdf_theme
before #{image} after
EOS
(expect to_file).to visually_match 'image-inline-border.pdf'
end
end
it 'should draw background under inline image if background color is set in the theme', visual: true do
pdf_theme = {
role_enclose_background_color: 'CCCCCC',
role_enclose_border_offset: 1,
role_enclose_border_radius: 2,
}
%w([.enclose]#image:tux.png[tux,fit=line]# image:tux.png[tux,fit=line,role=enclose]).each do |image|
to_file = to_pdf_file <<~EOS, 'image-inline-background.pdf', pdf_theme: pdf_theme
before #{image} after
EOS
(expect to_file).to visually_match 'image-inline-background.pdf'
end
end
it 'should ignore :fit option for SVG image if :width is set' do
image_path = fixture_file 'square.svg'
doc = Prawn::Document.new do
text 'start'
text 'before'
image image_path, fit: [150, 150], width: 50
text 'after'
end
pdf = TextInspector.analyze StringIO.new doc.render
text = pdf.text
tare = text[0][:y] - text[1][:y]
(expect (text[1][:y] - pdf.text[2][:y] - tare).round 2).to eql 50.0
end
it 'should ignore :fit option for SVG image if :height is set' do
image_path = fixture_file 'square.svg'
doc = Prawn::Document.new do
text 'start'
text 'before'
image image_path, fit: [150, 150], height: 25
text 'after'
end
pdf = TextInspector.analyze StringIO.new doc.render
text = pdf.text
tare = text[0][:y] - text[1][:y]
(expect (text[1][:y] - pdf.text[2][:y] - tare).round 2).to eql 25.0
end
it 'should honor :fit option for SVG image if :width and :height are not set' do
image_path = fixture_file 'square.svg'
doc = Prawn::Document.new do
text 'start'
text 'before'
image image_path, fit: [150, 150]
text 'after'
end
pdf = TextInspector.analyze StringIO.new doc.render
text = pdf.text
tare = text[0][:y] - text[1][:y]
(expect (text[1][:y] - pdf.text[2][:y] - tare).round 2).to eql 150.0
end
end
end