writeexcel 0.1.0 → 0.3.0

data/test/test_61_chart_subclasses.rb

@@ -0,0 +1,97 @@
+$LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
+
+require "test/unit"
+require 'writeexcel'
+require 'stringio'
+
+###############################################################################
+#
+# A test for Chart.
+#
+# Tests for the Excel chart.rb methods.
+#
+# reverse(''), December 2009, John McNamara, jmcnamara@cpan.org
+#
+# original written in Perl by John McNamara
+# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
+#
+class TC_chart_subclasses < Test::Unit::TestCase
+  def setup
+    io = StringIO.new
+    @workbook = WriteExcel.new(io)
+  end
+
+  def test_store_chart_type_of_column
+    chart = Chart.factory(Chart::Column, nil, nil, nil, nil, nil, nil,
+                                         nil, nil, nil, nil)
+    expected = %w(
+        17 10 06 00 00 00 96 00 00 00
+      ).join(' ')
+    got = unpack_record(chart.store_chart_type)
+    assert_equal(expected, got)
+  end
+
+  def test_store_chart_type_of_bar
+    chart = Chart.factory(Chart::Bar, nil, nil, nil, nil, nil, nil,
+                                         nil, nil, nil, nil)
+    expected = %w(
+        17 10 06 00 00 00 96 00 01 00
+      ).join(' ')
+    got = unpack_record(chart.store_chart_type)
+    assert_equal(expected, got)
+  end
+
+  def test_store_chart_type_of_line
+    chart = Chart.factory(Chart::Line, nil, nil, nil, nil, nil, nil,
+                                         nil, nil, nil, nil)
+    expected = %w(
+        18 10 02 00 00 00
+      ).join(' ')
+    got = unpack_record(chart.store_chart_type)
+    assert_equal(expected, got)
+  end
+
+  def test_store_chart_type_of_area
+    chart = Chart.factory(Chart::Area, nil, nil, nil, nil, nil, nil,
+                                         nil, nil, nil, nil)
+    expected = %w(
+        1A 10 02 00 01 00
+      ).join(' ')
+    got = unpack_record(chart.store_chart_type)
+    assert_equal(expected, got)
+  end
+
+  def test_store_chart_type_of_pie
+    chart = Chart.factory(Chart::Pie, nil, nil, nil, nil, nil, nil,
+                                         nil, nil, nil, nil)
+    expected = %w(
+        19 10 06 00 00 00 00 00 02 00
+      ).join(' ')
+    got = unpack_record(chart.store_chart_type)
+    assert_equal(expected, got)
+  end
+
+  def test_store_chart_type_of_scatter
+    chart = Chart.factory(Chart::Scatter, nil, nil, nil, nil, nil, nil,
+                                         nil, nil, nil, nil)
+    expected = %w(
+        1B 10 06 00 64 00 01 00 00 00
+      ).join(' ')
+    got = unpack_record(chart.store_chart_type)
+    assert_equal(expected, got)
+  end
+
+  def test_store_chart_type_of_stock
+    chart = Chart.factory(Chart::Stock, nil, nil, nil, nil, nil, nil,
+                                         nil, nil, nil, nil)
+    expected = %w(
+        18 10 02 00 00 00
+      ).join(' ')
+    got = unpack_record(chart.store_chart_type)
+    assert_equal(expected, got)
+  end
+
+  def unpack_record(data)
+    data.unpack('C*').map! {|c| sprintf("%02X", c) }.join(' ')
+  end
+end

data/test/test_62_chart_formats.rb

@@ -0,0 +1,270 @@
+$LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
+
+require "test/unit"
+require 'writeexcel'
+require 'stringio'
+
+###############################################################################
+#
+# A test for Spreadsheet::WriteExcel::Chart.
+#
+# Tests for the Excel Chart.pm format conversion methods.
+#
+# reverse('ｩ'), January 2010, John McNamara, jmcnamara@cpan.org
+#
+# original written in Perl by John McNamara
+# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
+#
+class TC_ChartFormats < Test::Unit::TestCase
+  def setup
+    @io = StringIO.new
+    @workbook = WriteExcel.new(@io)
+    @chart = @workbook.add_chart(:type => Chart::Column)
+  end
+
+###############################################################################
+#
+# Test. User defined colour as string.
+#
+  def test_user_defined_color_as_string
+    color    = 'red'
+    caption1 = " \tChart: index   = get_color_indices(#{color})"
+    caption2 = " \tChart: rgb     = get_color_indices(#{color})"
+
+    expected_index = 0x0A
+    expected_rgb   = 0x000000FF
+
+    got_index, got_rgb = @chart.get_color_indices(color)
+
+    assert_equal(expected_index, got_index, caption1)
+    assert_equal(expected_rgb,   got_rgb,   caption2)
+
+    color    = 'black'
+    caption1 = " \tChart: index   = get_color_indices(#{color})"
+    caption2 = " \tChart: rgb     = get_color_indices(#{color})"
+
+    expected_index = 0x08
+    expected_rgb   = 0x00000000
+
+    got_index, got_rgb = @chart.get_color_indices(color)
+
+    assert_equal(expected_index, got_index, caption1)
+    assert_equal(expected_rgb,   got_rgb,   caption2)
+
+    color    = 'white'
+    caption1 = " \tChart: index   = get_color_indices(#{color})"
+    caption2 = " \tChart: rgb     = get_color_indices(#{color})"
+
+    expected_index = 0x09
+    expected_rgb   = 0x00FFFFFF
+
+    got_index, got_rgb = @chart.get_color_indices(color)
+
+    assert_equal(expected_index, got_index, caption1)
+    assert_equal(expected_rgb,   got_rgb,   caption2)
+  end
+
+  ###############################################################################
+  #
+  # Test. User defined colour as an index.
+  #
+  def test_user_defined_color_as_an_index
+    color    = 0x0A
+    caption1 = " \tChart: index   = get_color_indices(#{color})"
+    caption2 = " \tChart: rgb     = get_color_indices(#{color})"
+
+    expected_index = 0x0A
+    expected_rgb   = 0x000000FF
+
+
+    got_index, got_rgb = @chart.get_color_indices(color)
+
+    assert_equal(expected_index, got_index, caption1)
+    assert_equal(expected_rgb,   got_rgb,   caption2)
+  end
+
+  ###############################################################################
+  #
+  # Test. User defined colour as an out of range index.
+  #
+  def test_user_defined_color_as_an_out_of_range_index
+    color    = 7
+    caption1 = " \tChart: index   = get_color_indices(#{color})"
+    caption2 = " \tChart: rgb     = get_color_indices(#{color})"
+
+    expected_index = nil
+    expected_rgb   = nil
+
+    got_index, got_rgb = @chart.get_color_indices(color)
+
+    assert_equal(expected_index, got_index, caption1)
+    assert_equal(expected_rgb,   got_rgb,   caption2)
+
+    color    = 64
+    caption1 = " \tChart: index   = get_color_indices(#{color})"
+    caption2 = " \tChart: rgb     = get_color_indices(#{color})"
+
+    expected_index = nil
+    expected_rgb   = nil
+
+    got_index, got_rgb = @chart.get_color_indices(color)
+
+    assert_equal(expected_index, got_index, caption1)
+    assert_equal(expected_rgb,   got_rgb,   caption2)
+  end
+
+  ###############################################################################
+  #
+  # Test. User defined colour as an invalid string.
+  #
+  def test_user_defined_color_as_an_invalid_string
+    color    = 'plaid'
+    caption1 = " \tChart: index   = get_color_indices(#{color})"
+    caption2 = " \tChart: rgb     = get_color_indices(#{color})"
+
+    expected_index = nil
+    expected_rgb   = nil
+
+    got_index, got_rgb = @chart.get_color_indices(color)
+
+    assert_equal(expected_index, got_index, caption1)
+    assert_equal(expected_rgb,   got_rgb,   caption2)
+  end
+
+  ###############################################################################
+  #
+  # Test. User defined colour as an undef property.
+  #
+  def test_user_defined_color_as_an_nil_property
+    color    = nil
+    caption1 = " \tChart: index   = get_color_indices(#{color})"
+    caption2 = " \tChart: rgb     = get_color_indices(#{color})"
+
+    expected_index = nil
+    expected_rgb   = nil
+
+    got_index, got_rgb = @chart.get_color_indices(color)
+
+    assert_equal(expected_index, got_index, caption1)
+    assert_equal(expected_rgb,   got_rgb,   caption2)
+  end
+
+  ###############################################################################
+  #
+  # Test. Line patterns with indices.
+  #
+  def test_line_patterns_with_indices
+    caption = " \tChart: pattern = _get_line_pattern()"
+
+    values = {
+        0     => 5,
+        1     => 0,
+        2     => 1,
+        3     => 2,
+        4     => 3,
+        5     => 4,
+        6     => 7,
+        7     => 6,
+        8     => 8,
+        9     => 0,
+        nil   => 0
+    }
+
+    expected = []
+    got      = []
+
+    values.each do |user, excel|
+      got.push(@chart.get_line_pattern(user))
+      expected.push(excel)
+    end
+
+    assert_equal(expected, got, caption)
+  end
+
+  ###############################################################################
+  #
+  # Test. Line patterns with names.
+  #
+  def test_line_patterns_with_names
+    caption = " \tChart: pattern = _get_line_pattern()"
+
+    values = {
+        'solid'        => 0,
+        'dash'         => 1,
+        'dot'          => 2,
+        'dash-dot'     => 3,
+        'dash-dot-dot' => 4,
+        'none'         => 5,
+        'dark-gray'    => 6,
+        'medium-gray'  => 7,
+        'light-gray'   => 8,
+        'DASH'         => 1,
+        'fictional'    => 0
+    }
+
+    expected = []
+    got      = []
+
+    values.each do |user, excel|
+      got.push(@chart.get_line_pattern(user))
+      expected.push(excel)
+    end
+
+    assert_equal(expected, got, caption)
+  end
+
+  ###############################################################################
+  #
+  # Test. Line weights with indices.
+  #
+  def test_line_weights_with_indices
+    caption = " \tChart: weight  = _get_line_weight()"
+
+    values = {
+        1     => -1,
+        2     => 0,
+        3     => 1,
+        4     => 2,
+        5     => 0,
+        0     => 0,
+        nil   => 0
+    }
+
+    expected = []
+    got      = []
+
+    values.each do |user, excel|
+      got.push(@chart.get_line_weight(user))
+      expected.push(excel)
+    end
+
+    assert_equal(expected, got, caption)
+  end
+
+  ###############################################################################
+  #
+  # Test. Line weights with names.
+  #
+  def test_line_weights_with_names
+    caption = " \tChart: weight  = _get_line_weight()"
+
+    values = {
+        'hairline'  => -1,
+        'narrow'    => 0,
+        'medium'    => 1,
+        'wide'      => 2,
+        'WIDE'      => 2,
+        'Fictional' => 0,
+    }
+
+    expected = []
+    got      = []
+
+    values.each do |user, excel|
+      got.push(@chart.get_line_weight(user))
+      expected.push(excel)
+    end
+
+    assert_equal(expected, got, caption)
+  end
+end

data/test/test_63_chart_area_formats.rb

@@ -0,0 +1,647 @@
+$LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
+
+require "test/unit"
+require 'writeexcel'
+require 'stringio'
+
+###############################################################################
+#
+# A test for Spreadsheet::WriteExcel::Chart.
+#
+# Tests for the Excel Chart.pm format conversion methods.
+#
+# reverse('ｩ'), January 2010, John McNamara, jmcnamara@cpan.org
+#
+# original written in Perl by John McNamara
+# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
+#
+class TC_ChartAreaFormats < Test::Unit::TestCase
+  def setup
+    @io = StringIO.new
+    @workbook = WriteExcel.new(@io)
+    @chart = @workbook.add_chart(:type => Chart::Column)
+    @chart.using_tmpfile = false
+    @caption1 = " \tChart: chartarea format - line";
+    @caption2 = " \tChart: chartarea format - area";
+    @embed_caption1 = " \tChart: embedded chartarea format - line";
+    @embed_caption2 = " \tChart: embedded chartarea format - area";
+    @plotarea_caption1 = " \tChart: plotarea format - line";
+    @plotarea_caption2 = " \tChart: plotarea format - area";
+  end
+
+  ###############################################################################
+  #
+  # 1. Test the chartarea format methods. See the set_*area() properties below.
+  #
+  def test_the_chartarea_format_methods
+    reset_chart(@chart)
+
+    @chart.set_chartarea(
+      :color        => 'red',
+      :line_color   => 'black',
+      :line_pattern => 2,
+      :line_weight  => 3
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 01 00 01 00 00 00 08 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF 00 00 00 00 00 00 00 01 00 00 00
+      0A 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @caption1)
+    assert_equal(expected_area, got_area, @caption2)
+
+
+    reset_chart(@chart)
+
+    @chart.set_chartarea(
+      :color        => 'red'
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 05 00 FF FF 08 00 4D 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF 00 00 00 00 00 00 00 01 00 00 00
+      0A 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @caption1)
+    assert_equal(expected_area, got_area, @caption2)
+
+
+    reset_chart(@chart)
+
+    @chart.set_chartarea(
+      :line_color        => 'red'
+    )
+
+    expected_line = %w(
+      07 10 0C 00 FF 00 00 00 00 00 FF FF 00 00 0A 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF FF FF 00 00 00 00 00 00 00 00 00
+      4E 00 4D 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @caption1)
+    assert_equal(expected_area, got_area, @caption2)
+
+
+    reset_chart(@chart)
+
+    @chart.set_chartarea(
+      :line_pattern      => 2
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 01 00 FF FF 00 00 4F 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF FF FF 00 00 00 00 00 00 00 00 00
+      4E 00 4D 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @caption1)
+    assert_equal(expected_area, got_area, @caption2)
+
+
+    reset_chart(@chart)
+
+    @chart.set_chartarea(
+      :line_weight => 3
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 00 00 01 00 00 00 4F 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF FF FF 00 00 00 00 00 00 00 00 00
+      4E 00 4D 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @caption1)
+    assert_equal(expected_area, got_area, @caption2)
+
+
+    reset_chart(@chart)
+
+    @chart.set_chartarea(
+      :color      => 'red',
+      :line_color => 'black'
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 00 00 FF FF 00 00 08 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF 00 00 00 00 00 00 00 01 00 00 00
+      0A 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @caption1)
+    assert_equal(expected_area, got_area, @caption2)
+
+
+    reset_chart(@chart)
+
+    @chart.set_chartarea(
+      :color        => 'red',
+      :line_pattern => 2
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 01 00 FF FF 00 00 4F 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF 00 00 00 00 00 00 00 01 00 00 00
+      0A 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @caption1)
+    assert_equal(expected_area, got_area, @caption2)
+
+
+    reset_chart(@chart)
+
+    @chart.set_chartarea(
+      :color       => 'red',
+      :line_weight => 3
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 00 00 01 00 00 00 4F 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF 00 00 00 00 00 00 00 01 00 00 00
+      0A 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @caption1)
+    assert_equal(expected_area, got_area, @caption2)
+
+
+    @chart.embedded = true
+
+    reset_chart(@chart, true)
+
+    @chart.set_chartarea(
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 00 00 00 00 09 00 4D 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF FF FF 00 00 00 00 00 01 00 01 00
+      4E 00 4D 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @embed_caption1)
+    assert_equal(expected_area, got_area, @embed_caption2)
+
+
+    reset_chart(@chart, true)
+
+    @chart.set_chartarea(
+      :color        => 'red',
+      :line_color   => 'black',
+      :line_pattern => 2,
+      :line_weight  => 3
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 01 00 01 00 00 00 08 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF 00 00 00 00 00 00 00 01 00 00 00
+      0A 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @embed_caption1)
+    assert_equal(expected_area, got_area, @embed_caption2)
+
+
+    reset_chart(@chart, true)
+
+    @chart.set_chartarea(
+      :color        => 'red'
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 00 00 FF FF 09 00 4D 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF 00 00 00 00 00 00 00 01 00 00 00
+      0A 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @embed_caption1)
+    assert_equal(expected_area, got_area, @embed_caption2)
+
+
+    reset_chart(@chart, true)
+
+    @chart.set_chartarea(
+      :line_color    => 'red'
+    )
+
+    expected_line = %w(
+      07 10 0C 00 FF 00 00 00 00 00 FF FF 00 00 0A 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF FF FF 00 00 00 00 00 01 00 01 00
+      4E 00 4D 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @embed_caption1)
+    assert_equal(expected_area, got_area, @embed_caption2)
+
+
+    reset_chart(@chart, true)
+
+    @chart.set_chartarea(
+      :line_pattern    => 2
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 01 00 FF FF 00 00 4F 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF FF FF 00 00 00 00 00 01 00 01 00
+      4E 00 4D 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @embed_caption1)
+    assert_equal(expected_area, got_area, @embed_caption2)
+
+
+    reset_chart(@chart, true)
+
+    @chart.set_chartarea(
+      :line_weight    => 3
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 00 00 01 00 00 00 4F 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF FF FF 00 00 00 00 00 01 00 01 00
+      4E 00 4D 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @embed_caption1)
+    assert_equal(expected_area, got_area, @embed_caption2)
+
+
+    reset_chart(@chart, true)
+
+    @chart.set_chartarea(
+      :color      => 'red',
+      :line_color => 'black'
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 00 00 FF FF 00 00 08 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF 00 00 00 00 00 00 00 01 00 00 00
+      0A 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @embed_caption1)
+    assert_equal(expected_area, got_area, @embed_caption2)
+
+
+    reset_chart(@chart, true)
+
+    @chart.set_chartarea(
+      :color        => 'red',
+      :line_pattern => 2
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 01 00 FF FF 00 00 4F 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF 00 00 00 00 00 00 00 01 00 00 00
+      0A 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @embed_caption1)
+    assert_equal(expected_area, got_area, @embed_caption2)
+
+
+    reset_chart(@chart, true)
+
+    @chart.set_chartarea(
+      :color       => 'red',
+      :line_weight => 3
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 00 00 01 00 00 00 4F 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF 00 00 00 00 00 00 00 01 00 00 00
+      0A 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_chartarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @embed_caption1)
+    assert_equal(expected_area, got_area, @embed_caption2)
+
+
+    @chart.embedded = false
+
+    reset_chart(@chart)
+
+    @chart.set_plotarea(
+    )
+
+    expected_line = %w(
+      07 10 0C 00 80 80 80 00 00 00 00 00 00 00 17 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 C0 C0 C0 00 00 00 00 00 01 00 00 00
+      16 00 4F 00
+    ).join(' ')
+
+    got_line, got_area = get_plotarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @plotarea_caption1)
+    assert_equal(expected_area, got_area, @plotarea_caption2)
+
+
+    reset_chart(@chart)
+
+    @chart.set_plotarea(
+      :color        => 'red',
+      :line_color   => 'black',
+      :line_pattern => 2,
+      :line_weight  => 3
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 01 00 01 00 00 00 08 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF 00 00 00 00 00 00 00 01 00 00 00
+      0A 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_plotarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @plotarea_caption1)
+    assert_equal(expected_area, got_area, @plotarea_caption2)
+
+
+    reset_chart(@chart)
+
+    @chart.set_plotarea(
+      :color        => 'red'
+    )
+
+    expected_line = %w(
+      07 10 0C 00 80 80 80 00 00 00 00 00 00 00 17 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF 00 00 00 00 00 00 00 01 00 00 00
+      0A 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_plotarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @plotarea_caption1)
+    assert_equal(expected_area, got_area, @plotarea_caption2)
+
+
+    reset_chart(@chart)
+
+    @chart.set_plotarea(
+      :line_color   => 'red'
+    )
+
+    expected_line = %w(
+      07 10 0C 00 FF 00 00 00 00 00 00 00 00 00 0A 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 C0 C0 C0 00 00 00 00 00 01 00 00 00
+      16 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_plotarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @plotarea_caption1)
+    assert_equal(expected_area, got_area, @plotarea_caption2)
+
+
+    reset_chart(@chart)
+
+    @chart.set_plotarea(
+      :line_pattern => 2
+    )
+
+    expected_line = %w(
+      07 10 0C 00 80 80 80 00 01 00 00 00 00 00 17 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 C0 C0 C0 00 00 00 00 00 01 00 00 00
+      16 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_plotarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @plotarea_caption1)
+    assert_equal(expected_area, got_area, @plotarea_caption2)
+
+
+    reset_chart(@chart)
+
+    @chart.set_plotarea(
+      :line_weight => 3
+    )
+
+    expected_line = %w(
+      07 10 0C 00 80 80 80 00 00 00 01 00 00 00 17 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 C0 C0 C0 00 00 00 00 00 01 00 00 00
+      16 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_plotarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @plotarea_caption1)
+    assert_equal(expected_area, got_area, @plotarea_caption2)
+
+
+    reset_chart(@chart)
+
+    @chart.set_plotarea(
+      :color      => 'red',
+      :line_color => 'black'
+    )
+
+    expected_line = %w(
+      07 10 0C 00 00 00 00 00 00 00 00 00 00 00 08 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF 00 00 00 00 00 00 00 01 00 00 00
+      0A 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_plotarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @plotarea_caption1)
+    assert_equal(expected_area, got_area, @plotarea_caption2)
+
+
+    reset_chart(@chart)
+
+    @chart.set_plotarea(
+      :color        => 'red',
+      :line_pattern => 2
+    )
+
+    expected_line = %w(
+      07 10 0C 00 80 80 80 00 01 00 00 00 00 00 17 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF 00 00 00 00 00 00 00 01 00 00 00
+      0A 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_plotarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @plotarea_caption1)
+    assert_equal(expected_area, got_area, @plotarea_caption2)
+
+
+    reset_chart(@chart)
+
+    @chart.set_plotarea(
+      :color       => 'red',
+      :line_weight => 3
+    )
+
+    expected_line = %w(
+      07 10 0C 00 80 80 80 00 00 00 01 00 00 00 17 00
+    ).join(' ')
+
+    expected_area = %w(
+      0A 10 10 00 FF 00 00 00 00 00 00 00 01 00 00 00
+      0A 00 08 00
+    ).join(' ')
+
+    got_line, got_area = get_plotarea_formats(@chart)
+
+    assert_equal(expected_line, got_line, @plotarea_caption1)
+    assert_equal(expected_area, got_area, @plotarea_caption2)
+  end
+
+
+  ###############################################################################
+  #
+  # Reset the chart data for testing.
+  #
+  def reset_chart(chart, embedded = nil)
+    # Reset the chart data.
+    chart.data = ''
+    chart.set_default_properties
+
+    if embedded
+      chart.set_embedded_config_data
+    end
+  end
+
+  ###############################################################################
+  #
+  # Extract Line and Area format records from the Chartarea Frame stream.
+  #
+  def get_chartarea_formats(chart)
+    chart.store_chartarea_frame_stream
+
+    line = unpack_record(chart.data[12, 16])
+    area = unpack_record(chart.data[28, 20])
+
+    [line, area]
+  end
+
+  ###############################################################################
+  #
+  # Extract Line and Area format records from the Chartarea Frame stream.
+  #
+  def get_plotarea_formats(chart)
+    chart.store_plotarea_frame_stream
+
+    line = unpack_record(chart.data[12, 16])
+    area = unpack_record(chart.data[28, 20])
+
+    [line, area]
+  end
+
+  def unpack_record(data)
+    data.unpack('C*').map! {|c| sprintf("%02X", c) }.join(' ')
+  end
+end