RubyGems - WriteExcel - Versions diffs - 0.2.0 - Mend

WriteExcel 0.2.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (80) hide show

data/.document +5 -0
data/.gitignore +21 -0
data/LICENSE +20 -0
data/README.rdoc +17 -0
data/Rakefile +47 -0
data/VERSION +1 -0
data/examples/a_simple.rb +42 -0
data/examples/autofilters.rb +266 -0
data/examples/bigfile.rb +30 -0
data/examples/copyformat.rb +51 -0
data/examples/data_validate.rb +278 -0
data/examples/date_time.rb +86 -0
data/examples/demo.rb +118 -0
data/examples/diag_border.rb +35 -0
data/examples/formats.rb +489 -0
data/examples/header.rb +136 -0
data/examples/hidden.rb +28 -0
data/examples/hyperlink.rb +42 -0
data/examples/images.rb +52 -0
data/examples/merge1.rb +39 -0
data/examples/merge2.rb +44 -0
data/examples/merge3.rb +65 -0
data/examples/merge4.rb +82 -0
data/examples/merge5.rb +79 -0
data/examples/protection.rb +46 -0
data/examples/regions.rb +52 -0
data/examples/repeat.rb +42 -0
data/examples/stats.rb +75 -0
data/examples/stocks.rb +80 -0
data/examples/tab_colors.rb +30 -0
data/lib/WriteExcel.rb +30 -0
data/lib/WriteExcel/biffwriter.rb +259 -0
data/lib/WriteExcel/chart.rb +217 -0
data/lib/WriteExcel/excelformula.y +138 -0
data/lib/WriteExcel/excelformulaparser.rb +573 -0
data/lib/WriteExcel/format.rb +1108 -0
data/lib/WriteExcel/formula.rb +986 -0
data/lib/WriteExcel/olewriter.rb +322 -0
data/lib/WriteExcel/properties.rb +250 -0
data/lib/WriteExcel/storage_lite.rb +590 -0
data/lib/WriteExcel/workbook.rb +2602 -0
data/lib/WriteExcel/worksheet.rb +6378 -0
data/spec/WriteExcel_spec.rb +7 -0
data/spec/spec.opts +1 -0
data/spec/spec_helper.rb +9 -0
data/test/tc_all.rb +31 -0
data/test/tc_biff.rb +104 -0
data/test/tc_chart.rb +22 -0
data/test/tc_example_match.rb +1280 -0
data/test/tc_format.rb +1264 -0
data/test/tc_formula.rb +63 -0
data/test/tc_ole.rb +110 -0
data/test/tc_storage_lite.rb +102 -0
data/test/tc_workbook.rb +115 -0
data/test/tc_worksheet.rb +115 -0
data/test/test_00_IEEE_double.rb +14 -0
data/test/test_01_add_worksheet.rb +12 -0
data/test/test_02_merge_formats.rb +58 -0
data/test/test_04_dimensions.rb +397 -0
data/test/test_05_rows.rb +182 -0
data/test/test_06_extsst.rb +80 -0
data/test/test_11_date_time.rb +484 -0
data/test/test_12_date_only.rb +506 -0
data/test/test_13_date_seconds.rb +486 -0
data/test/test_21_escher.rb +629 -0
data/test/test_22_mso_drawing_group.rb +739 -0
data/test/test_23_note.rb +78 -0
data/test/test_24_txo.rb +80 -0
data/test/test_26_autofilter.rb +327 -0
data/test/test_27_autofilter.rb +144 -0
data/test/test_28_autofilter.rb +174 -0
data/test/test_29_process_jpg.rb +131 -0
data/test/test_30_validation_dval.rb +82 -0
data/test/test_31_validation_dv_strings.rb +131 -0
data/test/test_32_validation_dv_formula.rb +211 -0
data/test/test_40_property_types.rb +191 -0
data/test/test_41_properties.rb +238 -0
data/test/test_42_set_properties.rb +430 -0
data/test/ts_all.rb +34 -0
metadata +154 -0

data/test/test_22_mso_drawing_group.rb ADDED

@@ -0,0 +1,739 @@
+##########################################################################
+# test_22_mso_drawing_group.rb
+#
+# Tests for the internal methods used to write the MSODRAWINGGROUP record.
+#
+# 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_mso_drawing_group < 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)
+    @worksheet1 = @workbook.add_worksheet
+    @worksheet2 = @workbook.add_worksheet
+    @worksheet3 = @workbook.add_worksheet
+  end
+  def teardown
+    @workbook.close
+    File.unlink(@test_file) if FileTest.exist?(@test_file)
+  end
+  def test_1_time
+    count = 1
+    for i in 1 .. count
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    caption = sprintf(" \tSheet1: %4d comments.", count)
+    target  = %w(
+        EB 00 5A 00 0F 00 00 F0 52 00 00 00 00 00 06 F0
+        18 00 00 00 02 04 00 00 02 00 00 00 02 00 00 00
+        01 00 00 00 01 00 00 00 02 00 00 00 33 00 0B F0
+        12 00 00 00 BF 00 08 00 08 00 81 01 09 00 00 08
+        C0 01 40 00 00 08 40 00 1E F1 10 00 00 00 0D 00
+        00 08 0C 00 00 08 17 00 00 08 F7 00 00 10
+    ).join(' ')
+    result = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 2, 1025,
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, caption)
+  end
+  def test_2_times
+    count     = 2
+    for i in 1 .. count
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    target  = %w(
+        EB 00 5A 00 0F 00 00 F0 52 00 00 00 00 00 06 F0
+        18 00 00 00 03 04 00 00 02 00 00 00 03 00 00 00
+        01 00 00 00 01 00 00 00 03 00 00 00 33 00 0B F0
+        12 00 00 00 BF 00 08 00 08 00 81 01 09 00 00 08
+        C0 01 40 00 00 08 40 00 1E F1 10 00 00 00 0D 00
+        00 08 0C 00 00 08 17 00 00 08 F7 00 00 10
+    ).join(' ')
+    caption    = sprintf( " \tSheet1: %4d comments.", count)
+    result     = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 3, 1026,
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, caption)
+  end
+  def test_3_times
+    count     = 3
+    for i in 1 .. count
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    target  = %w(
+        EB 00 5A 00 0F 00 00 F0 52 00 00 00 00 00 06 F0
+        18 00 00 00 04 04 00 00 02 00 00 00 04 00 00 00
+        01 00 00 00 01 00 00 00 04 00 00 00 33 00 0B F0
+        12 00 00 00 BF 00 08 00 08 00 81 01 09 00 00 08
+        C0 01 40 00 00 08 40 00 1E F1 10 00 00 00 0D 00
+        00 08 0C 00 00 08 17 00 00 08 F7 00 00 10
+    ).join(' ')
+    caption    = sprintf( " \tSheet1: %4d comments.", count)
+    result     = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 4, 1027
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, caption)
+  end
+  def test_1023_times
+    count     = 1023
+    for i in 1 .. count
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    target  = %w(
+        EB 00 5A 00 0F 00 00 F0 52 00 00 00 00 00 06 F0
+        18 00 00 00 00 08 00 00 02 00 00 00 00 04 00 00
+        01 00 00 00 01 00 00 00 00 04 00 00 33 00 0B F0
+        12 00 00 00 BF 00 08 00 08 00 81 01 09 00 00 08
+        C0 01 40 00 00 08 40 00 1E F1 10 00 00 00 0D 00
+        00 08 0C 00 00 08 17 00 00 08 F7 00 00 10
+    ).join(' ')
+    caption    = sprintf( " \tSheet1: %4d comments.", count)
+    result     = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 1024, 2047
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, caption)
+  end
+  def test_1024_times
+    count     = 1024
+    for i in 1 .. count
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    target  = %w(
+        EB 00 62 00 0F 00 00 F0 5A 00 00 00 00 00 06 F0
+        20 00 00 00 01 08 00 00 03 00 00 00 01 04 00 00
+        01 00 00 00 01 00 00 00 00 04 00 00 01 00 00 00
+        01 00 00 00 33 00 0B F0 12 00 00 00 BF 00 08 00
+        08 00 81 01 09 00 00 08 C0 01 40 00 00 08 40 00
+        1E F1 10 00 00 00 0D 00 00 08 0C 00 00 08 17 00
+        00 08 F7 00 00 10
+    ).join(' ')
+    caption    = sprintf( " \tSheet1: %4d comments.", count)
+    result     = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 1025, 2048
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, caption)
+  end
+  def test_2048_times
+    count     = 2048
+    for i in 1 .. count
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    target  = %w(
+        EB 00 6A 00 0F 00 00 F0 62 00 00 00 00 00 06 F0
+        28 00 00 00 01 0C 00 00 04 00 00 00 01 08 00 00
+        01 00 00 00 01 00 00 00 00 04 00 00 01 00 00 00
+        00 04 00 00 01 00 00 00 01 00 00 00 33 00 0B F0
+        12 00 00 00 BF 00 08 00 08 00 81 01 09 00 00 08
+        C0 01 40 00 00 08 40 00 1E F1 10 00 00 00 0D 00
+        00 08 0C 00 00 08 17 00 00 08 F7 00 00 10
+    ).join(' ')
+    caption    = sprintf( " \tSheet1: %4d comments.", count)
+    result     = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 2049, 3072
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, caption)
+  end
+  def test_2_sheets_1_and_1_times
+    count1     = 1
+    count2     = 1
+    for i in 1 .. count1
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count2
+      @worksheet2.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    target  = %w(
+        EB 00 62 00 0F 00 00 F0 5A 00 00 00 00 00 06 F0
+        20 00 00 00 02 08 00 00 03 00 00 00 04 00 00 00
+        02 00 00 00 01 00 00 00 02 00 00 00 02 00 00 00
+        02 00 00 00 33 00 0B F0 12 00 00 00 BF 00 08 00
+        08 00 81 01 09 00 00 08 C0 01 40 00 00 08 40 00
+        1E F1 10 00 00 00 0D 00 00 08 0C 00 00 08 17 00
+        00 08 F7 00 00 10
+    ).join(' ')
+    caption    = sprintf( " \tSheet1: %4d comments, Sheet2: %4d comments..",
+                                 count1, count2)
+    result     = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 2, 1025,
+                2048, 2, 2, 2049
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, caption)
+  end
+  def test_2_sheets_2_and_2_times
+    count1     = 2
+    count2     = 2
+    for i in 1 .. count1
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count2
+      @worksheet2.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    target  = %w(
+        EB 00 62 00 0F 00 00 F0 5A 00 00 00 00 00 06 F0
+        20 00 00 00 03 08 00 00 03 00 00 00 06 00 00 00
+        02 00 00 00 01 00 00 00 03 00 00 00 02 00 00 00
+        03 00 00 00 33 00 0B F0 12 00 00 00 BF 00 08 00
+        08 00 81 01 09 00 00 08 C0 01 40 00 00 08 40 00
+        1E F1 10 00 00 00 0D 00 00 08 0C 00 00 08 17 00
+        00 08 F7 00 00 10
+    ).join(' ')
+    caption    = sprintf( " \tSheet1: %4d comments, Sheet2: %4d comments..",
+                                 count1, count2)
+    result     = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 3, 1026,
+                2048, 2, 3, 2050
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, caption)
+  end
+  def test_2_sheets_1023_and_1_times
+    count1     = 1023
+    count2     = 1
+    for i in 1 .. count1
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count2
+      @worksheet2.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    target  = %w(
+        EB 00 62 00 0F 00 00 F0 5A 00 00 00 00 00 06 F0
+        20 00 00 00 02 08 00 00 03 00 00 00 02 04 00 00
+        02 00 00 00 01 00 00 00 00 04 00 00 02 00 00 00
+        02 00 00 00 33 00 0B F0 12 00 00 00 BF 00 08 00
+        08 00 81 01 09 00 00 08 C0 01 40 00 00 08 40 00
+        1E F1 10 00 00 00 0D 00 00 08 0C 00 00 08 17 00
+        00 08 F7 00 00 10
+    ).join(' ')
+    caption    = sprintf( " \tSheet1: %4d comments, Sheet2: %4d comments..",
+                                 count1, count2)
+    result     = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 1024, 2047,
+                2048, 2,    2, 2049
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, caption)
+  end
+  def test_2_sheets_1023_and_1023_times
+    count1     = 1023
+    count2     = 1023
+    for i in 1 .. count1
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count2
+      @worksheet2.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    target  = %w(
+        EB 00 62 00 0F 00 00 F0 5A 00 00 00 00 00 06 F0
+        20 00 00 00 00 0C 00 00 03 00 00 00 00 08 00 00
+        02 00 00 00 01 00 00 00 00 04 00 00 02 00 00 00
+        00 04 00 00 33 00 0B F0 12 00 00 00 BF 00 08 00
+        08 00 81 01 09 00 00 08 C0 01 40 00 00 08 40 00
+        1E F1 10 00 00 00 0D 00 00 08 0C 00 00 08 17 00
+        00 08 F7 00 00 10
+    ).join(' ')
+    caption    = sprintf( " \tSheet1: %4d comments, Sheet2: %4d comments..",
+                                 count1, count2)
+    result     = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 1024, 2047,
+                2048, 2, 1024, 3071
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, caption)
+  end
+  def test_2_sheets_1024_and_1024_times
+    count1     = 1024
+    count2     = 1024
+    for i in 1 .. count1
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count2
+      @worksheet2.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    target  = %w(
+        EB 00 72 00 0F 00 00 F0 6A 00 00 00 00 00 06 F0
+        30 00 00 00 01 10 00 00 05 00 00 00 02 08 00 00
+        02 00 00 00 01 00 00 00 00 04 00 00 01 00 00 00
+        01 00 00 00 02 00 00 00 00 04 00 00 02 00 00 00
+        01 00 00 00 33 00 0B F0 12 00 00 00 BF 00 08 00
+        08 00 81 01 09 00 00 08 C0 01 40 00 00 08 40 00
+        1E F1 10 00 00 00 0D 00 00 08 0C 00 00 08 17 00
+        00 08 F7 00 00 10
+    ).join(' ')
+    caption    = sprintf( " \tSheet1: %4d comments, Sheet2: %4d comments..",
+                                 count1, count2)
+    result     = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 1025, 2048,
+                3072, 2, 1025, 4096
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, caption)
+  end
+  def test_2_sheets_1024_and_1_times
+    count1     = 1024
+    count2     = 1
+    for i in 1 .. count1
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count2
+      @worksheet2.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    target  = %w(
+        EB 00 6A 00 0F 00 00 F0 62 00 00 00 00 00 06 F0
+        28 00 00 00 02 0C 00 00 04 00 00 00 03 04 00 00
+        02 00 00 00 01 00 00 00 00 04 00 00 01 00 00 00
+        01 00 00 00 02 00 00 00 02 00 00 00 33 00 0B F0
+        12 00 00 00 BF 00 08 00 08 00 81 01 09 00 00 08
+        C0 01 40 00 00 08 40 00 1E F1 10 00 00 00 0D 00
+        00 08 0C 00 00 08 17 00 00 08 F7 00 00 10
+    ).join(' ')
+    caption    = sprintf( " \tSheet1: %4d comments, Sheet2: %4d comments..",
+                                 count1, count2)
+    result     = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 1025, 2048,
+                3072, 2,    2, 3073
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, caption)
+  end
+  def test_3_sheets_1023_and_1_and_1023_times
+    count1     = 1023
+    count2     = 1
+    count3     = 1023
+    for i in 1 .. count1
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count2
+      @worksheet2.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count3
+      @worksheet3.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    target  = %w(
+        EB 00 6A 00 0F 00 00 F0 62 00 00 00 00 00 06 F0
+        28 00 00 00 00 10 00 00 04 00 00 00 02 08 00 00
+        03 00 00 00 01 00 00 00 00 04 00 00 02 00 00 00
+        02 00 00 00 03 00 00 00 00 04 00 00 33 00 0B F0
+        12 00 00 00 BF 00 08 00 08 00 81 01 09 00 00 08
+        C0 01 40 00 00 08 40 00 1E F1 10 00 00 00 0D 00
+        00 08 0C 00 00 08 17 00 00 08 F7 00 00 10
+    ).join(' ')
+    caption    = sprintf( " \tSheet1: %4d comments, Sheet2: %4d comments,"+
+                          "Sheet3: %4d comments.", count1, count2, count3)
+    result     = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 1024, 2047,
+                2048, 2,    2, 2049,
+                3072, 3, 1024, 4095
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, caption)
+  end
+  def test_3_sheets_1023_and_1023_and_1_times
+    count1     = 1023
+    count2     = 1023
+    count3     = 1
+    for i in 1 .. count1
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count2
+      @worksheet2.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count3
+      @worksheet3.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    target  = %w(
+        EB 00 6A 00 0F 00 00 F0 62 00 00 00 00 00 06 F0
+        28 00 00 00 02 0C 00 00 04 00 00 00 02 08 00 00
+        03 00 00 00 01 00 00 00 00 04 00 00 02 00 00 00
+        00 04 00 00 03 00 00 00 02 00 00 00 33 00 0B F0
+        12 00 00 00 BF 00 08 00 08 00 81 01 09 00 00 08
+        C0 01 40 00 00 08 40 00 1E F1 10 00 00 00 0D 00
+        00 08 0C 00 00 08 17 00 00 08 F7 00 00 10
+    ).join(' ')
+    caption    = sprintf( " \tSheet1: %4d comments, Sheet2: %4d comments,"+
+                          "Sheet3: %4d comments.", count1, count2, count3)
+    result     = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 1024, 2047,
+                2048, 2, 1024, 3071,
+                3072, 3,    2, 3073
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, caption)
+  end
+  def test_3_sheets_1024_and_1_and_1024_times
+    count1     = 1024
+    count2     = 1
+    count3     = 1024
+    for i in 1 .. count1
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count2
+      @worksheet2.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count3
+      @worksheet3.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    target  = %w(
+        EB 00 7A 00 0F 00 00 F0 72 00 00 00 00 00 06 F0
+        38 00 00 00 01 14 00 00 06 00 00 00 04 08 00 00
+        03 00 00 00 01 00 00 00 00 04 00 00 01 00 00 00
+        01 00 00 00 02 00 00 00 02 00 00 00 03 00 00 00
+        00 04 00 00 03 00 00 00 01 00 00 00 33 00 0B F0
+        12 00 00 00 BF 00 08 00 08 00 81 01 09 00 00 08
+        C0 01 40 00 00 08 40 00 1E F1 10 00 00 00 0D 00
+        00 08 0C 00 00 08 17 00 00 08 F7 00 00 10
+    ).join(' ')
+    caption    = sprintf( " \tSheet1: %4d comments, Sheet2: %4d comments,"+
+                          "Sheet3: %4d comments.", count1, count2, count3)
+    result     = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 1025, 2048,
+                3072, 2,    2, 3073,
+                4096, 3, 1025, 5120
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, caption)
+  end
+  def test_3_sheets_1024_and_1024_and_1_times
+    count1     = 1024
+    count2     = 1024
+    count3     = 1
+    for i in 1 .. count1
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count2
+      @worksheet2.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count3
+      @worksheet3.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    target  = %w(
+        EB 00 7A 00 0F 00 00 F0 72 00 00 00 00 00 06 F0
+        38 00 00 00 02 14 00 00 06 00 00 00 04 08 00 00
+        03 00 00 00 01 00 00 00 00 04 00 00 01 00 00 00
+        01 00 00 00 02 00 00 00 00 04 00 00 02 00 00 00
+        01 00 00 00 03 00 00 00 02 00 00 00 33 00 0B F0
+        12 00 00 00 BF 00 08 00 08 00 81 01 09 00 00 08
+        C0 01 40 00 00 08 40 00 1E F1 10 00 00 00 0D 00
+        00 08 0C 00 00 08 17 00 00 08 F7 00 00 10
+    ).join(' ')
+    caption    = sprintf( " \tSheet1: %4d comments, Sheet2: %4d comments,"+
+                          "Sheet3: %4d comments.", count1, count2, count3)
+    result     = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 1025, 2048,
+                3072, 2, 1025, 4096,
+                5120, 3,    2, 5121
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, caption)
+  end
+  def test_3_sheets_1024_and_1024_and_1_times_duplicate
+    count1     = 1024
+    count2     = 1024
+    count3     = 1
+    for i in 1 .. count1
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count2
+      @worksheet2.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count3
+      @worksheet3.write_comment(i -1, 0, 'aaa')
+    end
+    # dupulicate -- these are ignored.  result is same as prev.--
+    for i in 1 .. count1
+      @worksheet1.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count2
+      @worksheet2.write_comment(i -1, 0, 'aaa')
+    end
+    for i in 1 .. count3
+      @worksheet3.write_comment(i -1, 0, 'aaa')
+    end
+    @workbook.calc_mso_sizes
+    target  = %w(
+        EB 00 7A 00 0F 00 00 F0 72 00 00 00 00 00 06 F0
+        38 00 00 00 02 14 00 00 06 00 00 00 04 08 00 00
+        03 00 00 00 01 00 00 00 00 04 00 00 01 00 00 00
+        01 00 00 00 02 00 00 00 00 04 00 00 02 00 00 00
+        01 00 00 00 03 00 00 00 02 00 00 00 33 00 0B F0
+        12 00 00 00 BF 00 08 00 08 00 81 01 09 00 00 08
+        C0 01 40 00 00 08 40 00 1E F1 10 00 00 00 0D 00
+        00 08 0C 00 00 08 17 00 00 08 F7 00 00 10
+    ).join(' ')
+    caption    = sprintf( " \tSheet1: %4d comments, Sheet2: %4d comments,"+
+                          "Sheet3: %4d comments.", count1, count2, count3)
+    result     = unpack_record(@workbook.add_mso_drawing_group)
+    assert_equal(target, result, caption)
+    # Test the parameters pass to the worksheets
+    caption   = caption + ' (params)'
+    result_ids = []
+    target_ids = [
+                1024, 1, 1025, 2048,
+                3072, 2, 1025, 4096,
+                5120, 3,    2, 5121
+                 ]
+    @workbook.sheets.each do |sheet|
+      sheet.object_ids.each {|id| result_ids.push(id) }
+    end
+    assert_equal(target_ids, result_ids, 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