davebenvenuti-prawn 0.11.1.pre

data/spec/extensions/mocha.rb

@@ -0,0 +1,32 @@
+# Allow speccing things when an expectation matcher runs. Similar to #with, but
+# always succeeds.
+#
+#   @pdf.expects(:stroke_line).checking do |from, to|
+#     @pdf.map_to_absolute(from).should == [0, 0]
+#   end
+#
+# Note that the outer expectation does *not* fail only because the inner one
+# does; in the above example, the outer expectation would only fail if
+# stroke_line were not called.
+
+class ParameterChecker < Mocha::ParametersMatcher
+  def initialize(&matching_block)
+    @matching_block = matching_block
+    @run_matching_block = false
+  end
+
+  def match?(actual_parameters = [])
+    @matching_block.call(*actual_parameters) unless @run_matching_block
+    @run_matching_block = true
+
+    true # always succeed
+  end
+end
+
+class Mocha::Expectation
+  def checking(&block)
+    @parameters_matcher = ParameterChecker.new(&block)
+    self
+  end
+end
+

data/spec/font_spec.rb

@@ -0,0 +1,324 @@
+# encoding: utf-8
+
+require File.join(File.expand_path(File.dirname(__FILE__)), "spec_helper")           
+require 'iconv'
+
+describe "Font behavior" do  
+
+  it "should default to Helvetica if no font is specified" do
+    @pdf = Prawn::Document.new
+    @pdf.font.name.should == "Helvetica"
+  end
+
+end
+
+describe "#width_of" do
+  it "should take character spacing into account" do
+    create_pdf
+    original_width = @pdf.width_of("hello world")
+    @pdf.character_spacing(7) do
+      @pdf.width_of("hello world").should == original_width + 11 * 7
+    end
+  end
+end
+
+describe "#font_size" do
+  it "should allow setting font size in DSL style" do
+    create_pdf
+    @pdf.font_size 20
+    @pdf.font_size.should == 20
+  end
+end
+
+describe "font style support" do
+  before(:each) { create_pdf }
+  
+  it "should complain if there is no @current_page" do
+    pdf_without_page = Prawn::Document.new(:skip_page_creation => true)
+
+    lambda{ pdf_without_page.font "Helvetica" }.
+      should.raise(Prawn::Errors::NotOnPage)
+  end
+  
+  it "should allow specifying font style by style name and font family" do    
+    @pdf.font "Courier", :style => :bold
+    @pdf.text "In Courier bold"    
+    
+    @pdf.font "Courier", :style => :bold_italic
+    @pdf.text "In Courier bold-italic"   
+     
+    @pdf.font "Courier", :style => :italic
+    @pdf.text "In Courier italic"    
+    
+    @pdf.font "Courier", :style => :normal
+    @pdf.text "In Normal Courier"  
+           
+    @pdf.font "Helvetica"
+    @pdf.text "In Normal Helvetica"     
+    
+    text = PDF::Inspector::Text.analyze(@pdf.render)
+    text.font_settings.map { |e| e[:name] }.should == 
+     [:"Courier-Bold", :"Courier-BoldOblique", :"Courier-Oblique", 
+      :Courier, :Helvetica]
+  end
+
+  it "should allow font familes to be defined in a single dfont" do
+    file = "#{Prawn::BASEDIR}/data/fonts/Action Man.dfont"
+    @pdf.font_families["Action Man"] = {
+      :normal      => { :file => file, :font => "ActionMan" },
+      :italic      => { :file => file, :font => "ActionMan-Italic" },
+      :bold        => { :file => file, :font => "ActionMan-Bold" },
+      :bold_italic => { :file => file, :font => "ActionMan-BoldItalic" }
+    }
+
+    @pdf.font "Action Man", :style => :italic
+    @pdf.text "In ActionMan-Italic"
+
+    text = PDF::Inspector::Text.analyze(@pdf.render)
+    name = text.font_settings.map { |e| e[:name] }.first.to_s
+    name = name.sub(/\w+\+/, "subset+")
+    name.should == "subset+ActionMan-Italic"
+  end
+end
+
+describe "Transactional font handling" do
+  before(:each) { create_pdf }
+  
+  it "should allow setting of size directly when font is created" do
+    @pdf.font "Courier", :size => 16
+    @pdf.font_size.should == 16 
+  end
+  
+  it "should allow temporary setting of a new font using a transaction" do
+    @pdf.font "Helvetica", :size => 12
+    
+    @pdf.font "Courier", :size => 16 do
+      @pdf.font.name.should == "Courier"
+      @pdf.font_size.should == 16
+    end
+    
+    @pdf.font.name.should == "Helvetica"
+    @pdf.font_size.should == 12
+  end
+
+  it "should mask font size when using a transacation" do
+    @pdf.font "Courier", :size => 16 do
+      @pdf.font_size.should == 16
+    end
+
+    @pdf.font "Times-Roman"
+    @pdf.font "Courier"
+
+    @pdf.font_size.should == 12
+  end
+  
+end
+
+describe "Document#page_fonts" do
+  before(:each) { create_pdf } 
+  
+  it "should register fonts properly by page" do
+    @pdf.font "Courier"; @pdf.text("hello")
+    @pdf.font "Helvetica"; @pdf.text("hello")
+    @pdf.font "Times-Roman"; @pdf.text("hello")
+    ["Courier","Helvetica","Times-Roman"].each { |f|
+      page_should_include_font(f)
+    }                                        
+    
+    @pdf.start_new_page    
+    @pdf.font "Helvetica"; @pdf.text("hello")
+    page_should_include_font("Helvetica")
+    page_should_not_include_font("Courier")
+    page_should_not_include_font("Times-Roman")
+  end    
+  
+  def page_includes_font?(font)
+    @pdf.page.fonts.values.map { |e| e.data[:BaseFont] }.include?(font.to_sym)
+  end                             
+  
+  def page_should_include_font(font)    
+    assert_block("Expected page to include font: #{font}") do
+      page_includes_font?(font)
+    end
+  end   
+  
+  def page_should_not_include_font(font)
+    assert_block("Did not expect page to include font: #{font}") do
+      not page_includes_font?(font) 
+    end
+  end
+      
+end
+    
+describe "AFM fonts" do
+  
+  setup do
+    create_pdf
+    @times = @pdf.find_font "Times-Roman"
+    @iconv = ::Iconv.new('Windows-1252', 'utf-8')
+  end
+  
+  it "should calculate string width taking into account accented characters" do
+    @times.compute_width_of(@iconv.iconv("é"), :size => 12).should == @times.compute_width_of("e", :size => 12)
+  end
+  
+  it "should calculate string width taking into account kerning pairs" do
+    @times.compute_width_of(@iconv.iconv("To"), :size => 12).should == 13.332
+    @times.compute_width_of(@iconv.iconv("To"), :size => 12, :kerning => true).should == 12.372
+    @times.compute_width_of(@iconv.iconv("Tö"), :size => 12, :kerning => true).should == 12.372
+  end
+
+  it "should encode text without kerning by default" do
+    @times.encode_text(@iconv.iconv("To")).should == [[0, "To"]]
+    @times.encode_text(@iconv.iconv("Télé")).should == [[0, @iconv.iconv("Télé")]]
+    @times.encode_text(@iconv.iconv("Technology")).should == [[0, "Technology"]]
+    @times.encode_text(@iconv.iconv("Technology...")).should == [[0, "Technology..."]]
+  end
+
+  it "should encode text with kerning if requested" do
+    @times.encode_text(@iconv.iconv("To"), :kerning => true).should == [[0, ["T", 80, "o"]]]
+    @times.encode_text(@iconv.iconv("Télé"), :kerning => true).should == [[0, ["T", 70, @iconv.iconv("élé")]]]
+    @times.encode_text(@iconv.iconv("Technology"), :kerning => true).should == [[0, ["T", 70, "echnology"]]]
+    @times.encode_text(@iconv.iconv("Technology..."), :kerning => true).should == [[0, ["T", 70, "echnology", 65, "..."]]]
+  end
+
+  describe "when normalizing encoding" do
+
+    it "should not modify the original string when normalize_encoding() is used" do
+      original = "Foo"
+      normalized = @times.normalize_encoding(original)
+      assert ! original.equal?(normalized)
+    end
+
+    it "should modify the original string when normalize_encoding!() is used" do
+      original = "Foo"
+      normalized = @times.normalize_encoding!(original)
+      assert original.equal?(normalized)
+    end
+
+  end
+
+  it "should omit /Encoding for symbolic fonts" do
+    zapf = @pdf.find_font "ZapfDingbats"
+    font_dict = zapf.send(:register, nil)
+    font_dict.data[:Encoding].should == nil
+  end
+  
+end
+
+describe "TTF fonts" do
+  
+  setup do
+    create_pdf
+    @activa = @pdf.find_font "#{Prawn::BASEDIR}/data/fonts/Activa.ttf"
+  end
+  
+  it "should calculate string width taking into account accented characters" do
+    @activa.compute_width_of("é", :size => 12).should == @activa.compute_width_of("e", :size => 12)
+  end
+  
+  it "should calculate string width taking into account kerning pairs" do
+    @activa.compute_width_of("To", :size => 12).should == 15.228
+    @activa.compute_width_of("To", :size => 12, :kerning => true).should == 12.996
+  end
+  
+  it "should encode text without kerning by default" do
+    @activa.encode_text("To").should == [[0, "To"]]
+    @activa.encode_text("Télé").should == [[0, "T\216l\216"]]
+    @activa.encode_text("Technology").should == [[0, "Technology"]]
+    @activa.encode_text("Technology...").should == [[0, "Technology..."]]
+    @activa.encode_text("Teχnology...").should == [[0, "Te"], [1, "!"], [0, "nology..."]]
+  end
+
+  it "should encode text with kerning if requested" do
+    @activa.encode_text("To", :kerning => true).should == [[0, ["T", 186.0, "o"]]]
+    @activa.encode_text("To", :kerning => true).should == [[0, ["T", 186.0, "o"]]]
+    @activa.encode_text("Technology", :kerning => true).should == [[0, ["T", 186.0, "echnology"]]]
+    @activa.encode_text("Technology...", :kerning => true).should == [[0, ["T", 186.0, "echnology", 88.0, "..."]]]
+    @activa.encode_text("Teχnology...", :kerning => true).should == [[0, ["T", 186.0, "e"]], [1, "!"], [0, ["nology", 88.0, "..."]]]
+  end
+
+  describe "when normalizing encoding" do
+
+    it "should not modify the original string when normalize_encoding() is used" do
+      original = "Foo"
+      normalized = @activa.normalize_encoding(original)
+      assert ! original.equal?(normalized)
+    end
+
+    it "should modify the original string when normalize_encoding!() is used" do
+      original = "Foo"
+      normalized = @activa.normalize_encoding!(original)
+      assert original.equal?(normalized)
+    end
+
+  end
+
+  describe "when used with snapshots or transactions" do
+    
+    it "should allow TTF fonts to be used alongside document transactions" do
+      lambda {
+        Prawn::Document.new do
+          font "#{Prawn::BASEDIR}/data/fonts/DejaVuSans.ttf"
+          text "Hi there"
+          transaction { text "Nice, thank you" }
+        end
+      }.should.not.raise
+    end
+
+    it "should allow TTF fonts to be used inside transactions" do
+      pdf = Prawn::Document.new do
+        transaction do
+          font "#{Prawn::BASEDIR}/data/fonts/DejaVuSans.ttf"
+          text "Hi there"
+        end
+      end
+
+      text = PDF::Inspector::Text.analyze(pdf.render)
+      name = text.font_settings.map { |e| e[:name] }.first.to_s
+      name = name.sub(/\w+\+/, "subset+")
+      name.should == "subset+DejaVuSans"
+    end
+
+  end
+  
+end
+
+describe "DFont fonts" do
+  setup do
+    create_pdf
+    @file = "#{Prawn::BASEDIR}/data/fonts/Action Man.dfont"
+  end
+
+  it "should list all named fonts" do
+    list = Prawn::Font::DFont.named_fonts(@file)
+    list.sort.should == %w(ActionMan ActionMan-Italic ActionMan-Bold ActionMan-BoldItalic).sort
+  end
+
+  it "should count the number of fonts in the file" do
+    Prawn::Font::DFont.font_count(@file).should == 4
+  end
+
+  it "should default selected font to the first one if not specified" do
+    font = @pdf.find_font(@file)
+    font.basename.should == "ActionMan"
+  end
+
+  it "should allow font to be selected by index" do
+    font = @pdf.find_font(@file, :font => 2)
+    font.basename.should == "ActionMan-Italic"
+  end
+
+  it "should allow font to be selected by name" do
+    font = @pdf.find_font(@file, :font => "ActionMan-BoldItalic")
+    font.basename.should == "ActionMan-BoldItalic"
+  end
+
+  it "should cache font object based on selected font" do
+    f1 = @pdf.find_font(@file, :font => "ActionMan")
+    f2 = @pdf.find_font(@file, :font => "ActionMan-Bold")
+    assert_not_equal f1.object_id, f2.object_id
+    assert_equal f1.object_id, @pdf.find_font(@file, :font => "ActionMan").object_id
+    assert_equal f2.object_id, @pdf.find_font(@file, :font => "ActionMan-Bold").object_id
+  end
+end

data/spec/formatted_text_arranger_spec.rb

@@ -0,0 +1,426 @@
+# encoding: utf-8
+
+require File.join(File.expand_path(File.dirname(__FILE__)), "spec_helper")
+
+describe "Core::Text::Formatted::Arranger#format_array" do
+  it "should populate unconsumed array" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you?" }]
+    arranger.format_array = array
+    arranger.unconsumed[0].should == { :text => "hello " }
+    arranger.unconsumed[1].should == { :text => "world how ",
+                                              :styles => [:bold] }
+    arranger.unconsumed[2].should == { :text => "are",
+                                              :styles => [:bold, :italic] }
+    arranger.unconsumed[3].should == { :text => " you?" }
+  end
+  it "should split newlines into their own elements" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "\nhello\nworld" }]
+    arranger.format_array = array
+    arranger.unconsumed[0].should == { :text => "\n" }
+    arranger.unconsumed[1].should == { :text => "hello" }
+    arranger.unconsumed[2].should == { :text => "\n" }
+    arranger.unconsumed[3].should == { :text => "world" }
+  end
+end
+describe "Core::Text::Formatted::Arranger#preview_next_string" do
+  it "should not populate the consumed array" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello" }]
+    arranger.format_array = array
+    arranger.preview_next_string
+    arranger.consumed.should == []
+  end
+  it "should not consumed array" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello" }]
+    arranger.format_array = array
+    arranger.preview_next_string.should == "hello"
+  end
+end
+describe "Core::Text::Formatted::Arranger#next_string" do
+  before(:each) do
+    create_pdf
+    @arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you?" }]
+    @arranger.format_array = array
+  end
+  it "should raise an error if called after a line was finalized and" +
+     " before a new line was initialized" do
+    @arranger.finalize_line
+    lambda do
+      @arranger.next_string
+    end.should.raise(RuntimeError)
+  end
+  it "should populate consumed array" do
+    while string = @arranger.next_string
+    end
+    @arranger.consumed[0].should == { :text => "hello " }
+    @arranger.consumed[1].should == { :text => "world how ",
+                                              :styles => [:bold] }
+    @arranger.consumed[2].should == { :text => "are",
+                                              :styles => [:bold, :italic] }
+    @arranger.consumed[3].should == { :text => " you?" }
+  end
+  it "should populate current_format_state array" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you?" }]
+    arranger.format_array = array
+    counter = 0
+    while string = arranger.next_string
+      case counter
+      when 0
+        arranger.current_format_state.should == { }
+      when 1
+        arranger.current_format_state.should == { :styles => [:bold] }
+      when 2
+        arranger.current_format_state.should == { :styles => [:bold, :italic] }
+      when 3
+        arranger.current_format_state.should == { }
+      end
+      counter += 1
+    end
+  end
+end
+
+describe "Core::Text::Formatted::Arranger#retrieve_fragment" do
+  it "should raise an error if called before finalize_line was called" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you?" }]
+    arranger.format_array = array
+    while string = arranger.next_string
+    end
+    lambda do
+      arranger.retrieve_fragment
+    end.should.raise(RuntimeError)
+  end
+  it "should return the consumed fragments in order of consumption" +
+     " and update" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you?" }]
+    arranger.format_array = array
+    while string = arranger.next_string
+    end
+    arranger.finalize_line
+    arranger.retrieve_fragment.text.should == "hello "
+    arranger.retrieve_fragment.text.should == "world how "
+    arranger.retrieve_fragment.text.should == "are"
+    arranger.retrieve_fragment.text.should == " you?"
+  end
+  it "should never return a fragment whose text is an empty string" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello\nworld\n\n\nhow are you?" },
+             { :text => "\n" },
+             { :text => "\n" },
+             { :text => "\n" },
+             { :text => "" },
+             { :text => "fine, thanks." },
+             { :text => "" },
+             { :text => "\n" },
+             { :text => "" }]
+    arranger.format_array = array
+    while string = arranger.next_string
+    end
+    arranger.finalize_line
+    while fragment = arranger.retrieve_fragment
+      fragment.text.should.not.be.empty
+    end
+  end
+  it "should not alter the current font style" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you?" }]
+    arranger.format_array = array
+    while string = arranger.next_string
+    end
+    arranger.finalize_line
+    arranger.retrieve_fragment
+    arranger.current_format_state[:styles].should.be.nil
+  end
+end
+
+describe "Core::Text::Formatted::Arranger#update_last_string" do
+  it "should update the last retrieved string with what actually fit on" +
+     "the line and the list of unconsumed with what did not" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you now?", :styles => [:bold, :italic] }]
+    arranger.format_array = array
+    while string = arranger.next_string
+    end
+    arranger.update_last_string(" you", " now?")
+    arranger.consumed[3].should == { :text => " you",
+                                      :styles => [:bold, :italic] }
+    arranger.unconsumed.should == [{ :text => " now?",
+                                      :styles => [:bold, :italic] }]
+  end
+  context "when the entire string was used" do
+    it "should not push empty string onto unconsumed" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you now?" }]
+    arranger.format_array = array
+      while string = arranger.next_string
+      end
+      arranger.update_last_string(" you now?", "")
+      arranger.unconsumed.should == []
+    end
+  end
+end
+describe "Core::Text::Formatted::Arranger#space_count" do
+  before(:each) do
+    create_pdf
+    @arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you?" }]
+    @arranger.format_array = array
+    while string = @arranger.next_string
+    end
+  end
+  it "should raise an error if called before finalize_line was called" do
+    lambda do
+      @arranger.space_count
+    end.should.raise(RuntimeError)
+  end
+  it "should return the total number of spaces in all fragments" do
+    @arranger.finalize_line
+    @arranger.space_count.should == 4
+  end
+end
+describe "Core::Text::Formatted::Arranger#finalize_line" do
+  it "should make it so the last consumed fragment ends with non-white-space" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "   ", :styles => [:bold, :italic] }]
+    arranger.format_array = array
+    while string = arranger.next_string
+    end
+    arranger.finalize_line
+    arranger.fragments.length.should == 2
+    arranger.retrieve_fragment.text
+    arranger.retrieve_fragment.text.should == "world how"
+  end
+end
+
+describe "Core::Text::Formatted::Arranger#line_width" do
+  before(:each) do
+    create_pdf
+    @arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world", :styles => [:bold] }]
+    @arranger.format_array = array
+    while string = @arranger.next_string
+    end
+  end
+  it "should raise an error if called before finalize_line was called" do
+    lambda do
+      @arranger.line_width
+    end.should.raise(RuntimeError)
+  end
+  it "should return the width of the complete line" do
+    @arranger.finalize_line
+    @arranger.line_width.should.be > 0
+  end
+end
+
+describe "Core::Text::Formatted::Arranger#line_width with character_spacing > 0" do
+  it "should return a width greater than a line without a character_spacing" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+
+    array = [{ :text => "hello " },
+             { :text => "world", :styles => [:bold] }]
+    arranger.format_array = array
+    while string = arranger.next_string
+    end
+    arranger.finalize_line
+
+    base_line_width = arranger.line_width
+
+
+    array = [{ :text => "hello " },
+             { :text => "world", :styles => [:bold],
+               :character_spacing => 7}]
+    arranger.format_array = array
+    while string = arranger.next_string
+    end
+    arranger.finalize_line
+    arranger.line_width.should.be > base_line_width
+  end
+end
+
+describe "Core::Text::Formatted::Arranger#line" do
+  before(:each) do
+    create_pdf
+    @arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world", :styles => [:bold] }]
+    @arranger.format_array = array
+    while string = @arranger.next_string
+    end
+  end
+  it "should raise an error if called before finalize_line was called" do
+    lambda do
+      @arranger.line
+    end.should.raise(RuntimeError)
+  end
+  it "should return the complete line" do
+    @arranger.finalize_line
+    @arranger.line.should == "hello world"
+  end
+end
+
+describe "Core::Text::Formatted::Arranger#unconsumed" do
+  it "should return the original array if nothing was consumed" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you now?" }]
+    arranger.format_array = array
+    arranger.unconsumed.should == array
+  end
+  it "should return an empty array if everything was consumed" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you now?" }]
+    arranger.format_array = array
+    while string = arranger.next_string
+    end
+    arranger.unconsumed.should == []
+  end
+end
+
+describe "Core::Text::Formatted::Arranger#finished" do
+  it "should be false if anything was not printed" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you now?" }]
+    arranger.format_array = array
+    while string = arranger.next_string
+    end
+    arranger.update_last_string(" you", "now?")
+    arranger.should.not.be.finished
+  end
+  it "should be false if everything was printed" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you now?" }]
+    arranger.format_array = array
+    while string = arranger.next_string
+    end
+    arranger.should.be.finished
+  end
+end
+
+describe "Core::Text::Formatted::Arranger#unfinished" do
+  it "should be false if anything was not printed" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you now?" }]
+    arranger.format_array = array
+    while string = arranger.next_string
+    end
+    arranger.update_last_string(" you", "now?")
+    arranger.should.be.unfinished
+  end
+  it "should be false if everything was printed" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you now?" }]
+    arranger.format_array = array
+    while string = arranger.next_string
+    end
+    arranger.should.not.be.unfinished
+  end
+end
+
+describe "Core::Text::Formatted::Arranger.max_line_height" do
+  it "should be the height of the maximum consumed fragment" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you now?" }]
+    arranger.format_array = array
+    while string = arranger.next_string
+    end
+    arranger.update_last_string(" you", "now?")
+    arranger.should.be.unfinished
+  end
+end
+
+describe "Core::Text::Formatted::Arranger#repack_unretrieved" do
+  it "should restore part of the original string" do
+    create_pdf
+    arranger = Prawn::Core::Text::Formatted::Arranger.new(@pdf)
+    array = [{ :text => "hello " },
+             { :text => "world how ", :styles => [:bold] },
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you now?" }]
+    arranger.format_array = array
+    while string = arranger.next_string
+    end
+    arranger.finalize_line
+    arranger.retrieve_fragment
+    arranger.retrieve_fragment
+    arranger.repack_unretrieved
+    arranger.unconsumed.should == [
+             { :text => "are", :styles => [:bold, :italic] },
+             { :text => " you now?" }]
+  end
+end