hexapdf 1.1.1 → 1.3.0

data/test/hexapdf/test_composer.rb

@@ -127,6 +127,13 @@ describe HexaPDF::Composer do
     end
   end
 
+  describe "style?" do
+    it "delegates to layout.style?" do
+      @composer.document.layout.style(:header, font_size: 20)
+      assert(@composer.style?(:header))
+    end
+  end
+
   describe "styles" do
     it "delegates to layout.styles" do
       @composer.styles(base: {font_size: 30}, other: {font_size: 40})

data/test/hexapdf/test_document.rb

@@ -54,7 +54,7 @@ describe HexaPDF::Document do
   describe "::open" do
     before do
       @file = Tempfile.new('hexapdf-document')
-      @io_doc.write(@file)
+      @io_doc.write(@file, compact: false)
       @file.close
     end
 
@@ -370,7 +370,7 @@ describe HexaPDF::Document do
     it "writes the document to a file" do
       file = Tempfile.new('hexapdf-write')
       file.close
-      @io_doc.write(file.path)
+      @io_doc.write(file.path, compact: false)
       HexaPDF::Document.open(file.path) do |doc|
         assert_equal(200, doc.object(2).value)
       end
@@ -422,10 +422,18 @@ describe HexaPDF::Document do
 
     it "allows optimizing the file by using object streams" do
       io = StringIO.new(''.b)
-      @io_doc.write(io, optimize: true)
+      @io_doc.write(io, optimize: true, compact: false)
       doc = HexaPDF::Document.new(io: io)
       assert_equal(2, doc.each.count {|o| o.type == :ObjStm })
     end
+
+    it "automatically compacts the file" do
+      io = StringIO.new(''.b)
+      @io_doc.write(io)
+      doc = HexaPDF::Document.new(io: io)
+      assert_equal(1, doc.revisions.count)
+      assert_equal(4, doc.each.count)
+    end
   end
 
   describe "version" do

data/test/hexapdf/test_object.rb

@@ -197,7 +197,7 @@ describe HexaPDF::Object do
       @obj.define_singleton_method(:perform_validation) { raise "Unknown" }
       invoked = []
       refute(@obj.validate {|*a| invoked << a })
-      assert_equal([["Error: Unexpected value encountered", false, @obj]], invoked)
+      assert_equal([["Unexpected error encountered: Unknown", false, @obj]], invoked)
     end
   end
 

data/test/hexapdf/test_pdf_array.rb

@@ -131,9 +131,42 @@ describe HexaPDF::PDFArray do
     end
   end
 
-  it "allows deleting elements that are selected using a block" do
-    @array.reject! {|item| item == :data }
-    assert_equal([1, "deref", @array[2]], @array[0, 5])
+  describe "reject!" do
+    it "allows deleting elements that are selected using a block" do
+      assert_same(@array, @array.reject! {|item| item == :data })
+      assert_equal([1, "deref", @array[2]], @array.to_a)
+    end
+
+    it "returns nil if no elements were deleted" do
+      assert_nil(@array.reject! {|item| false })
+    end
+
+    it "returns an enumerator if no block is given" do
+      assert_kind_of(Enumerator, @array.reject!)
+    end
+  end
+
+  describe "map!" do
+    it "maps elements in-place to the return values of the block" do
+      assert_same(@array, @array.map! {|item| 5 })
+      assert_equal([5, 5, 5, 5], @array.to_a)
+    end
+
+    it "returns an enumerator if no block is given" do
+      assert_kind_of(Enumerator, @array.reject!)
+    end
+  end
+
+  describe "compact!" do
+    it "removes all nil elements and returns self" do
+      @array << nil
+      assert_same(@array, @array.compact!)
+      assert_equal(4, @array.size)
+    end
+
+    it "returns nil if no elements were removed" do
+      assert_nil(@array.compact!)
+    end
   end
 
   describe "index" do

data/test/hexapdf/test_stream.rb

@@ -1,7 +1,6 @@
 # -*- encoding: utf-8 -*-
 
 require 'test_helper'
-require 'ostruct'
 require 'stringio'
 require 'tempfile'
 require 'hexapdf/configuration'
@@ -80,7 +79,7 @@ end
 
 describe HexaPDF::Stream do
   before do
-    @document = OpenStruct.new
+    @document = Struct.new(:config).new
     @document.config = HexaPDF::Configuration.with_defaults
     @document.instance_variable_set(:@version, '1.2')
     def (@document).unwrap(obj); obj; end

data/test/hexapdf/test_xref_section.rb

@@ -66,7 +66,7 @@ describe HexaPDF::XRefSection do
       @xref_section.add_in_use_entry(1, 0, 0)
       @xref_section.add_in_use_entry(2, 0, 0)
       result = @xref_section.each_subsection.map {|s| s.map {|e| [e.oid, e.type] }}
-      assert_equal([[[1, :in_use], [2, :in_use],
+      assert_equal([[[0, :free], [1, :in_use], [2, :in_use],
                      [3, :free], [4, :free], [5, :free],
                      [6, :in_use], [7, :in_use],
                      [8, :free],

data/test/hexapdf/type/acro_form/test_appearance_generator.rb

@@ -373,12 +373,87 @@ describe HexaPDF::Type::AcroForm::AppearanceGenerator do
     describe "push buttons" do
       before do
         @field.initialize_as_push_button
-        @widget = @field.create_widget(@page, Rect: [0, 0, 0, 0])
+        @widget = @field.create_widget(@page, Rect: [0, 0, 100, 50])
+        @widget.marker_style(style: 'Test')
         @generator = HexaPDF::Type::AcroForm::AppearanceGenerator.new(@widget)
       end
 
-      it "fails because it is not implemented yet" do
-        assert_raises(HexaPDF::Error) { @generator.create_appearances }
+      it "set the print flag on the widgets" do
+        @generator.create_appearances
+        assert(@widget.flagged?(:print))
+      end
+
+      it "removes the hidden flag on the widgets" do
+        @widget.flag(:hidden)
+        @generator.create_appearances
+        refute(@widget.flagged?(:hidden))
+      end
+
+      it "adds an appropriate form XObject" do
+        @generator.create_appearances
+        form = @widget[:AP][:N]
+        assert_equal(:XObject, form.type)
+        assert_equal(:Form, form[:Subtype])
+        assert_equal([0, 0, 100, 50], form[:BBox])
+        assert_equal(@doc.acro_form.default_resources[:Font][:F1], form[:Resources][:Font][:F1])
+      end
+
+      it "re-uses the existing form XObject" do
+        @generator.create_appearances
+        form = @widget[:AP][:N]
+        form[:key] = :value
+        form.delete(:Subtype)
+        @widget[:AP][:N] = @doc.wrap(form, type: HexaPDF::Dictionary)
+
+        @generator.create_appearances
+        assert_equal(form, @widget[:AP][:N])
+        refute(form.key?(:key))
+      end
+
+      describe "takes the rotation into account" do
+        def check_rotation(angle, width, height, matrix)
+          @widget[:MK][:R] = angle
+          @generator.create_appearances
+          form = @widget[:AP][:N]
+          assert_equal([0, 0, width, height], form[:BBox].value)
+          assert_equal(matrix, form[:Matrix].value)
+        end
+
+        it "works for 0 degrees" do
+          check_rotation(-360, @widget[:Rect].width, @widget[:Rect].height, [1, 0, 0, 1, 0, 0])
+        end
+
+        it "works for 90 degrees" do
+          check_rotation(450, @widget[:Rect].height, @widget[:Rect].width, [0, 1, -1, 0, 0, 0])
+        end
+
+        it "works for 180 degrees" do
+          check_rotation(180, @widget[:Rect].width, @widget[:Rect].height, [0, -1, -1, 0, 0, 0])
+        end
+
+        it "works for 270 degrees" do
+          check_rotation(-90, @widget[:Rect].height, @widget[:Rect].width, [0, -1, 1, 0, 0, 0])
+        end
+      end
+
+      it "adds the button title in the center" do
+        @generator.create_appearances
+        assert_operators(@widget[:AP][:N].stream,
+                         [[:save_graphics_state],
+                          [:set_device_gray_non_stroking_color, [0.5]],
+                          [:append_rectangle, [0, 0, 100, 50]],
+                          [:fill_path_non_zero],
+                          [:append_rectangle, [0.5, 0.5, 99.0, 49.0]],
+                          [:stroke_path],
+                          [:restore_graphics_state],
+                          [:save_graphics_state],
+                          [:set_font_and_size, [:F1, 9]],
+                          [:begin_text],
+                          [:move_text, [41.2475, 22.7005]],
+                          [:show_text, ["Test"]],
+                          [:end_text],
+                          [:restore_graphics_state]],
+                         )
       end
     end
   end

data/test/hexapdf/type/acro_form/test_button_field.rb

@@ -236,6 +236,13 @@ describe HexaPDF::Type::AcroForm::ButtonField do
       assert(widget[:AP][:N][:test])
     end
 
+    it "works for push buttons" do
+      @field.initialize_as_push_button
+      @field.create_widget(@doc.pages.add, Rect: [0, 0, 100, 50])
+      @field.create_appearances
+      assert(@field[:AP][:N])
+    end
+
     it "won't generate appearances if they already exist" do
       widget = @field.create_widget(@doc.pages.add, Rect: [0, 0, 0, 0])
       @field.create_appearances
@@ -262,12 +269,6 @@ describe HexaPDF::Type::AcroForm::ButtonField do
       refute_same(yes, widget.appearance_dict.normal_appearance[:Yes])
     end
 
-    it "fails for push buttons as they are not implemented yet" do
-      @field.flag(:push_button)
-      @field.create_widget(@doc.pages.add, Rect: [0, 0, 0, 0])
-      assert_raises(HexaPDF::Error) { @field.create_appearances }
-    end
-
     it "uses the configuration option acro_form.appearance_generator" do
       @doc.config['acro_form.appearance_generator'] = 'NonExistent'
       assert_raises(Exception) { @field.create_appearances }

data/test/hexapdf/type/acro_form/test_field.rb

@@ -193,9 +193,14 @@ describe HexaPDF::Type::AcroForm::Field do
 
     it "extracts an embedded widget into a standalone object if necessary" do
       widget1 = @field.create_widget(@page, Rect: [1, 2, 3, 4])
+      # Make sure that the field/widget looks like as if it has been loaded from a file
+      @doc.revisions.current.update(widget1)
+      assert_equal(@field, widget1)
+
       widget2 = @field.create_widget(@doc.pages.add, Rect: [2, 1, 4, 3])
       kids = @field[:Kids]
 
+      assert_kind_of(HexaPDF::Type::AcroForm::Field, @doc.object(@field.oid))
       assert_equal(2, kids.length)
       refute_same(widget1, kids[0])
       assert_same(widget2, kids[1])

data/test/hexapdf/type/acro_form/test_form.rb

@@ -558,13 +558,23 @@ describe HexaPDF::Type::AcroForm::Form do
         assert_equal(:Tx4, @acro_form[:Fields][2][:Kids][0][:T])
         assert_equal(@acro_form[:Fields][2], @acro_form[:Fields][2][:Kids][0][:Parent])
       end
+
+      it "ensures that objects loaded as widget are stored as field" do
+        @acro_form[:Fields][2] = @doc.add({T: :WidgetField, Type: :Annot, Subtype: :Widget})
+        assert_kind_of(HexaPDF::Type::Annotations::Widget, @acro_form[:Fields][2])
+
+        assert(@acro_form.validate)
+        field = @acro_form[:Fields][0]
+        assert_kind_of(HexaPDF::Type::AcroForm::Field, field)
+        assert_equal(:WidgetField, field.full_field_name)
+      end
     end
 
     describe "combining fields with the same name" do
       before do
         @acro_form[:Fields] = [
           @doc.add({T: 'e', Subtype: :Widget, Rect: [0, 0, 0, 1]}),
-          @doc.add({T: 'e', Subtype: :Widget, Rect: [0, 0, 0, 2]}),
+          @merged_field = @doc.add({T: 'e', Subtype: :Widget, Rect: [0, 0, 0, 2]}),
           @doc.add({T: 'Tx2'}),
           @doc.add({T: 'e', Kids: [{Subtype: :Widget, Rect: [0, 0, 0, 3]}]}),
         ]
@@ -576,6 +586,12 @@ describe HexaPDF::Type::AcroForm::Form do
         assert_equal([[0, 0, 0, 1], [0, 0, 0, 2], [0, 0, 0, 3]],
                      @acro_form.field_by_name('e').each_widget.map {|w| w[:Rect] })
       end
+
+      it "deletes the combined and now unneeded field objects" do
+        assert(@acro_form.validate)
+        assert(@merged_field.null?)
+        assert(@doc.object(@merged_field.oid).null?)
+      end
     end
 
     describe "automatically creates the terminal fields; appearances" do

data/test/hexapdf/type/acro_form/test_java_script_actions.rb

@@ -82,6 +82,20 @@ describe HexaPDF::Type::AcroForm::JavaScriptActions do
         assert_equal('1.234,57', value)
       end
 
+      it "works with the special Infinity and NaN values" do
+        @value = 'Infinity'
+        assert_format('2, 2, 0, 0, "", false', "Inf", "black")
+        @value = '-Infinity'
+        assert_format('2, 2, 0, 0, "", false', "-Inf", "black")
+        @value = 'Nan'
+        assert_format('2, 2, 0, 0, "", false', "NaN", "black")
+      end
+
+      it "works if the value is nil" do
+        @value = nil
+        assert_format('2, 2, 0, 0, "", false', "0,00", "black")
+      end
+
       it "does nothing to the value if the JavaScript method could not be determined " do
         assert_format('2, 3, 0, 0, " E", false, a', "1234567.898765", nil)
       end
@@ -244,6 +258,13 @@ describe HexaPDF::Type::AcroForm::JavaScriptActions do
         assert_calculation('SUM', [@field1, @field2], "30.54")
       end
 
+      it "works with the special values Infinity and NaN" do
+        @field1.field_value = "Infinity"
+        assert_calculation('SUM', [@field1, @field2], "Infinity")
+        @field1.field_value = "NaN"
+        assert_calculation('SUM', [@field1, @field2], "NaN")
+      end
+
       it "returns nil if a field cannot be resolved" do
         @action[:JS] = 'AFSimple_Calculate("SUM", ["unknown"]);'
         assert_nil(@klass.calculate(@form, @action))

data/test/hexapdf/type/acro_form/test_text_field.rb

@@ -130,9 +130,12 @@ describe HexaPDF::Type::AcroForm::TextField do
       assert_raises(HexaPDF::Error) { @field.field_value = 'test' }
     end
 
-    it "fails if the value exceeds the length set by /MaxLen" do
+    it "calls acro_form.text_field.on_max_len_exceeded  if the value exceeds the length set by /MaxLen" do
       @field[:MaxLen] = 5
       assert_raises(HexaPDF::Error) { @field.field_value = 'testdf' }
+      @doc.config['acro_form.text_field.on_max_len_exceeded'] = proc {|f, v| v }
+      @field.field_value = 'testdf'
+      assert_equal('testdf', @field[:V])
     end
   end
 
@@ -278,6 +281,9 @@ describe HexaPDF::Type::AcroForm::TextField do
       assert(@field.validate)
       @field[:MaxLen] = 2
       refute(@field.validate)
+      @doc.config['acro_form.text_field.on_max_len_exceeded'] = proc {|field, str| "Hello" }
+      assert(@field.validate)
+      assert_equal('Hello', @field[:V])
       @field[:V] = nil
       assert(@field.validate)
     end