hexapdf 0.1.0

data/test/hexapdf/font/test_encoding.rb

@@ -0,0 +1,27 @@
+# -*- encoding: utf-8 -*-
+
+require 'test_helper'
+require 'hexapdf/font/encoding'
+
+describe HexaPDF::Font::Encoding do
+  describe "::for_name" do
+    it "returns nil if an unsupported encoding is given" do
+      assert_nil(HexaPDF::Font::Encoding.for_name(:some_unknown_encoding))
+    end
+
+    it "returns the requested encoding object" do
+      assert_kind_of(HexaPDF::Font::Encoding::WinAnsiEncoding,
+                     HexaPDF::Font::Encoding.for_name(:WinAnsiEncoding))
+      assert_kind_of(HexaPDF::Font::Encoding::MacRomanEncoding,
+                     HexaPDF::Font::Encoding.for_name(:MacRomanEncoding))
+      assert_kind_of(HexaPDF::Font::Encoding::StandardEncoding,
+                     HexaPDF::Font::Encoding.for_name(:StandardEncoding))
+      assert_kind_of(HexaPDF::Font::Encoding::MacExpertEncoding,
+                     HexaPDF::Font::Encoding.for_name(:MacExpertEncoding))
+      assert_kind_of(HexaPDF::Font::Encoding::SymbolEncoding,
+                     HexaPDF::Font::Encoding.for_name(:SymbolEncoding))
+      assert_kind_of(HexaPDF::Font::Encoding::ZapfDingbatsEncoding,
+                     HexaPDF::Font::Encoding.for_name(:ZapfDingbatsEncoding))
+    end
+  end
+end

data/test/hexapdf/font/test_true_type_wrapper.rb

@@ -0,0 +1,110 @@
+# -*- encoding: utf-8 -*-
+
+require 'test_helper'
+require 'hexapdf/font/true_type_wrapper'
+require 'hexapdf/document'
+
+describe HexaPDF::Font::TrueTypeWrapper do
+  before do
+    @doc = HexaPDF::Document.new
+    font_file = File.join(TEST_DATA_DIR, "fonts", "Ubuntu-Title.ttf")
+    @font = HexaPDF::Font::TrueType::Font.new(io: File.open(font_file))
+    @cmap = @font[:cmap].preferred_table
+    @font_wrapper = HexaPDF::Font::TrueTypeWrapper.new(@doc, @font)
+  end
+
+  after do
+    @font.io.close
+  end
+
+  describe "initialize" do
+    it "fails if the TrueType font has no Unicode cmap table" do
+      @font[:cmap].tables.clear
+      assert_raises(HexaPDF::Error) { HexaPDF::Font::TrueTypeWrapper.new(@doc, @font) }
+    end
+  end
+
+  describe "decode_utf8" do
+    it "returns an array of glyph objects" do
+      assert_equal("Test",
+                   @font_wrapper.decode_utf8("Test").map {|g| @cmap.gid_to_code(g.id)}.pack('U*'))
+    end
+
+    it "UTF-8 characters for which no glyph exists are mapped to the .notdef glyph" do
+      gotten = nil
+      @doc.config['font.on_missing_glyph'] = proc {|c| gotten = c; 0 }
+      assert_equal([0], @font_wrapper.decode_utf8("😁").map(&:id))
+      assert_equal(128513, gotten)
+    end
+  end
+
+  describe "glyph" do
+    it "returns the glyph object for the given id" do
+      glyph = @font_wrapper.glyph(3)
+      assert_equal(3, glyph.id)
+      assert_equal(338, glyph.width)
+      assert(glyph.space?)
+    end
+
+    it "invokes font.on_missing_glyph for missing glyphs" do
+      assert_raises(HexaPDF::Error) { @font_wrapper.glyph(9999) }
+    end
+  end
+
+  describe "encode" do
+    it "returns the PDF font dictionary and the encoded glyph" do
+      dict = @font_wrapper.dict
+
+      code = @font_wrapper.encode(@font_wrapper.glyph(3))
+      assert_equal([3].pack('n'), code)
+      glyph = @font_wrapper.decode_utf8('H').first
+      code = @font_wrapper.encode(glyph)
+      assert_equal([glyph.id].pack('n'), code)
+
+      @doc.dispatch_message(:complete_objects)
+
+      # Checking Type 0 font dictionary
+      assert_equal(:Font, dict[:Type])
+      assert_equal(:Type0, dict[:Subtype])
+      assert_equal(:'Identity-H', dict[:Encoding])
+      assert_equal(1, dict[:DescendantFonts].length)
+      assert_equal(dict[:BaseFont], dict[:DescendantFonts][0][:BaseFont])
+      assert_equal(HexaPDF::Font::CMap.create_to_unicode_cmap([[3, ' '.ord], [glyph.id, 'H'.ord]]),
+                   dict[:ToUnicode].stream)
+
+      # Checking CIDFont dictionary
+      cidfont = dict[:DescendantFonts][0]
+      assert_equal(:Font, cidfont[:Type])
+      assert_equal(:CIDFontType2, cidfont[:Subtype])
+      assert_equal({Registry: "Adobe", Ordering: "Identity", Supplement: 0}, cidfont[:CIDSystemInfo])
+      assert_equal(:Identity, cidfont[:CIDToGIDMap])
+      assert_equal(@font_wrapper.glyph(3).width, cidfont[:DW])
+      assert_equal([glyph.id, [glyph.width]], cidfont[:W])
+
+      # Checking font descriptor
+      fd = cidfont[:FontDescriptor]
+      assert_equal(dict[:BaseFont], fd[:FontName])
+      assert(fd.flagged?(:symbolic))
+      assert(fd.key?(:FontFile2))
+      assert(fd.validate)
+
+      @cmap.stub(:[], nil) do
+        @font[:'OS/2'].typo_ascender = 1000
+        font_wrapper = HexaPDF::Font::TrueTypeWrapper.new(@doc, @font)
+        font_wrapper.encode(glyph)
+        fd = font_wrapper.dict[:DescendantFonts][0][:FontDescriptor]
+        assert_equal(800, fd[:CapHeight])
+        assert_equal(500, fd[:XHeight])
+      end
+
+      @font[:'OS/2'].version = 2
+      @font[:'OS/2'].x_height = 500 * @font[:head].units_per_em / 1000
+      @font[:'OS/2'].cap_height = 1000 * @font[:head].units_per_em / 1000
+      font_wrapper = HexaPDF::Font::TrueTypeWrapper.new(@doc, @font)
+      font_wrapper.encode(glyph)
+      fd = font_wrapper.dict[:DescendantFonts][0][:FontDescriptor]
+      assert_equal(1000, fd[:CapHeight])
+      assert_equal(500, fd[:XHeight])
+    end
+  end
+end

data/test/hexapdf/font/test_type1_wrapper.rb

@@ -0,0 +1,66 @@
+# -*- encoding: utf-8 -*-
+
+require 'test_helper'
+require 'hexapdf/font/type1_wrapper'
+require 'hexapdf/document'
+
+FONT_TIMES = HexaPDF::Font::Type1::Font.from_afm(File.join(HexaPDF.data_dir, 'afm', "Times-Roman.afm"))
+FONT_SYMBOL = HexaPDF::Font::Type1::Font.from_afm(File.join(HexaPDF.data_dir, 'afm', "Symbol.afm"))
+
+describe HexaPDF::Font::Type1Wrapper do
+  before do
+    @doc = HexaPDF::Document.new
+    @times_wrapper = HexaPDF::Font::Type1Wrapper.new(@doc, FONT_TIMES)
+    @symbol_wrapper = HexaPDF::Font::Type1Wrapper.new(@doc, FONT_SYMBOL)
+  end
+
+  describe "decode_utf8" do
+    it "returns an array of glyph objects" do
+      assert_equal([:T, :e, :s, :t], @times_wrapper.decode_utf8("Test").map(&:name))
+    end
+
+    it "UTF-8 characters for which no glyph name exist are mapped to themselves" do
+      gotten = nil
+      @doc.config['font.on_missing_glyph'] = proc {|c| gotten = c; :A }
+      assert_equal([:A], @times_wrapper.decode_utf8("😁").map(&:name))
+      assert_equal("😁", gotten)
+    end
+  end
+
+  describe "glyph" do
+    it "returns the glyph object for the given name" do
+      glyph = @times_wrapper.glyph(:A)
+      assert_equal(:A, glyph.name)
+      assert_equal(722, glyph.width)
+      refute(glyph.space?)
+    end
+
+    it "invokes font.on_missing_glyph for missing glyphs" do
+      assert_raises(HexaPDF::Error) { @times_wrapper.glyph(:ffi) }
+    end
+  end
+
+  describe "encode" do
+    describe "uses WinAnsiEncoding as initial encoding for non-symbolic fonts" do
+      it "returns the PDF font dictionary using WinAnsiEncoding and encoded glyph" do
+        code = @times_wrapper.encode(@times_wrapper.glyph(:a))
+        @doc.dispatch_message(:complete_objects)
+        assert_equal("a", code)
+        assert_equal(:WinAnsiEncoding, @times_wrapper.dict[:Encoding])
+      end
+
+      it "fails if the encoding does not support the given glyph" do
+        assert_raises(HexaPDF::Error) { @times_wrapper.encode(@times_wrapper.glyph(:uring)) }
+      end
+    end
+
+    describe "uses an empty encoding as initial encoding for symbolic fonts" do
+      it "returns the PDF font dictionary and encoded glyph" do
+        code = @symbol_wrapper.encode(@symbol_wrapper.glyph(:plus))
+        @doc.dispatch_message(:complete_objects)
+        assert_equal("\x21", code)
+        assert_equal({Differences: [32, :space, :plus]}, @symbol_wrapper.dict[:Encoding])
+      end
+    end
+  end
+end

data/test/hexapdf/font/true_type/common.rb

@@ -0,0 +1,19 @@
+# -*- encoding: utf-8 -*-
+
+require 'hexapdf/font/true_type/table'
+
+module TestHelper
+
+  class TrueTypeTestTable < HexaPDF::Font::TrueType::Table
+    attr_reader :data
+
+    def parse_table
+      @data = io.read(directory_entry.length)
+    end
+
+    def load_default
+      @data = 'default'
+    end
+  end
+
+end

data/test/hexapdf/font/true_type/table/test_cmap.rb

@@ -0,0 +1,59 @@
+# -*- encoding: utf-8 -*-
+
+require 'test_helper'
+require 'stringio'
+require 'hexapdf/font/true_type/table/cmap'
+
+describe HexaPDF::Font::TrueType::Table::Cmap do
+  before do
+    f0 = [0, 262, 0].pack('n3') + (0..255).to_a.pack('C*')
+    data = [0, 3].pack('n2') << [[0, 1, 28],
+                                 [3, 1, 28 + f0.length],
+                                 [1, 0, 28],
+                                ].map {|a| a.pack('n2N')}.join('') << \
+      f0 << f0
+    io = StringIO.new(data)
+    config = @config = {}
+    @file = Object.new
+    @file.define_singleton_method(:io) { io }
+    @file.define_singleton_method(:config) { config }
+    @entry = HexaPDF::Font::TrueType::Table::Directory::Entry.new('cmap', 0, 0, io.length)
+  end
+
+  describe "initialize" do
+    it "reads the data from the associated file" do
+      table = HexaPDF::Font::TrueType::Table::Cmap.new(@file, @entry)
+      assert_equal(0, table.version)
+      assert_equal(3, table.tables.length)
+    end
+
+    it "ignores unknown subtable when the config option is set to :ignore" do
+      @file.io.string = [0, 1].pack('n2') << [3, 1, 12].pack('n2N') << "\x00\x03"
+      table = HexaPDF::Font::TrueType::Table::Cmap.new(@file, @entry)
+      assert_equal(0, table.tables.length)
+    end
+
+    it "raises an error when an unsupported subtable is found and the option is set to :raise" do
+      @file.io.string = [0, 1].pack('n2') << [3, 1, 12].pack('n2N') << "\x00\x03"
+      @file.config['font.true_type.cmap.unknown_format'] = :raise
+      assert_raises(HexaPDF::Error) { HexaPDF::Font::TrueType::Table::Cmap.new(@file, @entry) }
+    end
+
+    it "loads some default values if no entry is given" do
+      table = HexaPDF::Font::TrueType::Table::Cmap.new(@file)
+      assert_equal(0, table.version)
+      assert_equal([], table.tables)
+    end
+
+    it "loads data from subtables with identical offsets only once" do
+      table = HexaPDF::Font::TrueType::Table::Cmap.new(@file, @entry)
+      assert_same(table.tables[0].gid_map, table.tables[2].gid_map)
+      refute_same(table.tables[0].gid_map, table.tables[1].gid_map)
+    end
+  end
+
+  it "returns the preferred table" do
+    table = HexaPDF::Font::TrueType::Table::Cmap.new(@file, @entry)
+    assert_equal(table.tables[1], table.preferred_table)
+  end
+end

data/test/hexapdf/font/true_type/table/test_cmap_subtable.rb

@@ -0,0 +1,133 @@
+# -*- encoding: utf-8 -*-
+
+require 'test_helper'
+require 'stringio'
+require 'hexapdf/font/true_type/table/cmap_subtable'
+
+describe HexaPDF::Font::TrueType::Table::CmapSubtable do
+  before do
+    @klass = HexaPDF::Font::TrueType::Table::CmapSubtable
+  end
+
+  describe "initialize" do
+    it "uses default values" do
+      t = @klass.new(3, 1)
+      assert_equal(3, t.platform_id)
+      assert_equal(1, t.encoding_id)
+      assert_nil(t.format)
+      assert_equal(0, t.language)
+    end
+  end
+
+  describe "unicode?" do
+    it "identifies (0,x), (3,1) and (3,10) as unicode" do
+      assert(@klass.new(0, 1).unicode?)
+      assert(@klass.new(0, 5).unicode?)
+      assert(@klass.new(3, 1).unicode?)
+      assert(@klass.new(3, 10).unicode?)
+      refute(@klass.new(1, 0).unicode?)
+      refute(@klass.new(3, 0).unicode?)
+    end
+  end
+
+  describe "inspect" do
+    it "can represent itself nicely" do
+      assert_equal("#<#{@klass.name} (3, 1, 0, nil)>", @klass.new(3, 1).inspect)
+    end
+  end
+
+  describe "parse" do
+    def table(data)
+      @klass.new(3, 1).tap {|obj| obj.parse(StringIO.new(data), 0)}
+    end
+
+    it "works for format 0" do
+      t = table([0, 262, 0].pack('n3') + [255].pack('C*') + (0..254).to_a.pack('C*'))
+      assert_equal(255, t[0])
+      assert_equal(233, t[234])
+      assert_nil(t[256])
+
+      assert_equal(0, t.gid_to_code(255))
+      assert_equal(234, t.gid_to_code(233))
+    end
+
+    it "works for format 2" do
+      f2 = ([0, 8] + [0] * 254).pack('n*') + \
+        [[0, 256, 0, 2 + 8], [0x33, 3, 5, 2 + 256 * 2]].map {|a| a.pack('n2s>n')}.join('') + \
+        ((0..255).to_a + [35, 65534, 0]).pack('n*')
+      t = table([2, f2.length + 6, 0].pack('n3') << f2)
+      assert_nil(t[0x0132])
+      assert_equal(40, t[0x0133])
+      assert_equal(3, t[0x0134])
+      assert_nil(t[0x0135])
+      assert_nil(t[0x0136])
+      assert_equal(16, t[0x1036])
+      assert_nil(t[0xfffff])
+
+      assert_equal(0x0133, t.gid_to_code(40))
+      assert_equal(0x0134, t.gid_to_code(3))
+      assert_equal(16, t.gid_to_code(16))
+    end
+
+    it "works for format 4" do
+      f4 = [6, 8, 2, 4,  35, 134, 65535,  0,  30, 133, 65535,  100, 110, 120,
+            0, 6, 2, 65500, 0, 1].pack('n*')
+      t = table([4, f4.length + 6, 0].pack('n3') << f4)
+      assert_nil(t[25])
+      assert_equal(130, t[30])
+      assert_equal(133, t[33])
+      assert_equal(135, t[35])
+      assert_nil(t[36])
+      assert_nil(t[133])
+      assert_equal(111, t[134])
+      assert_equal(84, t[65535])
+      assert_nil(t[70000])
+
+      assert_equal(30, t.gid_to_code(130))
+      assert_equal(33, t.gid_to_code(133))
+      assert_equal(35, t.gid_to_code(135))
+      assert_equal(134, t.gid_to_code(111))
+      assert_equal(65535, t.gid_to_code(84))
+    end
+
+    it "works for format 6" do
+      t = table(([6, 30, 0, 1024, 10] + (1..10).to_a).pack('n*'))
+      assert_nil(t[0])
+      assert_equal(1, t[1024])
+      assert_equal(7, t[1030])
+      assert_equal(10, t[1033])
+      assert_nil(t[1034])
+
+      assert_equal(1033, t.gid_to_code(10))
+    end
+
+    it "works for format 10" do
+      t = table([10, 0].pack('n2') + [40, 0, 1024, 10].pack('N*') + (1..10).to_a.pack('n*'))
+      assert_nil(t[234])
+      assert_equal(1, t[1024])
+      assert_equal(7, t[1030])
+      assert_equal(10, t[1033])
+      assert_nil(t[1034])
+
+      assert_equal(1033, t.gid_to_code(10))
+    end
+
+    it "works for format 12" do
+      t = table([12, 0].pack('n2') + [40, 0, 2, 35, 38, 1000, 70000, 90000, 80000].pack('N*'))
+      assert_nil(t[30])
+      assert_equal(1000, t[35])
+      assert_equal(1003, t[38])
+      assert_equal(100_000, t[90_000])
+      assert_nil(t[90_001])
+
+      assert_equal(35, t.gid_to_code(1000))
+      assert_equal(38, t.gid_to_code(1003))
+      assert_equal(90_000, t.gid_to_code(100_000))
+    end
+
+    it "returns false if a format is not supported" do
+      refute(@klass.new(3, 1).parse(StringIO.new("\x00\x03".b), 0))
+    end
+
+  end
+end

data/test/hexapdf/font/true_type/table/test_directory.rb

@@ -0,0 +1,35 @@
+# -*- encoding: utf-8 -*-
+
+require 'test_helper'
+require 'hexapdf/font/true_type/table/directory'
+
+describe HexaPDF::Font::TrueType::Table::Directory do
+  before do
+    io = StringIO.new("TEST\x00\x01\x00\x00\x00\x00\x00\x00" \
+                      "CUST----\x00\x00\x00\x1C\x00\x00\x00\x05ENTRY".b)
+    @file = Object.new
+    @file.define_singleton_method(:io) { io }
+    @self_entry = HexaPDF::Font::TrueType::Table::Directory::SELF_ENTRY
+  end
+
+  it "has a dummy entry referring to itself" do
+    assert_equal(0, @self_entry.offset)
+    assert_equal(12, @self_entry.length)
+  end
+
+  describe "initialize" do
+    it "loads the table entries from the IO" do
+      dir = HexaPDF::Font::TrueType::Table::Directory.new(@file, @self_entry)
+      entry = dir.entry('CUST')
+      assert_equal('CUST', entry.tag)
+      assert_equal('----'.unpack('N').first, entry.checksum)
+      assert_equal(28, entry.offset)
+      assert_equal(5, entry.length)
+    end
+
+    it "loads the default values if no entry is given" do
+      dir = HexaPDF::Font::TrueType::Table::Directory.new(@file)
+      assert_equal(0, dir.instance_eval { @tables }.length)
+    end
+  end
+end

data/test/hexapdf/font/true_type/table/test_glyf.rb

@@ -0,0 +1,58 @@
+# -*- encoding: utf-8 -*-
+
+require 'test_helper'
+require 'stringio'
+require 'hexapdf/font/true_type/table/glyf'
+
+describe HexaPDF::Font::TrueType::Table::Glyf do
+  before do
+    @file = Object.new
+    loca = HexaPDF::Font::TrueType::Table::Loca.new(@file)
+    loca.offsets = [0, 0]
+    data = [1, -10, -20, 100, 150].pack('s>5')
+    loca.offsets << data.size
+    data << [-1, 10, 20, -100, -150].pack('s>5')
+    data << [0b00100000, 1, 20, 30].pack('n2C2')
+    data << [0b00101001, 2, 20, 30, 40].pack('n2n2n')
+    data << [0b01100001, 3, 20, 30, 40, 50].pack('n2n2n2')
+    data << [0b10100001, 4, 20, 30, 40, 50, 60, 70].pack('n2n2n4')
+    data << [0b00000000, 1, 20, 30].pack('n2C2')
+    loca.offsets << data.size
+    @file.define_singleton_method(:io) { @io ||= StringIO.new(data) }
+    @file.define_singleton_method(:[]) {|_arg| loca }
+    @entry = HexaPDF::Font::TrueType::Table::Directory::Entry.new('glyf', 0, 0, @file.io.length)
+  end
+
+  describe "initialize" do
+    it "reads the data from the associated file" do
+      table = HexaPDF::Font::TrueType::Table::Glyf.new(@file, @entry)
+      glyph = table[0]
+      refute(glyph.compound?)
+      assert_equal(0, glyph.number_of_contours)
+
+      glyph = table[1]
+      refute(glyph.compound?)
+      assert_equal(1, glyph.number_of_contours)
+      assert_equal(-10, glyph.x_min)
+      assert_equal(-20, glyph.y_min)
+      assert_equal(100, glyph.x_max)
+      assert_equal(150, glyph.y_max)
+      assert_same(glyph, table[1])
+
+      glyph = table[2]
+      assert(glyph.compound?)
+      assert_equal(-1, glyph.number_of_contours)
+      assert_equal(10, glyph.x_min)
+      assert_equal(20, glyph.y_min)
+      assert_equal(-100, glyph.x_max)
+      assert_equal(-150, glyph.y_max)
+      assert_equal([1, 2, 3, 4, 1], glyph.components)
+    end
+
+    it "loads some default values if no entry is given" do
+      table = HexaPDF::Font::TrueType::Table::Glyf.new(@file)
+      assert_equal({}, table.glyphs)
+      assert_nil(table[0])
+    end
+  end
+end

data/test/hexapdf/font/true_type/table/test_head.rb

@@ -0,0 +1,76 @@
+# -*- encoding: utf-8 -*-
+
+require 'test_helper'
+require 'stringio'
+require 'hexapdf/font/true_type/table/head'
+
+describe HexaPDF::Font::TrueType::Table::Head do
+  before do
+    data = [1, 0, 2, 6554, 0, 42, 0x5f0f, 0x3CF5, 3, 64].pack('n*')
+    @time = Time.new(2016, 05, 01)
+    data << ([(@time - HexaPDF::Font::TrueType::Table::TIME_EPOCH).to_i] * 2).pack('Q>*')
+    data << [-132, -152, 3423, 4231, 3, 9, -2, 0, 0].pack('s>4n2s>3')
+    io = StringIO.new(data)
+    @file = Object.new
+    @file.define_singleton_method(:io) { io }
+    @entry = HexaPDF::Font::TrueType::Table::Directory::Entry.new('head', 0, 0, io.length)
+  end
+
+  describe "initialize" do
+    it "reads the data from the associated file" do
+      table = HexaPDF::Font::TrueType::Table::Head.new(@file, @entry)
+      assert_equal('1.0', '%1.1f' % table.version)
+      assert_equal('2.1', '%1.1f' % table.font_revision)
+      assert_equal(42, table.checksum_adjustment)
+      assert_equal(3, table.flags)
+      assert_equal(64, table.units_per_em)
+      assert_equal(@time, table.created)
+      assert_equal(@time, table.modified)
+      assert_equal([-132, -152, 3423, 4231], table.bbox)
+      assert_equal(3, table.mac_style)
+      assert_equal(9, table.smallest_readable_size)
+      assert_equal(-2, table.font_direction_hint)
+      assert_equal(0, table.index_to_loc_format)
+    end
+
+    it "loads some default values if no entry is given" do
+      table = HexaPDF::Font::TrueType::Table::Head.new(@file)
+      assert_equal(1.0, table.version.to_f)
+      assert_equal(1.0, table.font_revision.to_f)
+      assert_equal(0, table.checksum_adjustment)
+      assert_equal(0, table.flags)
+      assert_equal(64, table.units_per_em)
+      assert(Time.now - table.created < 2)
+      assert(Time.now - table.created < 2)
+      assert_equal([0, 0, 0, 0], table.bbox)
+      assert_equal(0, table.mac_style)
+      assert_equal(0, table.smallest_readable_size)
+      assert_equal(0, table.font_direction_hint)
+      assert_equal(0, table.index_to_loc_format)
+    end
+
+    it "raises an error if the magic number is false when reading from a file" do
+      @file.io.string[12, 1] = '\x5e'
+      assert_raises(HexaPDF::Error) { HexaPDF::Font::TrueType::Table::Head.new(@file, @entry) }
+    end
+
+    it "raises an error if an invalid glyph format is specified when reading from a file" do
+      @file.io.string[-1] = '\x5e'
+      assert_raises(HexaPDF::Error) { HexaPDF::Font::TrueType::Table::Head.new(@file, @entry) }
+    end
+  end
+
+  describe "checksum_valid?" do
+    it "checks whether an entry's checksum is valid" do
+      @file.io.string = 254.chr * 12 + [0x5F0F3CF5].pack('N') + 254.chr * 36 + 0.chr * 4
+      @entry.checksum = (0xfefefefe * 11 + 0x5F0F3CF5) % 2**32
+      @entry.length = @file.io.string.length
+      table = HexaPDF::Font::TrueType::Table::Head.new(@file, @entry)
+      assert(table.checksum_valid?)
+    end
+
+    it "raises an error if the checksum can't be verified because none is available" do
+      assert_raises(HexaPDF::Error) { HexaPDF::Font::TrueType::Table::Head.new(@file).checksum_valid? }
+    end
+  end
+end

data/test/hexapdf/font/true_type/table/test_hhea.rb

@@ -0,0 +1,40 @@
+# -*- encoding: utf-8 -*-
+
+require 'test_helper'
+require 'stringio'
+require 'hexapdf/font/true_type/table/hhea'
+
+describe HexaPDF::Font::TrueType::Table::Hhea do
+  before do
+    data = [1, 0, 10, 11, 12, 100, 101, 102, 115, 1, 0, 0, 0, 0, 0, 0, 0, 10].pack('n2s>3ns>11n')
+    io = StringIO.new(data)
+    @file = Object.new
+    @file.define_singleton_method(:io) { io }
+    @entry = HexaPDF::Font::TrueType::Table::Directory::Entry.new('hhea', 0, 0, io.length)
+  end
+
+  describe "initialize" do
+    it "reads the data from the associated file" do
+      table = HexaPDF::Font::TrueType::Table::Hhea.new(@file, @entry)
+      assert_equal(1, table.version)
+      assert_equal(10, table.ascent)
+      assert_equal(11, table.descent)
+      assert_equal(12, table.line_gap)
+      assert_equal(100, table.advance_width_max)
+      assert_equal(101, table.min_left_side_bearing)
+      assert_equal(102, table.min_right_side_bearing)
+      assert_equal(115, table.x_max_extent)
+      assert_equal(1, table.caret_slope_rise)
+      assert_equal(0, table.caret_slope_run)
+      assert_equal(0, table.caret_offset)
+      assert_equal(10, table.num_of_long_hor_metrics)
+    end
+
+    it "loads some default values if no entry is given" do
+      table = HexaPDF::Font::TrueType::Table::Hhea.new(@file)
+      assert_equal(1, table.version)
+      assert_equal(0, table.ascent)
+      assert_equal(0, table.descent)
+    end
+  end
+end

data/test/hexapdf/font/true_type/table/test_hmtx.rb

@@ -0,0 +1,38 @@
+# -*- encoding: utf-8 -*-
+
+require 'test_helper'
+require 'stringio'
+require 'hexapdf/font/true_type/table/hhea'
+require 'hexapdf/font/true_type/table/hmtx'
+
+describe HexaPDF::Font::TrueType::Table::Hhea do
+  before do
+    data = [1, -2, 3, -4, 5, -6].pack('ns>ns>s>2')
+    io = StringIO.new(data)
+    @file = Object.new
+    @file.define_singleton_method(:io) { io }
+    hhea = HexaPDF::Font::TrueType::Table::Hhea.new(@file)
+    hhea.num_of_long_hor_metrics = 2
+    @file.define_singleton_method(:[]) {|_arg| hhea }
+    @entry = HexaPDF::Font::TrueType::Table::Directory::Entry.new('hmtx', 0, 0, io.length)
+  end
+
+  describe "initialize" do
+    it "reads the data from the associated file" do
+      table = HexaPDF::Font::TrueType::Table::Hmtx.new(@file, @entry)
+      assert_equal(1, table[0].advance_width)
+      assert_equal(-2, table[0].left_side_bearing)
+      assert_equal(3, table[1].advance_width)
+      assert_equal(-4, table[1].left_side_bearing)
+      assert_equal(3, table[2].advance_width)
+      assert_equal(5, table[2].left_side_bearing)
+      assert_equal(3, table[3].advance_width)
+      assert_equal(-6, table[3].left_side_bearing)
+    end
+
+    it "loads some default values if no entry is given" do
+      table = HexaPDF::Font::TrueType::Table::Hmtx.new(@file)
+      assert_equal([], table.horizontal_metrics)
+    end
+  end
+end