writeexcel 0.1.0

data/test/test_32_validation_dv_formula.rb

@@ -0,0 +1,211 @@
+##########################################################################
+# test_32_validation_dv_formula.rb
+#
+# Tests for the Excel DVAL structure used in data validation.
+#
+# reverse('©'), September 2005, John McNamara, jmcnamara@cpan.org
+#
+# original written in Perl by John McNamara
+# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
+#
+#########################################################################
+$LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
+
+require "test/unit"
+require 'writeexcel'
+
+class TC_validation_dv_formula < Test::Unit::TestCase
+
+  def setup
+    t = Time.now.strftime("%Y%m%d")
+    path = "temp#{t}-#{$$}-#{rand(0x100000000).to_s(36)}"
+    @test_file           = File.join(Dir.tmpdir, path)
+    @workbook   = Spreadsheet::WriteExcel.new(@test_file)
+    @worksheet  = @workbook.add_worksheet
+    @worksheet2 = @workbook.add_worksheet
+  end
+
+  def teardown
+    @workbook.close
+    File.unlink(@test_file) if FileTest.exist?(@test_file)
+  end
+
+  def test_integer_values
+    formula      = '10'
+
+    caption    = " \tData validation: _pack_dv_formula('#{formula}')"
+    bytes      = %w(
+                    03 00 00 E0 1E 0A 00
+                 )
+
+    # Zero out Excel's random unused word to allow comparison.
+    bytes[2]   = '00'
+    bytes[3]   = '00'
+    target     = bytes.join(" ")
+
+    result     = unpack_record(@worksheet.pack_dv_formula(formula))
+    assert_equal(target, result, caption)
+  end
+
+  def test_decimal_values
+    formula      = '1.2345'
+
+    caption    = " \tData validation: _pack_dv_formula('#{formula}')"
+    bytes      = %w(
+                    09 00 E0 3F 1F 8D 97 6E 12 83 C0 F3 3F
+                 )
+
+    # Zero out Excel's random unused word to allow comparison.
+    bytes[2]   = '00'
+    bytes[3]   = '00'
+    target     = bytes.join(" ")
+
+    result     = unpack_record(@worksheet.pack_dv_formula(formula))
+    assert_equal(target, result, caption)
+  end
+
+  def test_date_values
+    formula      = @worksheet.convert_date_time('2008-07-24T')
+
+    caption    = " \tData validation: _pack_dv_formula('2008-07-24T')"
+    bytes      = %w(
+                    03 00 E0 3F 1E E5 9A
+                 )
+
+    # Zero out Excel's random unused word to allow comparison.
+    bytes[2]   = '00'
+    bytes[3]   = '00'
+    target     = bytes.join(" ")
+
+    result     = unpack_record(@worksheet.pack_dv_formula(formula))
+    assert_equal(target, result, caption)
+  end
+
+  def test_time_values
+    formula      = @worksheet.convert_date_time('T12:00')
+
+    caption    = " \tData validation: _pack_dv_formula('T12:00')"
+    bytes      = %w(
+                    09 00 E0 3F 1F 00 00 00 00 00 00 E0 3F
+                 )
+
+    # Zero out Excel's random unused word to allow comparison.
+    bytes[2]   = '00'
+    bytes[3]   = '00'
+    target     = bytes.join(" ")
+
+    result     = unpack_record(@worksheet.pack_dv_formula(formula))
+    assert_equal(target, result, caption)
+  end
+
+  def test_cell_reference_value_C9
+    formula      = '=C9'
+
+    caption    = " \tData validation: _pack_dv_formula('#{formula}')"
+    bytes      = %w(
+                    05 00 E0 3F 44 08 00 02 C0
+                 )
+
+    # Zero out Excel's random unused word to allow comparison.
+    bytes[2]   = '00'
+    bytes[3]   = '00'
+    target     = bytes.join(" ")
+
+    result     = unpack_record(@worksheet.pack_dv_formula(formula))
+    assert_equal(target, result, caption)
+  end
+
+  def test_cell_reference_value_E3_E6
+    formula      = '=E3:E6'
+
+    caption    = " \tData validation: _pack_dv_formula('#{formula}')"
+    bytes      = %w(
+                    09 00 0C 00 25 02 00 05 00 04 C0 04 C0
+                 )
+
+    # Zero out Excel's random unused word to allow comparison.
+    bytes[2]   = '00'
+    bytes[3]   = '00'
+    target     = bytes.join(" ")
+
+    result     = unpack_record(@worksheet.pack_dv_formula(formula))
+    assert_equal(target, result, caption)
+  end
+
+  def test_cell_reference_value_E3_E6_absolute
+    formula      = '=$E$3:$E$6'
+
+    caption    = " \tData validation: _pack_dv_formula('#{formula}')"
+    bytes      = %w(
+                    09 00 0C 00 25 02 00 05 00 04 00 04 00
+                 )
+
+    # Zero out Excel's random unused word to allow comparison.
+    bytes[2]   = '00'
+    bytes[3]   = '00'
+    target     = bytes.join(" ")
+
+    result     = unpack_record(@worksheet.pack_dv_formula(formula))
+    assert_equal(target, result, caption)
+  end
+
+  def test_list_values
+    formula      = ['a', 'bb', 'ccc']
+
+    caption    = " \tData validation: _pack_dv_formula(['a', 'bb', 'ccc'])"
+    bytes      = %w(
+                    0B 00 0C 00 17 08 00 61 00 62 62 00 63 63 63
+                 )
+
+    # Zero out Excel's random unused word to allow comparison.
+    bytes[2]   = '00'
+    bytes[3]   = '00'
+    target     = bytes.join(" ")
+
+    result     = unpack_record(@worksheet.pack_dv_formula(formula))
+    assert_equal(target, result, caption)
+  end
+
+  def test_empty_string
+    formula      = ''
+
+    caption    = " \tData validation: _pack_dv_formula('')"
+    bytes      = %w(
+                    00 00 00
+                 )
+
+    # Zero out Excel's random unused word to allow comparison.
+    bytes[2]   = '00'
+    bytes[3]   = '00'
+    target     = bytes.join(" ")
+
+    result     = unpack_record(@worksheet.pack_dv_formula(formula))
+    assert_equal(target, result, caption)
+  end
+
+  def test_undefined_value
+    formula      = nil
+
+    caption    = " \tData validation: _pack_dv_formula(nil)"
+    bytes      = %w(
+                    00 00 00
+                 )
+
+    # Zero out Excel's random unused word to allow comparison.
+    bytes[2]   = '00'
+    bytes[3]   = '00'
+    target     = bytes.join(" ")
+
+    result     = unpack_record(@worksheet.pack_dv_formula(formula))
+    assert_equal(target, result, caption)
+  end
+
+  ###############################################################################
+  #
+  # Unpack the binary data into a format suitable for printing in tests.
+  #
+  def unpack_record(data)
+    data.unpack('C*').map! {|c| sprintf("%02X", c) }.join(' ')
+  end
+
+end

data/test/test_40_property_types.rb

@@ -0,0 +1,191 @@
+##########################################################################
+# test_40_property_types.rb
+#
+# Tests for the basic property types used in OLE property sets.
+#
+# reverse('©'), September 2005, John McNamara, jmcnamara@cpan.org
+#
+# original written in Perl by John McNamara
+# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
+#
+#########################################################################
+$LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
+
+require 'test/unit'
+require 'rubygems'
+require 'writeexcel'
+
+class TC_property_types < Test::Unit::TestCase
+
+  def setup
+    @smiley = '☺'   # chr 0x263A;    in perl
+  end
+
+  def test_pack_a_VT_I2
+    caption    = " \tDoc properties: pack_VT_I2(1252)"
+    target     = %w(
+                    02 00 00 00 E4 04 00 00
+                   ).join(' ')
+
+    result     = unpack_record( pack_VT_I2(1252) )
+    assert_equal(target, result, caption)
+  end
+
+  def test_pack_a_VT_LPSTR_string_and_check_for_padding
+    string     = ''
+    codepage   = 0x04E4
+    caption    = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
+    target     = %w(
+                     1E 00 00 00 01 00 00 00 00 00 00 00
+                   ).join(' ')
+
+    result     = unpack_record( pack_VT_LPSTR(string, codepage) )
+    assert_equal(target, result, caption)
+  end
+
+  def test_pack_a_VT_LPSTR_string_and_check_for_padding_2
+    string     = 'a'
+    codepage   = 0x04E4
+    caption    = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
+    target     = %w(
+                    1E 00 00 00 02 00 00 00 61 00 00 00
+                   ).join(' ')
+
+    result     = unpack_record( pack_VT_LPSTR(string, codepage) )
+    assert_equal(target, result, caption)
+  end
+
+  def test_pack_a_VT_LPSTR_string_and_check_for_padding_3
+    string     = 'bb'
+    codepage   = 0x04E4
+    caption    = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
+    target     = %w(
+                    1E 00 00 00 03 00 00 00 62 62 00 00
+                   ).join(' ')
+
+    result     = unpack_record( pack_VT_LPSTR(string, codepage) )
+    assert_equal(target, result, caption)
+  end
+
+  def test_pack_a_VT_LPSTR_string_and_check_for_padding_4
+    string     = 'ccc'
+    codepage   = 0x04E4
+    caption    = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
+    target     = %w(
+                    1E 00 00 00 04 00 00 00 63 63 63 00
+                   ).join(' ')
+
+    result     = unpack_record( pack_VT_LPSTR(string, codepage) )
+    assert_equal(target, result, caption)
+  end
+
+  def test_pack_a_VT_LPSTR_string_and_check_for_padding_5
+    string     = 'dddd'
+    codepage   = 0x04E4
+    caption    = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
+    target     = %w(
+                    1E 00 00 00 05 00 00 00 64 64 64 64 00 00 00 00
+                   ).join(' ')
+
+    result     = unpack_record( pack_VT_LPSTR(string, codepage) )
+    assert_equal(target, result, caption)
+  end
+
+  def test_pack_a_VT_LPSTR_string_and_check_for_padding_5
+    string     = 'Username'
+    codepage   = 0x04E4
+    caption    = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
+    target     = %w(
+                    1E 00 00 00 09 00 00 00 55 73 65 72 6E 61 6D 65
+                    00 00 00 00
+                   ).join(' ')
+
+    result     = unpack_record( pack_VT_LPSTR(string, codepage) )
+    assert_equal(target, result, caption)
+  end
+
+  def test_pack_a_VT_LPSTR_UTF8_string
+    string     = @smiley
+    codepage   = 0xFDE9
+    caption    = " \tDoc properties: _pack_VT_LPSTR('#{@smiley}',\t#{codepage}')"
+    target     = %w(
+                    1E 00 00 00 04 00 00 00 E2 98 BA 00
+                   ).join(' ')
+
+    result     = unpack_record( pack_VT_LPSTR(string, codepage) )
+    assert_equal(target, result, caption)
+  end
+
+  def test_pack_a_VT_LPSTR_UTF8_string_2
+    string     = "a" + @smiley
+    codepage   = 0xFDE9
+    caption    = " \tDoc properties: _pack_VT_LPSTR('a#{@smiley}',\t#{codepage}')"
+    target     = %w(
+                    1E 00 00 00 05 00 00 00 61 E2 98 BA 00 00 00 00
+                   ).join(' ')
+
+    result     = unpack_record( pack_VT_LPSTR(string, codepage) )
+    assert_equal(target, result, caption)
+  end
+
+  def test_pack_a_VT_LPSTR_UTF8_string_3
+    string     = "aa" + @smiley
+    codepage   = 0xFDE9
+    caption    = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
+    target     = %w(
+                    1E 00 00 00 06 00 00 00 61 61 E2 98 BA 00 00 00
+                   ).join(' ')
+
+    result     = unpack_record( pack_VT_LPSTR(string, codepage) )
+    assert_equal(target, result, caption)
+  end
+
+  def test_pack_a_VT_LPSTR_UTF8_string_4
+    string     = "aaa" + @smiley
+    codepage   = 0xFDE9
+    caption    = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
+    target     = %w(
+                    1E 00 00 00 07 00 00 00 61 61 61 E2 98 BA 00 00
+                   ).join(' ')
+
+    result     = unpack_record( pack_VT_LPSTR(string, codepage) )
+    assert_equal(target, result, caption)
+  end
+
+  def test_pack_a_VT_LPSTR_UTF8_string_5
+    string     = "aaaa" + @smiley
+    codepage   = 0xFDE9
+    caption    = " \tDoc properties: _pack_VT_LPSTR('#{string}',\t#{codepage}')"
+    target     = %w(
+                    1E 00 00 00 08 00 00 00 61 61 61 61 E2 98 BA 00
+                   ).join(' ')
+
+    result     = unpack_record( pack_VT_LPSTR(string, codepage) )
+    assert_equal(target, result, caption)
+  end
+
+  def test_pack_a_VT_FILETIME
+    # Wed Aug 13 00:40:00 2008
+    # $sec,$min,$hour,$mday,$mon,$year
+    # We normalise the time using timegm() so that the tests don't fail due to
+    # different timezones.
+    filetime   = Time.gm(2008,8,13,0,40,0)
+
+    caption    = " \tDoc properties: _pack_VT_FILETIME()"
+    target     = %w(
+                    40 00 00 00 00 70 EB 1D DD FC C8 01
+                   ).join(' ')
+
+    result     = unpack_record( pack_VT_FILETIME(filetime) )
+    assert_equal(target, result, caption)
+  end
+
+  ###############################################################################
+  #
+  # Unpack the binary data into a format suitable for printing in tests.
+  #
+  def unpack_record(data)
+    data.unpack('C*').map! {|c| sprintf("%02X", c) }.join(' ')
+  end
+
+end

data/test/test_41_properties.rb

@@ -0,0 +1,238 @@
+##########################################################################
+# test_41_properties.rb
+#
+# Tests for OLE property sets.
+#
+# reverse('©'), September 2005, John McNamara, jmcnamara@cpan.org
+#
+# original written in Perl by John McNamara
+# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
+#
+#########################################################################
+$LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
+
+require 'test/unit'
+require 'rubygems'
+require 'writeexcel'
+
+class TC_properties < Test::Unit::TestCase
+
+  def setup
+    @smiley = '☺'   # chr 0x263A;    in perl
+  end
+
+  def test_codepage_only
+    properties = [[0x0001, 'VT_I2', 0x04E4]]
+    caption    = " \tDoc properties: _create_property_set('Code page')"
+    target     = %w(
+                    FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                    00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                    F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                    18 00 00 00 01 00 00 00 01 00 00 00 10 00 00 00
+                    02 00 00 00 E4 04 00 00
+                   ).join(' ')
+
+    result     = unpack_record( create_summary_property_set(properties))
+    assert_equal(target, result, caption)
+  end
+
+  def test_same_as_previous_plus_title
+    properties = [
+             [0x0001, 'VT_I2',    0x04E4 ],
+             [0x0002, 'VT_LPSTR', 'Title'],
+                 ]
+    caption    = " \tDoc properties: _create_property_set('+ Title')"
+    target     = %w(
+                    FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                    00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                    F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                    30 00 00 00 02 00 00 00 01 00 00 00 18 00 00 00
+                    02 00 00 00 20 00 00 00 02 00 00 00 E4 04 00 00
+                    1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
+                   ).join(' ')
+
+    result     = unpack_record( create_summary_property_set(properties))
+    assert_equal(target, result, caption)
+  end
+
+  def test_same_as_previous_plus_subject
+    properties = [
+             [0x0001, 'VT_I2',    0x04E4 ],
+             [0x0002, 'VT_LPSTR', 'Title'],
+             [0x0003, 'VT_LPSTR', 'Subject'],
+                 ]
+    caption    = " \tDoc properties: _create_property_set('+ Subject')"
+    target     = %w(
+                    FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                    00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                    F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                    48 00 00 00 03 00 00 00 01 00 00 00 20 00 00 00
+                    02 00 00 00 28 00 00 00 03 00 00 00 38 00 00 00
+                    02 00 00 00 E4 04 00 00 1E 00 00 00 06 00 00 00
+                    54 69 74 6C 65 00 00 00 1E 00 00 00 08 00 00 00
+                    53 75 62 6A 65 63 74 00
+                   ).join(' ')
+
+    result     = unpack_record( create_summary_property_set(properties))
+    assert_equal(target, result, caption)
+  end
+
+  def test_same_as_previous_plus_author
+    properties = [
+             [0x0001, 'VT_I2',    0x04E4 ],
+             [0x0002, 'VT_LPSTR', 'Title'],
+             [0x0003, 'VT_LPSTR', 'Subject'],
+             [0x0004, 'VT_LPSTR', 'Author' ],
+                 ]
+    caption    = " \tDoc properties: _create_property_set('+ Keywords')"
+    target     = %w(
+                    FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                    00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                    F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                    60 00 00 00 04 00 00 00 01 00 00 00 28 00 00 00
+                    02 00 00 00 30 00 00 00 03 00 00 00 40 00 00 00
+                    04 00 00 00 50 00 00 00 02 00 00 00 E4 04 00 00
+                    1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
+                    1E 00 00 00 08 00 00 00 53 75 62 6A 65 63 74 00
+                    1E 00 00 00 07 00 00 00 41 75 74 68 6F 72 00 00
+                   ).join(' ')
+
+    result     = unpack_record( create_summary_property_set(properties))
+    assert_equal(target, result, caption)
+  end
+
+  def test_same_as_previous_plus_keywords
+    properties = [
+             [0x0001, 'VT_I2',    0x04E4 ],
+             [0x0002, 'VT_LPSTR', 'Title'],
+             [0x0003, 'VT_LPSTR', 'Subject'],
+             [0x0004, 'VT_LPSTR', 'Author' ],
+             [0x0005, 'VT_LPSTR', 'Keywords'],
+                 ]
+    caption    = " \tDoc properties: _create_property_set('+ Keywords')"
+    target     = %w(
+                    FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                    00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                    F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                    7C 00 00 00 05 00 00 00 01 00 00 00 30 00 00 00
+                    02 00 00 00 38 00 00 00 03 00 00 00 48 00 00 00
+                    04 00 00 00 58 00 00 00 05 00 00 00 68 00 00 00
+                    02 00 00 00 E4 04 00 00 1E 00 00 00 06 00 00 00
+                    54 69 74 6C 65 00 00 00 1E 00 00 00 08 00 00 00
+                    53 75 62 6A 65 63 74 00 1E 00 00 00 07 00 00 00
+                    41 75 74 68 6F 72 00 00 1E 00 00 00 09 00 00 00
+                    4B 65 79 77 6F 72 64 73 00 00 00 00
+                   ).join(' ')
+
+    result     = unpack_record( create_summary_property_set(properties))
+    assert_equal(target, result, caption)
+  end
+
+  def test_same_as_previous_plus_comments
+    properties = [
+             [0x0001, 'VT_I2',    0x04E4 ],
+             [0x0002, 'VT_LPSTR', 'Title'],
+             [0x0003, 'VT_LPSTR', 'Subject'],
+             [0x0004, 'VT_LPSTR', 'Author' ],
+             [0x0005, 'VT_LPSTR', 'Keywords'],
+             [0x0006, 'VT_LPSTR', 'Comments'],
+                 ]
+    caption    = " \tDoc properties: _create_property_set('+ Comments')"
+    target     = %w(
+                    FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                    00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                    F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                    98 00 00 00 06 00 00 00 01 00 00 00 38 00 00 00
+                    02 00 00 00 40 00 00 00 03 00 00 00 50 00 00 00
+                    04 00 00 00 60 00 00 00 05 00 00 00 70 00 00 00
+                    06 00 00 00 84 00 00 00 02 00 00 00 E4 04 00 00
+                    1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
+                    1E 00 00 00 08 00 00 00 53 75 62 6A 65 63 74 00
+                    1E 00 00 00 07 00 00 00 41 75 74 68 6F 72 00 00
+                    1E 00 00 00 09 00 00 00 4B 65 79 77 6F 72 64 73
+                    00 00 00 00 1E 00 00 00 09 00 00 00 43 6F 6D 6D
+                    65 6E 74 73 00 00 00 00
+                   ).join(' ')
+
+    result     = unpack_record( create_summary_property_set(properties))
+    assert_equal(target, result, caption)
+  end
+
+  def test_same_as_previous_plus_last_author
+    properties = [
+             [0x0001, 'VT_I2',    0x04E4 ],
+             [0x0002, 'VT_LPSTR', 'Title'],
+             [0x0003, 'VT_LPSTR', 'Subject'],
+             [0x0004, 'VT_LPSTR', 'Author' ],
+             [0x0005, 'VT_LPSTR', 'Keywords'],
+             [0x0006, 'VT_LPSTR', 'Comments'],
+             [0x0008, 'VT_LPSTR', 'Username'],
+                 ]
+    caption    = " \tDoc properties: _create_property_set('+ Comments')"
+    target     = %w(
+                    FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                    00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                    F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                    B4 00 00 00 07 00 00 00 01 00 00 00 40 00 00 00
+                    02 00 00 00 48 00 00 00 03 00 00 00 58 00 00 00
+                    04 00 00 00 68 00 00 00 05 00 00 00 78 00 00 00
+                    06 00 00 00 8C 00 00 00 08 00 00 00 A0 00 00 00
+                    02 00 00 00 E4 04 00 00 1E 00 00 00 06 00 00 00
+                    54 69 74 6C 65 00 00 00 1E 00 00 00 08 00 00 00
+                    53 75 62 6A 65 63 74 00 1E 00 00 00 07 00 00 00
+                    41 75 74 68 6F 72 00 00 1E 00 00 00 09 00 00 00
+                    4B 65 79 77 6F 72 64 73 00 00 00 00 1E 00 00 00
+                    09 00 00 00 43 6F 6D 6D 65 6E 74 73 00 00 00 00
+                    1E 00 00 00 09 00 00 00 55 73 65 72 6E 61 6D 65
+                    00 00 00 00
+                   ).join(' ')
+
+    result     = unpack_record( create_summary_property_set(properties))
+    assert_equal(target, result, caption)
+  end
+
+  def test_same_as_previous_plus_creation_date
+    filetime = Time.gm(2008,8,19,23,20,13)
+    properties = [
+             [0x0001, 'VT_I2',    0x04E4 ],
+             [0x0002, 'VT_LPSTR', 'Title'],
+             [0x0003, 'VT_LPSTR', 'Subject'],
+             [0x0004, 'VT_LPSTR', 'Author' ],
+             [0x0005, 'VT_LPSTR', 'Keywords'],
+             [0x0006, 'VT_LPSTR', 'Comments'],
+             [0x0008, 'VT_LPSTR', 'Username'],
+             [0x000C, 'VT_FILETIME', filetime ],
+                 ]
+    caption    = " \tDoc properties: _create_property_set('+ Comments')"
+    target     = %w(
+                    FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                    00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                    F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                    C8 00 00 00 08 00 00 00 01 00 00 00 48 00 00 00
+                    02 00 00 00 50 00 00 00 03 00 00 00 60 00 00 00
+                    04 00 00 00 70 00 00 00 05 00 00 00 80 00 00 00
+                    06 00 00 00 94 00 00 00 08 00 00 00 A8 00 00 00
+                    0C 00 00 00 BC 00 00 00 02 00 00 00 E4 04 00 00
+                    1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
+                    1E 00 00 00 08 00 00 00 53 75 62 6A 65 63 74 00
+                    1E 00 00 00 07 00 00 00 41 75 74 68 6F 72 00 00
+                    1E 00 00 00 09 00 00 00 4B 65 79 77 6F 72 64 73
+                    00 00 00 00 1E 00 00 00 09 00 00 00 43 6F 6D 6D
+                    65 6E 74 73 00 00 00 00 1E 00 00 00 09 00 00 00
+                    55 73 65 72 6E 61 6D 65 00 00 00 00 40 00 00 00
+                    80 74 89 21 52 02 C9 01
+                   ).join(' ')
+
+    result     = unpack_record( create_summary_property_set(properties))
+    assert_equal(target, result, caption)
+  end
+
+  ###############################################################################
+  #
+  # Unpack the binary data into a format suitable for printing in tests.
+  #
+  def unpack_record(data)
+    data.unpack('C*').map! {|c| sprintf("%02X", c) }.join(' ')
+  end
+
+end