hexapdf 0.17.1 → 0.17.2

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

@@ -0,0 +1,308 @@
+# -*- encoding: utf-8 -*-
+
+require 'test_helper'
+require_relative '../../content/common'
+require 'hexapdf/document'
+require 'hexapdf/type/acro_form/button_field'
+
+describe HexaPDF::Type::AcroForm::ButtonField do
+  before do
+    @doc = HexaPDF::Document.new
+    @field = @doc.add({FT: :Btn, T: 'button'}, type: :XXAcroFormField, subtype: :Btn)
+  end
+
+  it "can be initialized as push button" do
+    @field.initialize_as_push_button
+    assert_nil(@field[:V])
+    assert(@field.push_button?)
+  end
+
+  it "can be initialized as check box" do
+    @field.initialize_as_check_box
+    assert_equal(:Off, @field[:V])
+    assert(@field.check_box?)
+  end
+
+  it "can be initialized as radio button" do
+    @field.initialize_as_radio_button
+    assert_equal(:Off, @field[:V])
+    assert_equal(1 << 15, @field[:Ff])
+  end
+
+  describe "push button" do
+    before do
+      @field.flag(:push_button)
+    end
+
+    it "can be asked whether it is a push button field" do
+      @field.flag(:push_button)
+      assert(@field.push_button?)
+    end
+
+    it "always returns nil when getting the field value" do
+      @field[:V] = :test
+      assert_nil(@field.field_value)
+    end
+
+    it "doesn't set a field value" do
+      @field.field_value = :test
+      assert_nil(@field[:V])
+    end
+
+    it "returns the correct concrete field type" do
+      assert_equal(:push_button, @field.concrete_field_type)
+    end
+
+    it "applies sensible default values when creating a widget" do
+      widget = @field.create_widget(@doc.pages.add)
+      border_style = widget.border_style
+      assert_equal([0], border_style.color.components)
+      assert_equal(1, border_style.width)
+      assert_equal(:beveled, border_style.style)
+      assert_equal([0.5], widget.background_color.components)
+    end
+  end
+
+  describe "check box" do
+    before do
+      @field.unflag(:push_button)
+      @field.unflag(:radio)
+    end
+
+    it "can be asked whether it is a check box field" do
+      assert(@field.check_box?)
+    end
+
+    it "returns a correct field value" do
+      refute(@field.field_value)
+      @field[:V] = :Off
+      refute(@field.field_value)
+      @field[:V] = :Yes
+      assert_equal(:Yes, @field.field_value)
+    end
+
+    it "sets a correct field value" do
+      @field.create_widget(@doc.pages.add, value: :check)
+      @field.field_value = true
+      assert_equal(:check, @field[:V])
+      @field.field_value = false
+      assert_equal(:Off, @field[:V])
+      @field.field_value = "check"
+      assert_equal(:check, @field[:V])
+      assert_raises(HexaPDF::Error) { @field.field_value = :unknown }
+    end
+
+    it "returns the correct concrete field type" do
+      assert_equal(:check_box, @field.concrete_field_type)
+    end
+
+    it "updates the widgets after setting the field value" do
+      widget = @field.create_widget(@doc.pages.add, value: :check)
+      @field.field_value = true
+      assert_equal(:check, widget[:AS])
+    end
+
+    it "returns an array of allowed values" do
+      @field.create_widget(@doc.pages.add, value: "Test")
+      @field.create_widget(@doc.pages.add, value: "Test")
+      @field.create_widget(@doc.pages.add, value: :x)
+      assert_equal([:Test, :x], @field.allowed_values)
+    end
+
+    it "applies sensible default values when creating a widget" do
+      widget = @field.create_widget(@doc.pages.add)
+      assert_equal({Yes: nil, Off: nil}, widget[:AP][:N].value)
+      border_style = widget.border_style
+      assert_equal([0], border_style.color.components)
+      assert_equal(1, border_style.width)
+      assert_equal(:solid, border_style.style)
+      assert_equal([1], widget.background_color.components)
+      assert_equal(:check, widget.marker_style.style)
+    end
+
+    it "fails if the value argument for create_widget doesn't respond to to_sym" do
+      assert_raises(ArgumentError) { @field.create_widget(@doc.pages.add, value: 5) }
+    end
+  end
+
+  describe "radio button" do
+    before do
+      @field.unflag(:push_button)
+      @field.flag(:radio)
+    end
+
+    it "can be asked whether it is a radio button field" do
+      assert(@field.radio_button?)
+    end
+
+    it "returns a correct field value" do
+      assert_nil(@field.field_value)
+      @field[:V] = :Off
+      assert_nil(@field.field_value)
+      @field[:V] = :name
+      assert_equal(:name, @field.field_value)
+    end
+
+    it "sets a correct field value" do
+      @field.create_widget(@doc.pages.add, value: :button1)
+
+      @field.field_value = "button1"
+      assert_equal(:button1, @field[:V])
+      @field.field_value = nil
+      assert_equal(:Off, @field[:V])
+      assert_raises(HexaPDF::Error) { @field.field_value = :unknown }
+    end
+
+    it "returns the correct concrete field type" do
+      assert_equal(:radio_button, @field.concrete_field_type)
+    end
+
+    it "updates the widgets after setting the field value" do
+      widget = @field.create_widget(@doc.pages.add, value: :Test)
+      @field.field_value = :Test
+      assert_equal(:Test, widget[:AS])
+    end
+
+    it "returns an array of allowed values" do
+      @field.create_widget(@doc.pages.add, value: "Test")
+      @field.create_widget(@doc.pages.add, value: :x)
+      @field.create_widget(@doc.pages.add, value: :y)
+      assert_equal([:Test, :x, :y], @field.allowed_values)
+    end
+
+    it "applies sensible default values when creating a widget" do
+      widget = @field.create_widget(@doc.pages.add, value: 'test')
+      border_style = widget.border_style
+      assert_equal([0], border_style.color.components)
+      assert_equal(1, border_style.width)
+      assert_equal(:solid, border_style.style)
+      assert_equal([1], widget.background_color.components)
+      assert_equal(:circle, widget.marker_style.style)
+      assert_equal({test: nil, Off: nil}, widget[:AP][:N].value)
+    end
+
+    it "always creates standalone widgets" do
+      refute_same(@field.data, @field.create_widget(@doc.pages.add, value: 'test'))
+    end
+
+    it "fails if the value argument is not provided for create_widget" do
+      assert_raises(ArgumentError) { @field.create_widget(@doc.pages.add) }
+    end
+
+    it "fails if the value argument for create_widget doesn't respond to to_sym" do
+      assert_raises(ArgumentError) { @field.create_widget(@doc.pages.add, value: 5) }
+    end
+  end
+
+  it "returns a default field value" do
+    assert_method_invoked(@field, :normalized_field_value, [:DV]) do
+      @field.default_field_value
+    end
+  end
+
+  it "sets a default field value" do
+    assert_method_invoked(@field, :normalized_field_value_set, [:DV, :value]) do
+      @field.default_field_value = :value
+    end
+  end
+
+  it "resolves /Opt as inheritable field" do
+    @field[:Parent] = {Opt: 5}
+    assert_equal(5, @field[:Opt])
+
+    @field[:Opt] = 6
+    assert_equal(6, @field[:Opt])
+  end
+
+  describe "create_appearances" do
+    it "works for check boxes" do
+      @field.create_widget(@doc.pages.add, Rect: [0, 0, 0, 0])
+      @field.create_appearances
+      assert(@field[:AP][:N][:Yes])
+    end
+
+    it "works for radio buttons" do
+      @field.initialize_as_radio_button
+      widget = @field.create_widget(@doc.pages.add, Rect: [0, 0, 0, 0], value: :test)
+      @field.create_appearances
+      assert(widget[:AP][:N][:test])
+    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
+      yes = widget.appearance_dict.normal_appearance[:Yes]
+      off = widget.appearance_dict.normal_appearance[:Off]
+      @field.create_appearances
+      assert_same(yes, widget.appearance_dict.normal_appearance[:Yes])
+      assert_same(off, widget.appearance_dict.normal_appearance[:Off])
+
+      @field.delete_widget(widget)
+      @field.flag(:push_button)
+      widget = @field.create_widget(@doc.pages.add, Rect: [0, 0, 0, 0], AP: {N: @doc.wrap({}, stream: '')})
+      appearance = widget.appearance_dict.normal_appearance
+      @field.create_appearances
+      assert_same(appearance, widget.appearance_dict.normal_appearance)
+    end
+
+    it "always generates appearances if force is true" do
+      widget = @field.create_widget(@doc.pages.add, Rect: [0, 0, 0, 0])
+      @field.create_appearances
+      yes = widget.appearance_dict.normal_appearance[:Yes]
+      @field.create_appearances(force: true)
+      refute_same(yes, widget.appearance_dict.normal_appearance[:Yes])
+    end
+
+    it "fails for unsupported button types" 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 }
+    end
+  end
+
+  describe "update_widgets" do
+    it "does nothing for push buttons" do
+      @field.flag(:push_button)
+      widget = @field.create_widget(@doc.pages.add, Rect: [0, 0, 0, 0])
+      @field.update_widgets
+      assert_nil(widget[:AS])
+    end
+
+    it "sets the /AS entry correctly" do
+      widget = @field.create_widget(@doc.pages.add, Rect: [0, 0, 0, 0])
+      assert_nil(widget[:AS])
+      @field.update_widgets
+      assert_equal(:Off, widget[:AS])
+
+      @field[:V] = :Yes
+      @field.update_widgets
+      assert_equal(:Yes, widget[:AS])
+    end
+
+    it "creates the appearances if necessary" do
+      widget = @field.create_widget(@doc.pages.add, Rect: [0, 0, 0, 0])
+      assert_nil(widget[:AP][:N][:Yes])
+      @field.update_widgets
+      assert(widget[:AP][:N][:Yes])
+    end
+  end
+
+  describe "validation" do
+    it "checks the value of the /FT field" do
+      @field.delete(:FT)
+      refute(@field.validate(auto_correct: false))
+      assert(@field.validate)
+      assert_equal(:Btn, @field.field_type)
+    end
+
+    it "sets the field value to :Off it it is not set" do
+      assert(@field.validate)
+      assert_equal(:Off, @field[:V])
+    end
+  end
+end

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

@@ -0,0 +1,220 @@
+# -*- encoding: utf-8 -*-
+
+require 'test_helper'
+require 'hexapdf/document'
+require 'hexapdf/type/acro_form/choice_field'
+
+describe HexaPDF::Type::AcroForm::ChoiceField do
+  before do
+    @doc = HexaPDF::Document.new
+    @field = @doc.add({FT: :Ch, T: 'choice'}, type: :XXAcroFormField, subtype: :Ch)
+  end
+
+  it "can be initialized as list box" do
+    @field.initialize_as_list_box
+    assert_nil(@field[:V])
+    assert(@field.list_box?)
+  end
+
+  it "can be initialized as combo box" do
+    @field.initialize_as_combo_box
+    assert_nil(@field[:V])
+    assert(@field.combo_box?)
+  end
+
+  describe "field_value" do
+    it "returns the correct Unicode string value" do
+      @field[:V] = "H\xe4llo".b
+      assert_equal("Hällo", @field.field_value)
+    end
+
+    it "returns an array of Unicode string values" do
+      @field[:V] = ["H\xe4llo".b, "\xFE\xFF".b << "Óthér".encode('UTF-16BE').b]
+      assert_equal(["Hällo", "Óthér"], @field.field_value)
+    end
+  end
+
+  describe "field_value=" do
+    before do
+      @field.option_items = ["test", "something", "other", "neu"]
+    end
+
+    it "updates the widgets to reflect the changed value" do
+      @field.initialize_as_combo_box
+      widget = @field.create_widget(@doc.pages.add, Rect: [0, 0, 0, 0])
+      @field.set_default_appearance_string
+      @field.field_value = 'test'
+      assert(widget[:AP][:N])
+    end
+
+    describe "combo_box" do
+      before do
+        @field.initialize_as_combo_box
+        @field[:I] = 2
+      end
+
+      it "can set the value for an uneditable combo box" do
+        @field.field_value = 'test'
+        assert_equal("test", @field[:V])
+        assert_nil(@field[:I])
+      end
+
+      it "can set the value for an editable combo box" do
+        @field.flag(:edit)
+        @field.field_value = 'another'
+        assert_equal("another", @field[:V])
+        assert_nil(@field[:I])
+      end
+
+      it "fails if mulitple values are provided for a combo box" do
+        assert_raises(HexaPDF::Error) { @field.field_value = ['a', 'b'] }
+      end
+
+      it "fails if an unlisted value is specified for an uneditable combo box" do
+        assert_raises(HexaPDF::Error) { @field.field_value = 'a' }
+      end
+    end
+
+    describe "list_box" do
+      before do
+        @field.initialize_as_list_box
+      end
+
+      it "can set a single value" do
+        @field.field_value = 'test'
+        assert_equal("test", @field[:V])
+      end
+
+      it "can set a multiple values if the list box is a multi-select" do
+        @field.flag(:multi_select)
+        @field.field_value = ['other', 'test']
+        assert_equal(['other', 'test'], @field[:V].value)
+        assert_equal([0, 2], @field[:I].value)
+      end
+
+      it "can read and set the top index" do
+        assert_raises(ArgumentError) { @field.list_box_top_index = 4 }
+        @field.delete(:Opt)
+        assert_raises(ArgumentError) { @field.list_box_top_index = 0 }
+        @field.option_items = [1, 2, 3, 4]
+        @field.list_box_top_index = 2
+        assert_equal(2, @field.list_box_top_index)
+      end
+
+      it "fails if mulitple values are provided but the list box is not a multi-select" do
+        assert_raises(HexaPDF::Error) { @field.field_value = ['a', 'b'] }
+      end
+
+      it "fails if an unlisted value is specified" do
+        assert_raises(HexaPDF::Error) { @field.field_value = 'a' }
+      end
+    end
+  end
+
+  it "sets and returns the default field value" do
+    @field.option_items = ["hällo"]
+    @field.default_field_value = 'hällo'
+    assert_equal('hällo', @field.default_field_value)
+    assert_raises(HexaPDF::Error) { @field.default_field_value = 'unknown' }
+  end
+
+  describe "option items" do
+    before do
+      @items = [["a", "Zx"], "\xFE\xFF".b << "Töne".encode('UTF-16BE').b, "H\xe4llo".b,]
+    end
+
+    it "sets the option items" do
+      @field.option_items = @items
+      assert_equal(@items, @field[:Opt].value)
+
+      @field.flag(:sort)
+      @field.option_items = @items
+      assert_equal(@items.values_at(2, 1, 0), @field[:Opt].value)
+    end
+
+    it "can retrieve the option items" do
+      @field[:Opt] = @items
+      assert_equal(["Zx", "Töne", "Hällo"], @field.option_items)
+    end
+
+    it "can retrieve the export values" do
+      @field[:Opt] = @items
+      assert_equal(["a", "Töne", "Hällo"], @field.export_values)
+    end
+  end
+
+  it "returns the correct concrete field type" do
+    assert_equal(:list_box, @field.concrete_field_type)
+    @field.initialize_as_combo_box
+    assert_equal(:combo_box, @field.concrete_field_type)
+  end
+
+  describe "create_appearances" do
+    before do
+      @widget = @field.create_widget(@doc.pages.add, Rect: [0, 0, 0, 0])
+    end
+
+    it "works for combo box fields" do
+      @field.initialize_as_combo_box
+      @field.set_default_appearance_string
+      @field.create_appearances
+      assert(@field[:AP][:N])
+    end
+
+    it "works for list box fields" do
+      @field.initialize_as_list_box
+      @field.set_default_appearance_string
+      @field.create_appearances
+      assert(@field[:AP][:N])
+    end
+
+    it "only creates a new appearance if the involved dictionary values have changed per widget" do
+      @field.initialize_as_list_box
+      @field.set_default_appearance_string
+      @field.create_appearances
+      appearance_stream = @field[:AP][:N].raw_stream
+
+      @field.create_appearances
+      assert_same(appearance_stream, @field[:AP][:N].raw_stream)
+
+      do_check = lambda do
+        @field.create_appearances
+        refute_same(appearance_stream, @field[:AP][:N].raw_stream)
+        appearance_stream = @field[:AP][:N].raw_stream
+      end
+
+      @field.option_items = ['a', 'b', 'c']
+      do_check.call
+
+      @field.list_box_top_index = 2
+      do_check.call
+
+      @field.field_value = 'b'
+      do_check.call
+
+      widget = @field.create_widget(@doc.pages.add, Rect: [0, 0, 0, 0])
+      assert_nil(widget[:AP])
+      @field.create_appearances
+      refute_nil(widget[:AP][:N])
+    end
+
+    it "force the creation of appearance streams when force: true" do
+      @field.initialize_as_list_box
+      @field.set_default_appearance_string
+      @field.create_appearances
+      appearance_stream = @field[:AP][:N].raw_stream
+
+      @field.create_appearances(force: true)
+      refute_same(appearance_stream, @field[:AP][:N].raw_stream)
+    end
+  end
+
+  describe "validation" do
+    it "checks the value of the /FT field" do
+      @field.delete(:FT)
+      refute(@field.validate(auto_correct: false))
+      assert(@field.validate)
+      assert_equal(:Ch, @field.field_type)
+    end
+  end
+end