write_xlsx 0.0.4 → 0.51.0

data/test/test_example_match.rb

@@ -5,16 +5,16 @@
 class TestExampleMatch < Test::Unit::TestCase
   def setup
     setup_dir_var
-    Writexlsx::Utility.delete_files(@expected_dir) if File.exist?(@expected_dir)
-    Writexlsx::Utility.delete_files(@result_dir)   if File.exist?(@result_dir)
-    raise "cannot create test working directory." if File.exist?(@expected_dir) || File.exist?(@result_dir)
-    @obj = Writexlsx::Package::XMLWriterSimple.new
+  end
+
+  def teardown
+    File.delete(@xlsx) if File.exist?(@xlsx)
   end
 
   def test_a_simple
-    xlsx = 'a_simple.xlsx'
+    @xlsx = 'a_simple.xlsx'
     # Create a new workbook called simple.xls and add a worksheet
-    workbook  = WriteXLSX.new(xlsx)
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet = workbook.add_worksheet
 
     # The general syntax is write(row, column, token). Note that row and
@@ -43,12 +43,12 @@ def test_a_simple
     worksheet.write(10, 0, 'http://www.ruby-lang.org/', hyperlink_format)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_array_formula
-    xlsx = 'array_formula.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
+    @xlsx = 'array_formula.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet = workbook.add_worksheet
 
     # Write some test data.
@@ -65,12 +65,276 @@ def test_array_formula
     worksheet.write_array_formula('A5:A7', '{=TREND(C5:C7,B5:B7)}')
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
+
+  def test_autofilter
+    @xlsx = 'autofilter.xlsx'
+    workbook = WriteXLSX.new(@xlsx)
+
+    worksheet1 = workbook.add_worksheet
+    worksheet2 = workbook.add_worksheet
+    worksheet3 = workbook.add_worksheet
+    worksheet4 = workbook.add_worksheet
+    worksheet5 = workbook.add_worksheet
+    worksheet6 = workbook.add_worksheet
+
+    bold = workbook.add_format(:bold => 1 )
+
+    # Extract the data embedded at the end of this file.
+    data_array = autofilter_data.split("\n")
+    headings = data_array.shift.split
+    data = []
+    data_array.each { |line| data << line.split }
+
+    # Set up several sheets with the same data.
+    workbook.worksheets.each do |worksheet|
+      worksheet.set_column('A:D', 12 )
+      worksheet.set_row(0, 20, bold )
+      worksheet.write('A1', headings )
+    end
+
+
+    ###############################################################################
+    #
+    # Example 1. Autofilter without conditions.
+    #
+
+    worksheet1.autofilter('A1:D51' )
+    worksheet1.write('A2', [ data ] )
+
+    ###############################################################################
+    #
+    #
+    # Example 2. Autofilter with a filter condition in the first column.
+    #
+
+    # The range in this example is the same as above but in row-column notation.
+    worksheet2.autofilter(0, 0, 50, 3 )
+
+    # The placeholder "Region" in the filter is ignored and can be any string
+    # that adds clarity to the expression.
+    #
+    worksheet2.filter_column(0, 'Region eq East' )
+
+    #
+    # Hide the rows that don't match the filter criteria.
+    #
+    row = 1
+
+    data.each do |row_data|
+      region = row_data[0]
+
+      worksheet2.set_row(row, nil, nil, 1) unless region == 'East'
+      worksheet2.write(row, 0, row_data)
+      row += 1
+    end
+
+    ###############################################################################
+    #
+    #
+    # Example 3. Autofilter with a dual filter condition in one of the columns.
+    #
+
+    worksheet3.autofilter('A1:D51' )
+
+    worksheet3.filter_column('A', 'x eq East or x eq South' )
+
+    #
+    # Hide the rows that don't match the filter criteria.
+    #
+    row = 1
+
+    data.each do |row_data|
+      region = row_data[0]
+
+      worksheet3.set_row(row, nil, nil, 1) unless region == 'East' || region == 'South'
+      worksheet3.write(row, 0,row_data)
+      row += 1
+    end
+
+
+    ###############################################################################
+    #
+    #
+    # Example 4. Autofilter with filter conditions in two columns.
+    #
+
+    worksheet4.autofilter('A1:D51')
+
+    worksheet4.filter_column('A', 'x eq East')
+    worksheet4.filter_column('C', 'x > 3000 and x < 8000')
+
+    #
+    # Hide the rows that don't match the filter criteria.
+    #
+    row = 1
+
+    data.each do |row_data|
+      region = row_data[0]
+      volume = row_data[2]
+
+      unless region == 'East' && volume.to_i > 3000 && volume.to_i < 8000
+        # Hide row.
+        worksheet4.set_row(row, nil, nil, 1)
+      end
+
+      worksheet4.write(row, 0, row_data)
+      row += 1
+    end
+
+
+    ###############################################################################
+    #
+    #
+    # Example 5. Autofilter with filter for blanks.
+    #
+
+    # Create a blank cell in our test data.
+    data[5][0] = ''
+
+    worksheet5.autofilter('A1:D51')
+    worksheet5.filter_column('A', 'x eq Blanks')
+
+    #
+    # Hide the rows that don't match the filter criteria.
+    #
+    row = 1
+
+    data.each do |row_data|
+      region = row_data[0]
+
+      worksheet5.set_row(row, nil, nil, 1) unless region == ''
+
+      worksheet5.write(row, 0, row_data)
+      row += 1
+    end
+
+
+    ###############################################################################
+    #
+    #
+    # Example 6. Autofilter with filter for non-blanks.
+    #
+
+
+    worksheet6.autofilter('A1:D51')
+    worksheet6.filter_column('A', 'x eq NonBlanks')
+
+    #
+    # Hide the rows that don't match the filter criteria.
+    #
+    row = 1
+
+    data.each do |row_data|
+      region = row_data[0]
+
+      worksheet6.set_row(row, nil, nil, 1) unless region != ''
+
+      worksheet6.write(row, 0, row_data)
+      row += 1
+    end
+
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
+
+  def test_chart_scatter06
+    @xlsx = 'chart_scatter06.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet
+    chart     = workbook.add_chart(:type => 'scatter', :embedded => 1)
+
+    # For testing, copy the randomly generated axis ids in the target xlsx file.
+    chart.instance_variable_set(:@axis_ids, [57708544, 44297600])
+
+    data = [
+            [ 1, 2, 3, 4,  5 ],
+            [ 2, 4, 6, 8,  10 ],
+            [ 3, 6, 9, 12, 15 ]
+
+           ]
+
+    worksheet.write('A1', data)
+
+    chart.add_series(
+                     :categories => '=Sheet1!$A$1:$A$5',
+                     :values     => '=Sheet1!$B$1:$B$5'
+                    )
+
+    chart.add_series(
+                     :categories => '=Sheet1!$A$1:$A$5',
+                     :values     => '=Sheet1!$C$1:$C$5'
+                    )
+
+    chart.set_x_axis(:minor_unit => 1, :major_unit => 3)
+    chart.set_y_axis(:minor_unit => 2, :major_unit => 4)
+
+    worksheet.insert_chart('E9', chart)
+
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
+
+  def autofilter_data
+<<EOS
+    Region    Item      Volume    Month
+    East      Apple     9000      July
+    East      Apple     5000      July
+    South     Orange    9000      September
+    North     Apple     2000      November
+    West      Apple     9000      November
+    South     Pear      7000      October
+    North     Pear      9000      August
+    West      Orange    1000      December
+    West      Grape     1000      November
+    South     Pear      10000     April
+    West      Grape     6000      January
+    South     Orange    3000      May
+    North     Apple     3000      December
+    South     Apple     7000      February
+    West      Grape     1000      December
+    East      Grape     8000      February
+    South     Grape     10000     June
+    West      Pear      7000      December
+    South     Apple     2000      October
+    East      Grape     7000      December
+    North     Grape     6000      April
+    East      Pear      8000      February
+    North     Apple     7000      August
+    North     Orange    7000      July
+    North     Apple     6000      June
+    South     Grape     8000      September
+    West      Apple     3000      October
+    South     Orange    10000     November
+    West      Grape     4000      July
+    North     Orange    5000      August
+    East      Orange    1000      November
+    East      Orange    4000      October
+    North     Grape     5000      August
+    East      Apple     1000      December
+    South     Apple     10000     March
+    East      Grape     7000      October
+    West      Grape     1000      September
+    East      Grape     10000     October
+    South     Orange    8000      March
+    North     Apple     4000      July
+    South     Orange    5000      July
+    West      Apple     4000      June
+    East      Apple     5000      April
+    North     Pear      3000      August
+    East      Grape     9000      November
+    North     Orange    8000      October
+    East      Apple     10000     June
+    South     Pear      1000      December
+    North     Grape     10000     July
+    East      Grape     6000      February
+EOS
   end
 
   def test_chart_area
-    xlsx = 'chart_area.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
+    @xlsx = 'chart_area.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet = workbook.add_worksheet
     bold      = workbook.add_format(:bold => 1)
 
@@ -115,12 +379,12 @@ def test_chart_area
     worksheet.insert_chart('D2', chart, 25, 10)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_chart_bar
-    xlsx = 'chart_bar.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
+    @xlsx = 'chart_bar.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet = workbook.add_worksheet
     bold      = workbook.add_format(:bold => 1)
 
@@ -165,12 +429,12 @@ def test_chart_bar
     worksheet.insert_chart('D2', chart, 25, 10)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_chart_column
-    xlsx = 'chart_column.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
+    @xlsx = 'chart_column.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet = workbook.add_worksheet
     bold      = workbook.add_format(:bold => 1)
 
@@ -215,12 +479,12 @@ def test_chart_column
     worksheet.insert_chart('D2', chart, 25, 10)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_chart_line
-    xlsx = 'chart_line.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
+    @xlsx = 'chart_line.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet = workbook.add_worksheet
     bold      = workbook.add_format(:bold => 1)
 
@@ -265,12 +529,12 @@ def test_chart_line
     worksheet.insert_chart('D2', chart, 25, 10)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_chart_pie
-    xlsx = 'chart_pie.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
+    @xlsx = 'chart_pie.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet = workbook.add_worksheet
     bold      = workbook.add_format(:bold => 1)
 
@@ -305,12 +569,12 @@ def test_chart_pie
     worksheet.insert_chart('C2', chart, 25, 10)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_chart_scatter
-    xlsx = 'chart_scatter.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
+    @xlsx = 'chart_scatter.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet = workbook.add_worksheet
     bold      = workbook.add_format(:bold => 1)
 
@@ -355,12 +619,12 @@ def test_chart_scatter
     worksheet.insert_chart('D2', chart, 25, 10)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_chart_stock
-    xlsx = 'chart_stock.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
+    @xlsx = 'chart_stock.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet   = workbook.add_worksheet
     bold        = workbook.add_format(:bold => 1)
     date_format = workbook.add_format(:num_format => 'dd/mm/yyyy')
@@ -411,19 +675,412 @@ def test_chart_stock
     worksheet.insert_chart('E9', chart)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
-  def test_conditional_format
-    xlsx = 'conditional_format.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
-    worksheet1 = workbook.add_worksheet
+  def test_chart_secondary_axis
+    @xlsx = 'chart_secondary_axis.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet
+    bold      = workbook.add_format(:bold => 1)
 
-    # Light red fill with dark red text.
-    format1 = workbook.add_format(
-                                  :bg_color => '#FFC7CE',
-                                  :color    => '#9C0006'
-                                  )
+    # Add the worksheet data that the charts will refer to.
+    headings = [ 'Aliens', 'Humans']
+    data = [
+            [ 2,  3,  4,  5,  6,  7 ],
+            [ 10, 40, 50, 20, 10, 50 ]
+           ]
+
+    worksheet.write('A1', headings, bold)
+    worksheet.write('A2', data)
+
+    # Create a new chart object. In this case an embedded chart.
+    chart = workbook.add_chart(:type => 'line', :embedded => 1)
+
+    # Configure the first series.
+    chart.add_series(
+                     :name    => '=Sheet1!$A$1',
+                     :values  => '=Sheet1!$A$2:$A$7',
+                     :y2_axis => 1
+                     )
+
+    chart.add_series(
+                     :name       => '=Sheet1!$B$1',
+                     :values     => '=Sheet1!$B$2:$B$7'
+                     )
+
+    chart.set_legend(:position => 'right')
+
+    # Add a chart title and some axis labels.
+    chart.set_title(:name => 'Survey results')
+    chart.set_x_axis(:name => 'Days')
+    chart.set_y_axis(:name => 'Population', :major_gridlines => {:show => 0})
+    chart.set_y2_axis(:name => 'Laser wounds')
+
+    # Insert the chart into the worksheet (with an offset).
+    worksheet.insert_chart('D2', chart, 25, 10)
+
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
+
+  def test_comments1
+    @xlsx = 'comments1.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet
+
+    worksheet.write('A1', 'Hello')
+    worksheet.write_comment('A1', 'This is a comment')
+
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
+
+  def test_comments2
+    @xlsx = 'comments2.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+
+    text_wrap  = workbook.add_format( :text_wrap => 1, :valign => 'top' )
+    worksheet1 = workbook.add_worksheet
+    worksheet2 = workbook.add_worksheet
+    worksheet3 = workbook.add_worksheet
+    worksheet4 = workbook.add_worksheet
+    worksheet5 = workbook.add_worksheet
+    worksheet6 = workbook.add_worksheet
+    worksheet7 = workbook.add_worksheet
+    worksheet8 = workbook.add_worksheet
+
+
+    # Variables that we will use in each example.
+    cell_text = ''
+    comment   = ''
+
+
+    ###############################################################################
+    #
+    # Example 1. Demonstrates a simple cell comments without formatting.
+    #            comments.
+    #
+
+    # Set up some formatting.
+    worksheet1.set_column( 'C:C', 25 )
+    worksheet1.set_row( 2, 50 )
+    worksheet1.set_row( 5, 50 )
+
+
+    # Simple ascii string.
+    cell_text = 'Hold the mouse over this cell to see the comment.'
+
+    comment = 'This is a comment.'
+
+    worksheet1.write( 'C3', cell_text, text_wrap )
+    worksheet1.write_comment( 'C3', comment )
+
+    cell_text = 'This is a UTF-8 string.'
+    comment   = '☺'
+
+    worksheet1.write( 'C6', cell_text, text_wrap )
+    worksheet1.write_comment( 'C6', comment )
+
+
+
+    ###############################################################################
+    #
+    # Example 2. Demonstrates visible and hidden comments.
+    #
+
+    # Set up some formatting.
+    worksheet2.set_column( 'C:C', 25 )
+    worksheet2.set_row( 2, 50 )
+    worksheet2.set_row( 5, 50 )
+
+
+    cell_text = 'This cell comment is visible.'
+
+    comment = 'Hello.'
+
+    worksheet2.write( 'C3', cell_text, text_wrap )
+    worksheet2.write_comment( 'C3', comment, :visible => 1 )
+
+
+    cell_text = "This cell comment isn't visible (the default)."
+
+    comment = 'Hello.'
+
+    worksheet2.write( 'C6', cell_text, text_wrap )
+    worksheet2.write_comment( 'C6', comment )
+
+
+    ###############################################################################
+    #
+    # Example 3. Demonstrates visible and hidden comments set at the worksheet
+    #            level.
+    #
+
+    # Set up some formatting.
+    worksheet3.set_column( 'C:C', 25 )
+    worksheet3.set_row( 2, 50 )
+    worksheet3.set_row( 5, 50 )
+    worksheet3.set_row( 8, 50 )
+
+    # Make all comments on the worksheet visible.
+    worksheet3.show_comments
+
+    cell_text = 'This cell comment is visible, explicitly.'
+
+    comment = 'Hello.'
+
+    worksheet3.write( 'C3', cell_text, text_wrap )
+    worksheet3.write_comment( 'C3', comment, :visible => 1 )
+
+
+    cell_text =
+      'This cell comment is also visible because we used show_comments().'
+
+    comment = 'Hello.'
+
+    worksheet3.write( 'C6', cell_text, text_wrap )
+    worksheet3.write_comment( 'C6', comment )
+
+
+    cell_text = 'However, we can still override it locally.'
+
+    comment = 'Hello.'
+
+    worksheet3.write( 'C9', cell_text, text_wrap )
+    worksheet3.write_comment( 'C9', comment, :visible => 0 )
+
+
+    ###############################################################################
+    #
+    # Example 4. Demonstrates changes to the comment box dimensions.
+    #
+
+    # Set up some formatting.
+    worksheet4.set_column( 'C:C', 25 )
+    worksheet4.set_row( 2,  50 )
+    worksheet4.set_row( 5,  50 )
+    worksheet4.set_row( 8,  50 )
+    worksheet4.set_row( 15, 50 )
+
+    worksheet4.show_comments
+
+    cell_text = 'This cell comment is default size.'
+
+    comment = 'Hello.'
+
+    worksheet4.write( 'C3', cell_text, text_wrap )
+    worksheet4.write_comment( 'C3', comment )
+
+
+    cell_text = 'This cell comment is twice as wide.'
+
+    comment = 'Hello.'
+
+    worksheet4.write( 'C6', cell_text, text_wrap )
+    worksheet4.write_comment( 'C6', comment, :x_scale => 2 )
+
+
+    cell_text = 'This cell comment is twice as high.'
+
+    comment = 'Hello.'
+
+    worksheet4.write( 'C9', cell_text, text_wrap )
+    worksheet4.write_comment( 'C9', comment, :y_scale => 2 )
+
+
+    cell_text = 'This cell comment is scaled in both directions.'
+
+    comment = 'Hello.'
+
+    worksheet4.write( 'C16', cell_text, text_wrap )
+    worksheet4.write_comment( 'C16', comment, :x_scale => 1.2, :y_scale => 0.8 )
+
+
+    cell_text = 'This cell comment has width and height specified in pixels.'
+
+    comment = 'Hello.'
+
+    worksheet4.write( 'C19', cell_text, text_wrap )
+    worksheet4.write_comment( 'C19', comment, :width => 200, :height => 20 )
+
+
+    ###############################################################################
+    #
+    # Example 5. Demonstrates changes to the cell comment position.
+    #
+
+    worksheet5.set_column( 'C:C', 25 )
+    worksheet5.set_row( 2,  50 )
+    worksheet5.set_row( 5,  50 )
+    worksheet5.set_row( 8,  50 )
+    worksheet5.set_row( 11, 50 )
+
+    worksheet5.show_comments
+
+    cell_text = 'This cell comment is in the default position.'
+
+    comment = 'Hello.'
+
+    worksheet5.write( 'C3', cell_text, text_wrap )
+    worksheet5.write_comment( 'C3', comment )
+
+
+    cell_text = 'This cell comment has been moved to another cell.'
+
+    comment = 'Hello.'
+
+    worksheet5.write( 'C6', cell_text, text_wrap )
+    worksheet5.write_comment( 'C6', comment, :start_cell => 'E4' )
+
+
+    cell_text = 'This cell comment has been moved to another cell.'
+
+    comment = 'Hello.'
+
+    worksheet5.write( 'C9', cell_text, text_wrap )
+    worksheet5.write_comment( 'C9', comment, :start_row => 8, :start_col => 4 )
+
+
+    cell_text = 'This cell comment has been shifted within its default cell.'
+
+    comment = 'Hello.'
+
+    worksheet5.write( 'C12', cell_text, text_wrap )
+    worksheet5.write_comment( 'C12', comment, :x_offset => 30, :y_offset => 12 )
+
+
+    ###############################################################################
+    #
+    # Example 6. Demonstrates changes to the comment background colour.
+    #
+
+    worksheet6.set_column( 'C:C', 25 )
+    worksheet6.set_row( 2, 50 )
+    worksheet6.set_row( 5, 50 )
+    worksheet6.set_row( 8, 50 )
+
+    worksheet6.show_comments
+
+    cell_text = 'This cell comment has a different colour.'
+
+    comment = 'Hello.'
+
+    worksheet6.write( 'C3', cell_text, text_wrap )
+    worksheet6.write_comment( 'C3', comment, :color => 'green' )
+
+
+    cell_text = 'This cell comment has the default colour.'
+
+    comment = 'Hello.'
+
+    worksheet6.write( 'C6', cell_text, text_wrap )
+    worksheet6.write_comment( 'C6', comment )
+
+
+    cell_text = 'This cell comment has a different colour.'
+
+    comment = 'Hello.'
+
+    worksheet6.write( 'C9', cell_text, text_wrap )
+    worksheet6.write_comment( 'C9', comment, :color => 0x35 )
+
+
+    ###############################################################################
+    #
+    # Example 7. Demonstrates how to set the cell comment author.
+    #
+
+    worksheet7.set_column( 'C:C', 30 )
+    worksheet7.set_row( 2,  50 )
+    worksheet7.set_row( 5,  50 )
+    worksheet7.set_row( 8,  50 )
+
+    author = ''
+    cell   = 'C3'
+
+    cell_text = "Move the mouse over this cell and you will see 'Cell commented " +
+      "by #{author}' (blank) in the status bar at the bottom"
+
+    comment = 'Hello.'
+
+    worksheet7.write( cell, cell_text, text_wrap )
+    worksheet7.write_comment( cell, comment )
+
+
+    author    = 'Ruby'
+    cell      = 'C6'
+    cell_text = "Move the mouse over this cell and you will see 'Cell commented " +
+      "by #{author}' in the status bar at the bottom"
+
+    comment = 'Hello.'
+
+    worksheet7.write( cell, cell_text, text_wrap )
+    worksheet7.write_comment( cell, comment, :author => author )
+
+
+    author    = '€'
+    cell      = 'C9'
+    cell_text = "Move the mouse over this cell and you will see 'Cell commented " +
+      "by #{author}' in the status bar at the bottom"
+    comment = 'Hello.'
+
+    worksheet7.write( cell, cell_text, text_wrap )
+    worksheet7.write_comment( cell, comment, :author => author )
+
+
+
+
+    ###############################################################################
+    #
+    # Example 8. Demonstrates the need to explicitly set the row height.
+    #
+
+    # Set up some formatting.
+    worksheet8.set_column( 'C:C', 25 )
+    worksheet8.set_row( 2, 80 )
+
+    worksheet8.show_comments
+
+
+    cell_text =
+      'The height of this row has been adjusted explicitly using ' +
+      'set_row(). The size of the comment box is adjusted ' +
+      'accordingly by WriteXLSX.'
+
+    comment = 'Hello.'
+
+    worksheet8.write( 'C3', cell_text, text_wrap )
+    worksheet8.write_comment( 'C3', comment )
+
+
+    cell_text =
+      'The height of this row has been adjusted by Excel due to the ' +
+      'text wrap property being set. Unfortunately this means that ' +
+      'the height of the row is unknown to WriteXLSX at ' +
+      "run time and thus the comment box is stretched as well.\n\n" +
+      'Use set_row() to specify the row height explicitly to avoid ' +
+      'this problem.'
+
+    comment = 'Hello.'
+
+    worksheet8.write( 'C6', cell_text, text_wrap )
+    worksheet8.write_comment( 'C6', comment )
+
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
+
+  def test_conditional_format
+    @xlsx = 'conditional_format.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet1 = workbook.add_worksheet
+
+    # Light red fill with dark red text.
+    format1 = workbook.add_format(
+                                  :bg_color => '#FFC7CE',
+                                  :color    => '#9C0006'
+                                  )
 
     # Green fill with dark green text.
     format2 = workbook.add_format(
@@ -477,12 +1134,12 @@ def test_conditional_format
                                       )
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_data_validate
-    xlsx = 'data_validate.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
+    @xlsx = 'data_validate.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet = workbook.add_worksheet
 
     # Add a format for the header cells.
@@ -744,12 +1401,86 @@ def test_data_validate
                               })
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
+
+  def test_date_time
+    @xlsx = 'date_time.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet
+    bold      = workbook.add_format(:bold => 1)
+
+    # Expand the first column so that the date is visible.
+    worksheet.set_column('A:B', 30)
+
+    # Write the column headers.
+    worksheet.write('A1', 'Formatted date', bold)
+    worksheet.write('B1', 'Format',         bold)
+
+    # Examples date and time formats. In the outpu file compare how changing
+    # the format codes change the appearance of the date.
+    #
+    date_formats = [
+    'dd/mm/yy',
+    'mm/dd/yy',
+    '',
+    'd mm yy',
+    'dd mm yy',
+    '',
+    'dd m yy',
+    'dd mm yy',
+    'dd mmm yy',
+    'dd mmmm yy',
+    '',
+    'dd mm y',
+    'dd mm yyy',
+    'dd mm yyyy',
+    '',
+    'd mmmm yyyy',
+    '',
+    'dd/mm/yy',
+    'dd/mm/yy hh:mm',
+    'dd/mm/yy hh:mm:ss',
+    'dd/mm/yy hh:mm:ss.000',
+    '',
+    'hh:mm',
+    'hh:mm:ss',
+    'hh:mm:ss.000'
+                   ]
+
+    # Write the same date and time using each of the above formats. The empty
+    # string formats create a blank line to make the example clearer.
+    #
+    row = 0
+    date_formats.each do |date_format|
+      row += 1
+      next if date_format == ''
+
+      # Create a format for the date or time.
+      format = workbook.add_format(
+                 :num_format => date_format,
+                 :align      => 'left'
+                                   )
+
+      # Write the same date using different formats.
+      worksheet.write_date_time(row, 0, '2004-08-01T12:30:45.123', format)
+      worksheet.write(row, 1, date_format)
+    end
+
+    # The following is an example of an invalid date. It is writen as a string
+    # instead of a number. This is also Excel's default behaviour.
+    #
+    row += 2
+    worksheet.write_date_time(row, 0, '2004-13-01T12:30:45.123')
+    worksheet.write(row, 1, 'Invalid date. Written as string.', bold)
+
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_defined_name
-    xlsx = 'defined_name.xlsx'
-    workbook   = WriteXLSX.new(xlsx)
+    @xlsx = 'defined_name.xlsx'
+    workbook   = WriteXLSX.new(@xlsx)
     worksheet1 = workbook.add_worksheet
     worksheet2 = workbook.add_worksheet
 
@@ -771,12 +1502,12 @@ def test_defined_name
     end
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_demo
-    xlsx = 'demo.xlsx'
-    workbook   = WriteXLSX.new(xlsx)
+    @xlsx = 'demo.xlsx'
+    workbook   = WriteXLSX.new(@xlsx)
     worksheet  = workbook.add_worksheet('Demo')
     worksheet2 = workbook.add_worksheet('Another sheet')
     worksheet3 = workbook.add_worksheet('And another')
@@ -872,12 +1603,12 @@ def test_demo
     worksheet.write('A19', "Multiple worksheets")
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_diag_border
-    xlsx = 'diag_border.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
+    @xlsx = 'diag_border.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet = workbook.add_worksheet()
 
 
@@ -897,12 +1628,12 @@ def test_diag_border
     worksheet.write('B12', 'Text', format4)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_fit_to_pages
-    xlsx = 'fit_to_pages.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
+    @xlsx = 'fit_to_pages.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet1 = workbook.add_worksheet
     worksheet2 = workbook.add_worksheet
     worksheet3 = workbook.add_worksheet
@@ -922,12 +1653,12 @@ def test_fit_to_pages
     worksheet4.fit_to_pages(1, 0)   # 1 page wide and as long as necessary
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_formats
-    xlsx = 'formats.xlsx'
-    workbook = WriteXLSX.new(xlsx)
+    @xlsx = 'formats.xlsx'
+    workbook = WriteXLSX.new(@xlsx)
 
     # Some common formats
     center = workbook.add_format(:align => 'center')
@@ -1404,12 +2135,12 @@ def misc(workbook, center, heading, colors)
     alignment(workbook, center, heading, colors)
     misc(workbook, center, heading, colors)
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_headers
-    xlsx = 'headers.xlsx'
-    workbook = WriteXLSX.new(xlsx)
+    @xlsx = 'headers.xlsx'
+    workbook = WriteXLSX.new(@xlsx)
     preview  = 'Select Print Preview to see the header and footer'
 
 
@@ -1486,12 +2217,12 @@ def test_headers
     worksheet5.write('A1', preview)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_hide_sheet
-    xlsx = 'hide_sheet.xlsx'
-    workbook   = WriteXLSX.new(xlsx)
+    @xlsx = 'hide_sheet.xlsx'
+    workbook   = WriteXLSX.new(@xlsx)
     worksheet1 = workbook.add_worksheet
     worksheet2 = workbook.add_worksheet
     worksheet3 = workbook.add_worksheet
@@ -1508,13 +2239,13 @@ def test_hide_sheet
     worksheet3.write(0, 0, 'Sheet2 is hidden')
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_hyperlink
-    xlsx = 'hyperlink.xlsx'
+    @xlsx = 'hyperlink.xlsx'
     # Create a new workbook and add a worksheet
-    workbook = WriteXLSX.new(xlsx)
+    workbook = WriteXLSX.new(@xlsx)
 
     worksheet = workbook.add_worksheet('Hyperlinks')
 
@@ -1555,218 +2286,30 @@ def test_hyperlink
     worksheet.write_string('A11', 'http://www.perl.com/')
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
-  end
-
-  def test_indent
-    xlsx = 'indent.xlsx'
-    workbook = WriteXLSX.new(xlsx)
-
-    worksheet = workbook.add_worksheet
-    indent1   = workbook.add_format(:indent => 1)
-    indent2   = workbook.add_format(:indent => 2)
-
-    worksheet.set_column('A:A', 40)
-
-    worksheet.write('A1', "This text is indented 1 level",  indent1)
-    worksheet.write('A2', "This text is indented 2 levels", indent2)
-
-    workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
-  end
-
-  def test_outline
-    xlsx = 'outline.xlsx'
-    # Create a new workbook and add some worksheets
-    workbook   = WriteXLSX.new(xlsx)
-    worksheet1 = workbook.add_worksheet('Outlined Rows')
-    worksheet2 = workbook.add_worksheet('Collapsed Rows')
-    worksheet3 = workbook.add_worksheet('Outline Columns')
-    worksheet4 = workbook.add_worksheet('Outline levels')
-
-    # Add a general format
-    bold = workbook.add_format(:bold => 1)
-
-
-    ###############################################################################
-    #
-    # Example 1: Create a worksheet with outlined rows. It also includes SUBTOTAL()
-    # functions so that it looks like the type of automatic outlines that are
-    # generated when you use the Excel Data.SubTotals menu item.
-    #
-
-
-    # For outlines the important parameters are $hidden and $level. Rows with the
-    # same $level are grouped together. The group will be collapsed if $hidden is
-    # non-zero. $height and $XF are assigned default values if they are nil.
-    #
-    # The syntax is: set_row($row, $height, $XF, $hidden, $level, $collapsed)
-    #
-    worksheet1.set_row(1, nil, nil, 0, 2)
-    worksheet1.set_row(2, nil, nil, 0, 2)
-    worksheet1.set_row(3, nil, nil, 0, 2)
-    worksheet1.set_row(4, nil, nil, 0, 2)
-    worksheet1.set_row(5, nil, nil, 0, 1)
-
-    worksheet1.set_row(6,  nil, nil, 0, 2)
-    worksheet1.set_row(7,  nil, nil, 0, 2)
-    worksheet1.set_row(8,  nil, nil, 0, 2)
-    worksheet1.set_row(9,  nil, nil, 0, 2)
-    worksheet1.set_row(10, nil, nil, 0, 1)
-
-
-    # Add a column format for clarity
-    worksheet1.set_column('A:A', 20)
-
-    # Add the data, labels and formulas
-    worksheet1.write('A1', 'Region', bold)
-    worksheet1.write('A2', 'North')
-    worksheet1.write('A3', 'North')
-    worksheet1.write('A4', 'North')
-    worksheet1.write('A5', 'North')
-    worksheet1.write('A6', 'North Total', bold)
-
-    worksheet1.write('B1', 'Sales', bold)
-    worksheet1.write('B2', 1000)
-    worksheet1.write('B3', 1200)
-    worksheet1.write('B4', 900)
-    worksheet1.write('B5', 1200)
-    worksheet1.write('B6', '=SUBTOTAL(9,B2:B5)', bold)
-
-    worksheet1.write('A7',  'South')
-    worksheet1.write('A8',  'South')
-    worksheet1.write('A9',  'South')
-    worksheet1.write('A10', 'South')
-    worksheet1.write('A11', 'South Total', bold)
-
-    worksheet1.write('B7',  400)
-    worksheet1.write('B8',  600)
-    worksheet1.write('B9',  500)
-    worksheet1.write('B10', 600)
-    worksheet1.write('B11', '=SUBTOTAL(9,B7:B10)', bold)
-
-    worksheet1.write('A12', 'Grand Total',         bold)
-    worksheet1.write('B12', '=SUBTOTAL(9,B2:B10)', bold)
-
-
-    ###############################################################################
-    #
-    # Example 2: Create a worksheet with outlined rows. This is the same as the
-    # previous example except that the rows are collapsed.
-    # Note: We need to indicate the row that contains the collapsed symbol '+'
-    # with the optional parameter, $collapsed.
-
-    # The group will be collapsed if $hidden is non-zero.
-    # The syntax is: set_row($row, $height, $XF, $hidden, $level, $collapsed)
-    #
-    worksheet2.set_row(1, nil, nil, 1, 2)
-    worksheet2.set_row(2, nil, nil, 1, 2)
-    worksheet2.set_row(3, nil, nil, 1, 2)
-    worksheet2.set_row(4, nil, nil, 1, 2)
-    worksheet2.set_row(5, nil, nil, 1, 1)
-
-    worksheet2.set_row(6,  nil, nil, 1, 2)
-    worksheet2.set_row(7,  nil, nil, 1, 2)
-    worksheet2.set_row(8,  nil, nil, 1, 2)
-    worksheet2.set_row(9,  nil, nil, 1, 2)
-    worksheet2.set_row(10, nil, nil, 1, 1)
-    worksheet2.set_row(11, nil, nil, 0, 0, 1)
-
-
-    # Add a column format for clarity
-    worksheet2.set_column('A:A', 20)
-
-    # Add the data, labels and formulas
-    worksheet2.write('A1', 'Region', bold)
-    worksheet2.write('A2', 'North')
-    worksheet2.write('A3', 'North')
-    worksheet2.write('A4', 'North')
-    worksheet2.write('A5', 'North')
-    worksheet2.write('A6', 'North Total', bold)
-
-    worksheet2.write('B1', 'Sales', bold)
-    worksheet2.write('B2', 1000)
-    worksheet2.write('B3', 1200)
-    worksheet2.write('B4', 900)
-    worksheet2.write('B5', 1200)
-    worksheet2.write('B6', '=SUBTOTAL(9,B2:B5)', bold)
-
-    worksheet2.write('A7',  'South')
-    worksheet2.write('A8',  'South')
-    worksheet2.write('A9',  'South')
-    worksheet2.write('A10', 'South')
-    worksheet2.write('A11', 'South Total', bold)
-
-    worksheet2.write('B7',  400)
-    worksheet2.write('B8',  600)
-    worksheet2.write('B9',  500)
-    worksheet2.write('B10', 600)
-    worksheet2.write('B11', '=SUBTOTAL(9,B7:B10)', bold)
-
-    worksheet2.write('A12', 'Grand Total',         bold)
-    worksheet2.write('B12', '=SUBTOTAL(9,B2:B10)', bold)
-
-
-    ###############################################################################
-    #
-    # Example 3: Create a worksheet with outlined columns.
-    #
-    data = [
-            [ 'Month', 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', ' Total' ],
-            [ 'North', 50,    20,    15,    25,    65,    80,    '=SUM(B2:G2)' ],
-            [ 'South', 10,    20,    30,    50,    50,    50,    '=SUM(B3:G3)' ],
-            [ 'East',  45,    75,    50,    15,    75,    100,   '=SUM(B4:G4)' ],
-            [ 'West',  15,    15,    55,    35,    20,    50,    '=SUM(B5:G5)' ],
-           ]
-
-    # Add bold format to the first row
-    worksheet3.set_row(0, nil, bold)
-
-    # Syntax: set_column($col1, $col2, $width, $XF, $hidden, $level, $collapsed)
-    worksheet3.set_column('A:A', 10, bold)
-    worksheet3.set_column('B:G', 5, nil, 0, 1)
-    worksheet3.set_column('H:H', 10)
-
-    # Write the data and a formula
-    worksheet3.write_col('A1', data)
-    worksheet3.write('H6', '=SUM(H2:H5)', bold)
-
-
-    ###############################################################################
-    #
-    # Example 4: Show all possible outline levels.
-    #
-    levels = [
-              "Level 1", "Level 2", "Level 3", "Level 4", "Level 5", "Level 6",
-              "Level 7", "Level 6", "Level 5", "Level 4", "Level 3", "Level 2",
-              "Level 1"
-             ]
-
-
-    worksheet4.write_col('A1', levels)
-
-    worksheet4.set_row(0,  nil, nil, nil, 1)
-    worksheet4.set_row(1,  nil, nil, nil, 2)
-    worksheet4.set_row(2,  nil, nil, nil, 3)
-    worksheet4.set_row(3,  nil, nil, nil, 4)
-    worksheet4.set_row(4,  nil, nil, nil, 5)
-    worksheet4.set_row(5,  nil, nil, nil, 6)
-    worksheet4.set_row(6,  nil, nil, nil, 7)
-    worksheet4.set_row(7,  nil, nil, nil, 6)
-    worksheet4.set_row(8,  nil, nil, nil, 5)
-    worksheet4.set_row(9,  nil, nil, nil, 4)
-    worksheet4.set_row(10, nil, nil, nil, 3)
-    worksheet4.set_row(11, nil, nil, nil, 2)
-    worksheet4.set_row(12, nil, nil, nil, 1)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
+
+  def test_indent
+    @xlsx = 'indent.xlsx'
+    workbook = WriteXLSX.new(@xlsx)
+
+    worksheet = workbook.add_worksheet
+    indent1   = workbook.add_format(:indent => 1)
+    indent2   = workbook.add_format(:indent => 2)
+
+    worksheet.set_column('A:A', 40)
+
+    worksheet.write('A1', "This text is indented 1 level",  indent1)
+    worksheet.write('A2', "This text is indented 2 levels", indent2)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_merge1
-    xlsx = 'merge1.xlsx'
+    @xlsx = 'merge1.xlsx'
     # Create a new workbook and add a worksheet
-    workbook  = WriteXLSX.new(xlsx)
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet = workbook.add_worksheet
 
     # Increase the cell size of the merged cells to highlight the formatting.
@@ -1781,44 +2324,13 @@ def test_merge1
     worksheet.write_blank(2, 2, format)
     worksheet.write_blank(2, 3, format)
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_merge2
     # Create a new workbook and add a worksheet
-    xlsx = 'merge2.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
-    worksheet = workbook.add_worksheet
-
-    # Increase the cell size of the merged cells to highlight the formatting.
-    worksheet.set_column(1, 2, 30)
-    worksheet.set_row(2, 40)
-
-    # Create a merged format
-    format = workbook.add_format(
-                                 :center_across => 1,
-                                 :bold          => 1,
-                                 :size          => 15,
-                                 :pattern       => 1,
-                                 :border        => 6,
-                                 :color         => 'white',
-                                 :fg_color      => 'green',
-                                 :border_color  => 'yellow',
-                                 :align         => 'vcenter'
-                                 )
-
-    # Only one cell should contain text, the others should be blank.
-    worksheet.write(2, 1, "Center across selection", format)
-    worksheet.write_blank(2, 2, format)
-
-    workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
-  end
-
-  def test_merge3
-    xlsx = 'merge2.xlsx'
-    # Create a new workbook and add a worksheet
-    workbook  = WriteXLSX.new(xlsx)
+    @xlsx = 'merge2.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet = workbook.add_worksheet
 
     # Increase the cell size of the merged cells to highlight the formatting.
@@ -1843,14 +2355,14 @@ def test_merge3
     worksheet.write_blank(2, 2, format)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_merge3
-    xlsx = 'merge3.xlsx'
+    @xlsx = 'merge3.xlsx'
 
     # Create a new workbook and add a worksheet
-    workbook  = WriteXLSX.new('merge3.xlsx')
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet = workbook.add_worksheet()
 
     # Increase the cell size of the merged cells to highlight the formatting.
@@ -1876,13 +2388,13 @@ def test_merge3
     worksheet.merge_range('B7:D8', 'http://www.perl.com', format)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_merge4
-    xlsx = 'merge4.xlsx'
+    @xlsx = 'merge4.xlsx'
     # Create a new workbook and add a worksheet
-    workbook  = WriteXLSX.new(xlsx)
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet = workbook.add_worksheet
 
     # Increase the cell size of the merged cells to highlight the formatting.
@@ -1946,579 +2458,1487 @@ def test_merge4
     worksheet.merge_range('B11:D12', 'Justified: ' << 'so on and ' * 18, format4)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_merge5
-    xlsx = 'merge5.xlsx'
+    @xlsx = 'merge5.xlsx'
+    # Create a new workbook and add a worksheet
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet
+
+    # Increase the cell size of the merged cells to highlight the formatting.
+    (3 .. 8).each { |row|  worksheet.set_row(row, 36 ) }
+    [1, 3, 5].each { |col| worksheet.set_column( col, col, 15 ) }
+
+    ###############################################################################
+    #
+    # Rotation 1, letters run from top to bottom
+    #
+    format1 = workbook.add_format(
+                                  :border   => 6,
+                                  :bold     => 1,
+                                  :color    => 'red',
+                                  :valign   => 'vcentre',
+                                  :align    => 'centre',
+                                  :rotation => 270
+                                  )
+
+    worksheet.merge_range( 'B4:B9', 'Rotation 270', format1 )
+
+    ###############################################################################
+    #
+    # Rotation 2, 90ｰ anticlockwise
+    #
+    format2 = workbook.add_format(
+                                  :border   => 6,
+                                  :bold     => 1,
+                                  :color    => 'red',
+                                  :valign   => 'vcentre',
+                                  :align    => 'centre',
+                                  :rotation => 90
+                                  )
+
+    worksheet.merge_range( 'D4:D9', 'Rotation 90°', format2 )
+
+    ###############################################################################
+    #
+    # Rotation 3, 90ｰ clockwise
+    #
+    format3 = workbook.add_format(
+                                  :border   => 6,
+                                  :bold     => 1,
+                                  :color    => 'red',
+                                  :valign   => 'vcentre',
+                                  :align    => 'centre',
+                                  :rotation => -90
+                                  )
+
+    worksheet.merge_range( 'F4:F9', 'Rotation -90°', format3 )
+
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
+
+  def test_merge6
+    @xlsx = 'merge6.xlsx'
     # Create a new workbook and add a worksheet
-    workbook  = WriteXLSX.new(xlsx)
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet = workbook.add_worksheet
 
-    # Increase the cell size of the merged cells to highlight the formatting.
-    (3 .. 8).each { |row|  worksheet.set_row(row, 36 ) }
-    [1, 3, 5].each { |col| worksheet.set_column( col, col, 15 ) }
+    # Increase the cell size of the merged cells to highlight the formatting.
+    (2 .. 9).each { |row| worksheet.set_row(row, 36) }
+    worksheet.set_column('B:D', 25)
+
+    # Format for the merged cells.
+    format = workbook.add_format(
+                                 :border => 6,
+                                 :bold   => 1,
+                                 :color  => 'red',
+                                 :size   => 20,
+                                 :valign => 'vcentre',
+                                 :align  => 'left',
+                                 :indent => 1
+                                 )
+
+    ###############################################################################
+    #
+    # Write an Ascii string.
+    #
+    worksheet.merge_range('B3:D4', 'ASCII: A simple string', format)
+
+    ###############################################################################
+    #
+    # Write a UTF-8 Unicode string.
+    #
+    smiley = '☺'
+    worksheet.merge_range('B6:D7', "UTF-8: A Unicode smiley #{smiley}", format)
+
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
+
+  def test_outline
+    @xlsx = 'outline.xlsx'
+    # Create a new workbook and add some worksheets
+    workbook   = WriteXLSX.new(@xlsx)
+    worksheet1 = workbook.add_worksheet('Outlined Rows')
+    worksheet2 = workbook.add_worksheet('Collapsed Rows')
+    worksheet3 = workbook.add_worksheet('Outline Columns')
+    worksheet4 = workbook.add_worksheet('Outline levels')
+
+    # Add a general format
+    bold = workbook.add_format(:bold => 1)
+
+
+    ###############################################################################
+    #
+    # Example 1: Create a worksheet with outlined rows. It also includes SUBTOTAL()
+    # functions so that it looks like the type of automatic outlines that are
+    # generated when you use the Excel Data.SubTotals menu item.
+    #
+
+
+    # For outlines the important parameters are $hidden and $level. Rows with the
+    # same $level are grouped together. The group will be collapsed if $hidden is
+    # non-zero. $height and $XF are assigned default values if they are nil.
+    #
+    # The syntax is: set_row($row, $height, $XF, $hidden, $level, $collapsed)
+    #
+    worksheet1.set_row(1, nil, nil, 0, 2)
+    worksheet1.set_row(2, nil, nil, 0, 2)
+    worksheet1.set_row(3, nil, nil, 0, 2)
+    worksheet1.set_row(4, nil, nil, 0, 2)
+    worksheet1.set_row(5, nil, nil, 0, 1)
+
+    worksheet1.set_row(6,  nil, nil, 0, 2)
+    worksheet1.set_row(7,  nil, nil, 0, 2)
+    worksheet1.set_row(8,  nil, nil, 0, 2)
+    worksheet1.set_row(9,  nil, nil, 0, 2)
+    worksheet1.set_row(10, nil, nil, 0, 1)
+
+
+    # Add a column format for clarity
+    worksheet1.set_column('A:A', 20)
+
+    # Add the data, labels and formulas
+    worksheet1.write('A1', 'Region', bold)
+    worksheet1.write('A2', 'North')
+    worksheet1.write('A3', 'North')
+    worksheet1.write('A4', 'North')
+    worksheet1.write('A5', 'North')
+    worksheet1.write('A6', 'North Total', bold)
+
+    worksheet1.write('B1', 'Sales', bold)
+    worksheet1.write('B2', 1000)
+    worksheet1.write('B3', 1200)
+    worksheet1.write('B4', 900)
+    worksheet1.write('B5', 1200)
+    worksheet1.write('B6', '=SUBTOTAL(9,B2:B5)', bold)
+
+    worksheet1.write('A7',  'South')
+    worksheet1.write('A8',  'South')
+    worksheet1.write('A9',  'South')
+    worksheet1.write('A10', 'South')
+    worksheet1.write('A11', 'South Total', bold)
+
+    worksheet1.write('B7',  400)
+    worksheet1.write('B8',  600)
+    worksheet1.write('B9',  500)
+    worksheet1.write('B10', 600)
+    worksheet1.write('B11', '=SUBTOTAL(9,B7:B10)', bold)
+
+    worksheet1.write('A12', 'Grand Total',         bold)
+    worksheet1.write('B12', '=SUBTOTAL(9,B2:B10)', bold)
+
+
+    ###############################################################################
+    #
+    # Example 2: Create a worksheet with outlined rows. This is the same as the
+    # previous example except that the rows are collapsed.
+    # Note: We need to indicate the row that contains the collapsed symbol '+'
+    # with the optional parameter, $collapsed.
+
+    # The group will be collapsed if $hidden is non-zero.
+    # The syntax is: set_row($row, $height, $XF, $hidden, $level, $collapsed)
+    #
+    worksheet2.set_row(1, nil, nil, 1, 2)
+    worksheet2.set_row(2, nil, nil, 1, 2)
+    worksheet2.set_row(3, nil, nil, 1, 2)
+    worksheet2.set_row(4, nil, nil, 1, 2)
+    worksheet2.set_row(5, nil, nil, 1, 1)
+
+    worksheet2.set_row(6,  nil, nil, 1, 2)
+    worksheet2.set_row(7,  nil, nil, 1, 2)
+    worksheet2.set_row(8,  nil, nil, 1, 2)
+    worksheet2.set_row(9,  nil, nil, 1, 2)
+    worksheet2.set_row(10, nil, nil, 1, 1)
+    worksheet2.set_row(11, nil, nil, 0, 0, 1)
+
+
+    # Add a column format for clarity
+    worksheet2.set_column('A:A', 20)
+
+    # Add the data, labels and formulas
+    worksheet2.write('A1', 'Region', bold)
+    worksheet2.write('A2', 'North')
+    worksheet2.write('A3', 'North')
+    worksheet2.write('A4', 'North')
+    worksheet2.write('A5', 'North')
+    worksheet2.write('A6', 'North Total', bold)
+
+    worksheet2.write('B1', 'Sales', bold)
+    worksheet2.write('B2', 1000)
+    worksheet2.write('B3', 1200)
+    worksheet2.write('B4', 900)
+    worksheet2.write('B5', 1200)
+    worksheet2.write('B6', '=SUBTOTAL(9,B2:B5)', bold)
+
+    worksheet2.write('A7',  'South')
+    worksheet2.write('A8',  'South')
+    worksheet2.write('A9',  'South')
+    worksheet2.write('A10', 'South')
+    worksheet2.write('A11', 'South Total', bold)
+
+    worksheet2.write('B7',  400)
+    worksheet2.write('B8',  600)
+    worksheet2.write('B9',  500)
+    worksheet2.write('B10', 600)
+    worksheet2.write('B11', '=SUBTOTAL(9,B7:B10)', bold)
+
+    worksheet2.write('A12', 'Grand Total',         bold)
+    worksheet2.write('B12', '=SUBTOTAL(9,B2:B10)', bold)
+
 
     ###############################################################################
     #
-    # Rotation 1, letters run from top to bottom
+    # Example 3: Create a worksheet with outlined columns.
     #
-    format1 = workbook.add_format(
-                                  :border   => 6,
-                                  :bold     => 1,
-                                  :color    => 'red',
-                                  :valign   => 'vcentre',
-                                  :align    => 'centre',
-                                  :rotation => 270
-                                  )
+    data = [
+            [ 'Month', 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', ' Total' ],
+            [ 'North', 50,    20,    15,    25,    65,    80,    '=SUM(B2:G2)' ],
+            [ 'South', 10,    20,    30,    50,    50,    50,    '=SUM(B3:G3)' ],
+            [ 'East',  45,    75,    50,    15,    75,    100,   '=SUM(B4:G4)' ],
+            [ 'West',  15,    15,    55,    35,    20,    50,    '=SUM(B5:G5)' ],
+           ]
 
-    worksheet.merge_range( 'B4:B9', 'Rotation 270', format1 )
+    # Add bold format to the first row
+    worksheet3.set_row(0, nil, bold)
 
-    ###############################################################################
-    #
-    # Rotation 2, 90ｰ anticlockwise
-    #
-    format2 = workbook.add_format(
-                                  :border   => 6,
-                                  :bold     => 1,
-                                  :color    => 'red',
-                                  :valign   => 'vcentre',
-                                  :align    => 'centre',
-                                  :rotation => 90
-                                  )
+    # Syntax: set_column($col1, $col2, $width, $XF, $hidden, $level, $collapsed)
+    worksheet3.set_column('A:A', 10, bold)
+    worksheet3.set_column('B:G', 5, nil, 0, 1)
+    worksheet3.set_column('H:H', 10)
+
+    # Write the data and a formula
+    worksheet3.write_col('A1', data)
+    worksheet3.write('H6', '=SUM(H2:H5)', bold)
 
-    worksheet.merge_range( 'D4:D9', 'Rotation 90°', format2 )
 
     ###############################################################################
     #
-    # Rotation 3, 90ｰ clockwise
+    # Example 4: Show all possible outline levels.
     #
-    format3 = workbook.add_format(
-                                  :border   => 6,
-                                  :bold     => 1,
-                                  :color    => 'red',
-                                  :valign   => 'vcentre',
-                                  :align    => 'centre',
-                                  :rotation => -90
-                                  )
-
-    worksheet.merge_range( 'F4:F9', 'Rotation -90°', format3 )
+    levels = [
+              "Level 1", "Level 2", "Level 3", "Level 4", "Level 5", "Level 6",
+              "Level 7", "Level 6", "Level 5", "Level 4", "Level 3", "Level 2",
+              "Level 1"
+             ]
 
-    workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
-  end
 
-  def test_merge6
-    xlsx = 'merge6.xlsx'
-    # Create a new workbook and add a worksheet
-    workbook  = WriteXLSX.new(xlsx)
-    worksheet = workbook.add_worksheet
+    worksheet4.write_col('A1', levels)
 
-    # Increase the cell size of the merged cells to highlight the formatting.
-    (2 .. 9).each { |row| worksheet.set_row(row, 36) }
-    worksheet.set_column('B:D', 25)
+    worksheet4.set_row(0,  nil, nil, nil, 1)
+    worksheet4.set_row(1,  nil, nil, nil, 2)
+    worksheet4.set_row(2,  nil, nil, nil, 3)
+    worksheet4.set_row(3,  nil, nil, nil, 4)
+    worksheet4.set_row(4,  nil, nil, nil, 5)
+    worksheet4.set_row(5,  nil, nil, nil, 6)
+    worksheet4.set_row(6,  nil, nil, nil, 7)
+    worksheet4.set_row(7,  nil, nil, nil, 6)
+    worksheet4.set_row(8,  nil, nil, nil, 5)
+    worksheet4.set_row(9,  nil, nil, nil, 4)
+    worksheet4.set_row(10, nil, nil, nil, 3)
+    worksheet4.set_row(11, nil, nil, nil, 2)
+    worksheet4.set_row(12, nil, nil, nil, 1)
 
-    # Format for the merged cells.
-    format = workbook.add_format(
-                                 :border => 6,
-                                 :bold   => 1,
-                                 :color  => 'red',
-                                 :size   => 20,
-                                 :valign => 'vcentre',
-                                 :align  => 'left',
-                                 :indent => 1
-                                 )
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
+=begin
+  def test_outline_collapsed
+    @xlsx = 'outline_collapsed.xlsx'
+    workbook   = WriteXLSX.new(@xlsx)
+    worksheet1 = workbook.add_worksheet('Outlined Rows')
+    worksheet2 = workbook.add_worksheet('Collapsed Rows 1')
+    worksheet3 = workbook.add_worksheet('Collapsed Rows 2')
+    worksheet4 = workbook.add_worksheet('Collapsed Rows 3')
+    worksheet5 = workbook.add_worksheet('Outline Columns')
+    worksheet6 = workbook.add_worksheet('Collapsed Columns')
 
-    ###############################################################################
-    #
-    # Write an Ascii string.
-    #
-    worksheet.merge_range('B3:D4', 'ASCII: A simple string', format)
+    # Add a general format
+    bold = workbook.add_format(:bold => 1)
 
     ###############################################################################
     #
-    # Write a UTF-8 Unicode string.
+    # Example 1: Create a worksheet with outlined rows. It also includes SUBTOTAL()
+    # functions so that it looks like the type of automatic outlines that are
+    # generated when you use the Excel Data->SubTotals menu item.
     #
-    smiley = '☺'
-    worksheet.merge_range('B6:D7', "UTF-8: A Unicode smiley #{smiley}", format)
 
-    workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
-  end
-
-  def test_comments1
-    xlsx = 'comments1.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
-    worksheet = workbook.add_worksheet
+    # The syntax is: set_row(row, height, XF, hidden, level, collapsed)
+    worksheet1.set_row(1, nil, nil, 0, 2)
+    worksheet1.set_row(2, nil, nil, 0, 2)
+    worksheet1.set_row(3, nil, nil, 0, 2)
+    worksheet1.set_row(4, nil, nil, 0, 2)
+    worksheet1.set_row(5, nil, nil, 0, 1)
 
-    worksheet.write('A1', 'Hello')
-    worksheet.write_comment('A1', 'This is a comment')
+    worksheet1.set_row(6,  nil, nil, 0, 2)
+    worksheet1.set_row(7,  nil, nil, 0, 2)
+    worksheet1.set_row(8,  nil, nil, 0, 2)
+    worksheet1.set_row(9,  nil, nil, 0, 2)
+    worksheet1.set_row(10, nil, nil, 0, 1)
 
-    workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
-  end
+    # Write the sub-total data that is common to the row examples.
+    create_sub_totals(worksheet1, bold)
 
-  def test_comments2
-    xlsx = 'comments2.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
+    ###############################################################################
+    #
+    # Example 2: Create a worksheet with collapsed outlined rows.
+    # This is the same as the example 1  except that the all rows are collapsed.
+    # Note: We need to indicate the row that contains the collapsed symbol '+' with
+    # the optional parameter, collapsed.
 
-    text_wrap  = workbook.add_format( :text_wrap => 1, :valign => 'top' )
-    worksheet1 = workbook.add_worksheet
-    worksheet2 = workbook.add_worksheet
-    worksheet3 = workbook.add_worksheet
-    worksheet4 = workbook.add_worksheet
-    worksheet5 = workbook.add_worksheet
-    worksheet6 = workbook.add_worksheet
-    worksheet7 = workbook.add_worksheet
-    worksheet8 = workbook.add_worksheet
+    worksheet2.set_row(1, nil, nil, 1, 2)
+    worksheet2.set_row(2, nil, nil, 1, 2)
+    worksheet2.set_row(3, nil, nil, 1, 2)
+    worksheet2.set_row(4, nil, nil, 1, 2)
+    worksheet2.set_row(5, nil, nil, 1, 1)
 
+    worksheet2.set_row(6,  nil, nil, 1, 2)
+    worksheet2.set_row(7,  nil, nil, 1, 2)
+    worksheet2.set_row(8,  nil, nil, 1, 2)
+    worksheet2.set_row(9,  nil, nil, 1, 2)
+    worksheet2.set_row(10, nil, nil, 1, 1)
 
-    # Variables that we will use in each example.
-    cell_text = ''
-    comment   = ''
+    worksheet2.set_row(11, nil, nil, 0, 0, 1)
 
+    # Write the sub-total data that is common to the row examples.
+    create_sub_totals(worksheet2, bold)
 
     ###############################################################################
     #
-    # Example 1. Demonstrates a simple cell comments without formatting.
-    #            comments.
-    #
-
-    # Set up some formatting.
-    worksheet1.set_column( 'C:C', 25 )
-    worksheet1.set_row( 2, 50 )
-    worksheet1.set_row( 5, 50 )
+    # Example 3: Create a worksheet with collapsed outlined rows.
+    # Same as the example 1  except that the two sub-totals are collapsed.
 
+    worksheet3.set_row(1, nil, nil, 1, 2)
+    worksheet3.set_row(2, nil, nil, 1, 2)
+    worksheet3.set_row(3, nil, nil, 1, 2)
+    worksheet3.set_row(4, nil, nil, 1, 2)
+    worksheet3.set_row(5, nil, nil, 0, 1, 1)
 
-    # Simple ascii string.
-    cell_text = 'Hold the mouse over this cell to see the comment.'
+    worksheet3.set_row(6,  nil, nil, 1, 2)
+    worksheet3.set_row(7,  nil, nil, 1, 2)
+    worksheet3.set_row(8,  nil, nil, 1, 2)
+    worksheet3.set_row(9,  nil, nil, 1, 2)
+    worksheet3.set_row(10, nil, nil, 0, 1, 1)
 
-    comment = 'This is a comment.'
+    # Write the sub-total data that is common to the row examples.
+    create_sub_totals(worksheet3, bold)
 
-    worksheet1.write( 'C3', cell_text, text_wrap )
-    worksheet1.write_comment( 'C3', comment )
+    ###############################################################################
+    #
+    # Example 4: Create a worksheet with outlined rows.
+    # Same as the example 1  except that the two sub-totals are collapsed.
 
-    cell_text = 'This is a UTF-8 string.'
-    comment   = '☺'
+    worksheet4.set_row(1, nil, nil, 1, 2)
+    worksheet4.set_row(2, nil, nil, 1, 2)
+    worksheet4.set_row(3, nil, nil, 1, 2)
+    worksheet4.set_row(4, nil, nil, 1, 2)
+    worksheet4.set_row(5, nil, nil, 1, 1, 1)
 
-    worksheet1.write( 'C6', cell_text, text_wrap )
-    worksheet1.write_comment( 'C6', comment )
+    worksheet4.set_row(6,  nil, nil, 1, 2)
+    worksheet4.set_row(7,  nil, nil, 1, 2)
+    worksheet4.set_row(8,  nil, nil, 1, 2)
+    worksheet4.set_row(9,  nil, nil, 1, 2)
+    worksheet4.set_row(10, nil, nil, 1, 1, 1)
 
+    worksheet4.set_row(11, nil, nil, 0, 0, 1)
 
+    # Write the sub-total data that is common to the row examples.
+    create_sub_totals(worksheet4, bold)
 
     ###############################################################################
     #
-    # Example 2. Demonstrates visible and hidden comments.
+    # Example 5: Create a worksheet with outlined columns.
     #
+    data = [
+            [ 'Month', 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Total' ],
+            [ 'North', 50,    20,    15,    25,    65,    80,   '=SUM(B2:G2)' ],
+            [ 'South', 10,    20,    30,    50,    50,    50,   '=SUM(B3:G3)' ],
+            [ 'East',  45,    75,    50,    15,    75,    100,  '=SUM(B4:G4)' ],
+            [ 'West',  15,    15,    55,    35,    20,    50,   '=SUM(B5:G6)' ]
+           ]
 
-    # Set up some formatting.
-    worksheet2.set_column( 'C:C', 25 )
-    worksheet2.set_row( 2, 50 )
-    worksheet2.set_row( 5, 50 )
-
+    # Add bold format to the first row
+    worksheet5.set_row(0, nil, bold)
 
-    cell_text = 'This cell comment is visible.'
+    # Syntax: set_column(col1, col2, width, XF, hidden, level, collapsed)
+    worksheet5.set_column('A:A', 10, bold)
+    worksheet5.set_column('B:G', 5, nil, 0, 1)
+    worksheet5.set_column('H:H', 10)
 
-    comment = 'Hello.'
+    # Write the data and a formula
+    worksheet5.write_col('A1', data)
+    worksheet5.write('H6', '=SUM(H2:H5)', bold)
 
-    worksheet2.write( 'C3', cell_text, text_wrap )
-    worksheet2.write_comment( 'C3', comment, :visible => 1 )
+    ###############################################################################
+    #
+    # Example 6: Create a worksheet with collapsed outlined columns.
+    # This is the same as the previous example except collapsed columns.
 
+    # Add bold format to the first row
+    worksheet6.set_row(0, nil, bold)
 
-    cell_text = "This cell comment isn't visible (the default)."
+    # Syntax: set_column(col1, col2, width, XF, hidden, level, collapsed)
+    worksheet6.set_column('A:A', 10, bold)
+    worksheet6.set_column('B:G', 5,  nil, 1, 1)
+    worksheet6.set_column('H:H', 10, nil, 0, 0, 1)
 
-    comment = 'Hello.'
+    # Write the data and a formula
+    worksheet6.write_col('A1', data)
+    worksheet6.write('H6', '=SUM(H2:H5)', bold)
 
-    worksheet2.write( 'C6', cell_text, text_wrap )
-    worksheet2.write_comment( 'C6', comment )
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
 
+  #
+  # This function will generate the same data and sub-totals on each worksheet.
+  #
+  def create_sub_totals(worksheet, bold)
+    # Add a column format for clarity
+    worksheet.set_column('A:A', 20)
 
-    ###############################################################################
-    #
-    # Example 3. Demonstrates visible and hidden comments set at the worksheet
-    #            level.
-    #
+    # Add the data, labels and formulas
+    worksheet.write('A1', 'Region', bold)
+    worksheet.write('A2', 'North')
+    worksheet.write('A3', 'North')
+    worksheet.write('A4', 'North')
+    worksheet.write('A5', 'North')
+    worksheet.write('A6', 'North Total', bold)
+
+    worksheet.write('B1', 'Sales', bold)
+    worksheet.write('B2', 1000)
+    worksheet.write('B3', 1200)
+    worksheet.write('B4', 900)
+    worksheet.write('B5', 1200)
+    worksheet.write('B6', '=SUBTOTAL(9,B2:B5)', bold)
+
+    worksheet.write('A7',  'South')
+    worksheet.write('A8',  'South')
+    worksheet.write('A9',  'South')
+    worksheet.write('A10', 'South')
+    worksheet.write('A11', 'South Total', bold)
+
+    worksheet.write('B7',  400)
+    worksheet.write('B8',  600)
+    worksheet.write('B9',  500)
+    worksheet.write('B10', 600)
+    worksheet.write('B11', '=SUBTOTAL(9,B7:B10)', bold)
+
+    worksheet.write('A12', 'Grand Total',         bold)
+    worksheet.write('B12', '=SUBTOTAL(9,B2:B10)', bold)
+  end
+=end
+  def test_panes
+    @xlsx = 'panes.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
 
-    # Set up some formatting.
-    worksheet3.set_column( 'C:C', 25 )
-    worksheet3.set_row( 2, 50 )
-    worksheet3.set_row( 5, 50 )
-    worksheet3.set_row( 8, 50 )
+    worksheet1 = workbook.add_worksheet('Panes 1')
+    worksheet2 = workbook.add_worksheet('Panes 2')
+    worksheet3 = workbook.add_worksheet('Panes 3')
+    worksheet4 = workbook.add_worksheet('Panes 4')
 
-    # Make all comments on the worksheet visible.
-    worksheet3.show_comments
+    # Freeze panes
+    worksheet1.freeze_panes(1, 0)    # 1 row
 
-    cell_text = 'This cell comment is visible, explicitly.'
+    worksheet2.freeze_panes(0, 1)    # 1 column
+    worksheet3.freeze_panes(1, 1)    # 1 row and column
 
-    comment = 'Hello.'
+    # Split panes.
+    # The divisions must be specified in terms of row and column dimensions.
+    # The default row height is 15 and the default column width is 8.43
+    #
+    worksheet4.split_panes(15, 8.43)    # 1 row and column
 
-    worksheet3.write( 'C3', cell_text, text_wrap )
-    worksheet3.write_comment( 'C3', comment, :visible => 1 )
+    #######################################################################
+    #
+    # Set up some formatting and text to highlight the panes
+    #
 
+    header = workbook.add_format(
+                                 :align    => 'center',
+                                 :valign   => 'vcenter',
+                                 :fg_color => 0x2A
+                                 )
 
-    cell_text =
-      'This cell comment is also visible because we used show_comments().'
+    center = workbook.add_format(:align => 'center')
 
-    comment = 'Hello.'
+    #######################################################################
+    #
+    # Sheet 1
+    #
 
-    worksheet3.write( 'C6', cell_text, text_wrap )
-    worksheet3.write_comment( 'C6', comment )
+    worksheet1.set_column('A:I', 16)
+    worksheet1.set_row(0, 20)
+    worksheet1.set_selection('C3')
 
+    (0..8).each { |i| worksheet1.write(0, i, 'Scroll down', header) }
+    (1..100).each do |i|
+      (0..8).each {|j| worksheet1.write(i, j, i + 1, center)}
+    end
 
-    cell_text = 'However, we can still override it locally.'
+    #######################################################################
+    #
+    # Sheet 2
+    #
 
-    comment = 'Hello.'
+    worksheet2.set_column('A:A', 16)
+    worksheet2.set_selection('C3')
 
-    worksheet3.write( 'C9', cell_text, text_wrap )
-    worksheet3.write_comment( 'C9', comment, :visible => 0 )
+    (0..49).each do |i|
+      worksheet2.set_row(i, 15)
+      worksheet2.write(i, 0, 'Scroll right', header)
+    end
 
+    (0..49).each do |i|
+      (1..25).each {|j| worksheet2.write(i, j, j, center)}
+    end
 
-    ###############################################################################
+    #######################################################################
     #
-    # Example 4. Demonstrates changes to the comment box dimensions.
+    # Sheet 3
     #
 
-    # Set up some formatting.
-    worksheet4.set_column( 'C:C', 25 )
-    worksheet4.set_row( 2,  50 )
-    worksheet4.set_row( 5,  50 )
-    worksheet4.set_row( 8,  50 )
-    worksheet4.set_row( 15, 50 )
-
-    worksheet4.show_comments
-
-    cell_text = 'This cell comment is default size.'
+    worksheet3.set_column('A:Z', 16)
+    worksheet3.set_selection('C3')
 
-    comment = 'Hello.'
+    worksheet3.write(0, 0, '', header)
 
-    worksheet4.write( 'C3', cell_text, text_wrap )
-    worksheet4.write_comment( 'C3', comment )
+    (1..25).each {|i| worksheet3.write(0, i, 'Scroll down', header)}
+    (1..49).each {|i| worksheet3.write(i, 0, 'Scroll right', header)}
+    (1..49).each do |i|
+      (1..25).each {|j| worksheet3.write(i, j, j, center)}
+    end
 
+    #######################################################################
+    #
+    # Sheet 4
+    #
 
-    cell_text = 'This cell comment is twice as wide.'
+    worksheet4.set_selection('C3')
 
-    comment = 'Hello.'
+    (1..25).each {|i| worksheet4.write(0, i, 'Scroll', center)}
+    (1..49).each {|i| worksheet4.write(i, 0, 'Scroll', center)}
+    (1..49).each do |i|
+      (1..25).each {|j| worksheet4.write(i, j, j, center)}
+    end
 
-    worksheet4.write( 'C6', cell_text, text_wrap )
-    worksheet4.write_comment( 'C6', comment, :x_scale => 2 )
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
 
+  def test_print_scale
+    @xlsx = 'print_scale.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet1 = workbook.add_worksheet
+    worksheet2 = workbook.add_worksheet
+    worksheet3 = workbook.add_worksheet
 
-    cell_text = 'This cell comment is twice as high.'
+    worksheet1.write(0, 0, "print_scale(100)")
+    worksheet1.print_scale = 100
 
-    comment = 'Hello.'
+    worksheet2.write(0, 0, "print_scale(50)")
+    worksheet2.print_scale = 50
 
-    worksheet4.write( 'C9', cell_text, text_wrap )
-    worksheet4.write_comment( 'C9', comment, :y_scale => 2 )
+    worksheet3.write(0, 0, "print_scale(200)")
+    worksheet3.print_scale = 200
 
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
 
-    cell_text = 'This cell comment is scaled in both directions.'
+  def test_properties
+    @xlsx = 'properties.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet
 
-    comment = 'Hello.'
+    workbook.set_properties(
+                            :title    => 'This is an example spreadsheet',
+                            :subject  => 'With document properties',
+                            :author   => 'John McNamara',
+                            :manager  => 'Dr. Heinz Doofenshmirtz',
+                            :company  => 'of Wolves',
+                            :category => 'Example spreadsheets',
+                            :keywords => 'Sample, Example, Properties',
+                            :comments => 'Created with Perl and Excel::Writer::XLSX',
+                            :status   => 'Quo'
+                            )
 
-    worksheet4.write( 'C16', cell_text, text_wrap )
-    worksheet4.write_comment( 'C16', comment, :x_scale => 1.2, :y_scale => 0.8 )
+    worksheet.set_column('A:A', 70)
+    worksheet.write('A1', "Select 'Office Button -> Prepare -> Properties' to see the file properties.")
 
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
 
-    cell_text = 'This cell comment has width and height specified in pixels.'
+  def test_protection
+    @xlsx = 'protection.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet
 
-    comment = 'Hello.'
+    # Create some format objects
+    unlocked = workbook.add_format(:locked => 0)
+    hidden   = workbook.add_format(:hidden => 1)
 
-    worksheet4.write( 'C19', cell_text, text_wrap )
-    worksheet4.write_comment( 'C19', comment, :width => 200, :height => 20 )
+    # Format the columns
+    worksheet.set_column('A:A', 45)
+    worksheet.set_selection('B3')
 
+    # Protect the worksheet
+    worksheet.protect
 
-    ###############################################################################
-    #
-    # Example 5. Demonstrates changes to the cell comment position.
-    #
+    # Examples of cell locking and hiding.
+    worksheet.write('A1', 'Cell B1 is locked. It cannot be edited.')
+    worksheet.write_formula('B1', '=1+2', nil, 3)    # Locked by default.
 
-    worksheet5.set_column( 'C:C', 25 )
-    worksheet5.set_row( 2,  50 )
-    worksheet5.set_row( 5,  50 )
-    worksheet5.set_row( 8,  50 )
-    worksheet5.set_row( 11, 50 )
+    worksheet.write('A2', 'Cell B2 is unlocked. It can be edited.')
+    worksheet.write_formula('B2', '=1+2', unlocked, 3)
 
-    worksheet5.show_comments
+    worksheet.write('A3', "Cell B3 is hidden. The formula isn't visible.")
+    worksheet.write_formula('B3', '=1+2', hidden, 3)
 
-    cell_text = 'This cell comment is in the default position.'
+    worksheet.write('A5', 'Use Menu->Tools->Protection->Unprotect Sheet')
+    worksheet.write('A6', 'to remove the worksheet protection.')
 
-    comment = 'Hello.'
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
 
-    worksheet5.write( 'C3', cell_text, text_wrap )
-    worksheet5.write_comment( 'C3', comment )
+  def test_regions
+    @xlsx = 'regions.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
 
+    # Add some worksheets
+    north = workbook.add_worksheet('North')
+    south = workbook.add_worksheet('South')
+    east  = workbook.add_worksheet('East')
+    west  = workbook.add_worksheet('West')
 
-    cell_text = 'This cell comment has been moved to another cell.'
+    # Add a Format
+    format = workbook.add_format
+    format.set_bold
+    format.set_color('blue')
 
-    comment = 'Hello.'
+    # Add a caption to each worksheet
+    workbook.sheets.each do |worksheet|
+      worksheet.write(0, 0, 'Sales', format)
+    end
 
-    worksheet5.write( 'C6', cell_text, text_wrap )
-    worksheet5.write_comment( 'C6', comment, :start_cell => 'E4' )
+    # Write some data
+    north.write(0, 1, 200000)
+    south.write(0, 1, 100000)
+    east.write(0, 1, 150000)
+    west.write(0, 1, 100000)
 
+    # Set the active worksheet
+    south.activate
 
-    cell_text = 'This cell comment has been moved to another cell.'
+    # Set the width of the first column
+    south.set_column(0, 0, 20)
 
-    comment = 'Hello.'
+    # Set the active cell
+    south.set_selection(0, 1)
 
-    worksheet5.write( 'C9', cell_text, text_wrap )
-    worksheet5.write_comment( 'C9', comment, :start_row => 8, :start_col => 4 )
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
 
+  def test_rich_strings
+    @xlsx = 'rich_strings.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet
 
-    cell_text = 'This cell comment has been shifted within its default cell.'
+    worksheet.set_column('A:A', 30)
 
-    comment = 'Hello.'
+    # Set some formats to use.
+    bold   = workbook.add_format(:bold        => 1)
+    italic = workbook.add_format(:italic      => 1)
+    red    = workbook.add_format(:color       => 'red')
+    blue   = workbook.add_format(:color       => 'blue')
+    center = workbook.add_format(:align       => 'center')
+    superc = workbook.add_format(:font_script => 1)
 
-    worksheet5.write( 'C12', cell_text, text_wrap )
-    worksheet5.write_comment( 'C12', comment, :x_offset => 30, :y_offset => 12 )
+    # Write some strings with multiple formats.
+    worksheet.write_rich_string('A1',
+        'This is ', bold, 'bold', ' and this is ', italic, 'italic')
 
+    worksheet.write_rich_string('A3',
+        'This is ', red, 'red', ' and this is ', blue, 'blue')
 
-    ###############################################################################
-    #
-    # Example 6. Demonstrates changes to the comment background colour.
-    #
+    worksheet.write_rich_string('A5',
+        'Some ', bold, 'bold text', ' centered', center)
 
-    worksheet6.set_column( 'C:C', 25 )
-    worksheet6.set_row( 2, 50 )
-    worksheet6.set_row( 5, 50 )
-    worksheet6.set_row( 8, 50 )
+    worksheet.write_rich_string('A7',
+        italic, 'j = k', superc, '(n-1)', center)
 
-    worksheet6.show_comments
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
 
-    cell_text = 'This cell comment has a different colour.'
+  def test_right_to_left
+    @xlsx = 'right_to_left.xlsx'
+    workbook = WriteXLSX.new(@xlsx)
+    worksheet1 = workbook.add_worksheet
+    worksheet2 = workbook.add_worksheet
 
-    comment = 'Hello.'
+    worksheet2.right_to_left
 
-    worksheet6.write( 'C3', cell_text, text_wrap )
-    worksheet6.write_comment( 'C3', comment, :color => 'green' )
+    worksheet1.write(0, 0, 'Hello')    #  A1, B1, C1, ...
+    worksheet2.write(0, 0, 'Hello')    # ..., C1, B1, A1
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
 
+  def test_shape1
+    @xlsx = 'shape1.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet
 
-    cell_text = 'This cell comment has the default colour.'
+    # Add a circle, with centered text.
+    ellipse = workbook.add_shape(
+      :type   => 'ellipse',
+      :text   => "Hello\nWorld",
+      :width  => 60,
+      :height => 60
+                                 )
 
-    comment = 'Hello.'
+    worksheet.insert_shape('A1', ellipse, 50, 50)
 
-    worksheet6.write( 'C6', cell_text, text_wrap )
-    worksheet6.write_comment( 'C6', comment )
+    # Add a plus sign.
+    plus = workbook.add_shape(:type => 'plus', :width => 20, :height => 20)
+    worksheet.insert_shape('D8', plus)
 
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
 
-    cell_text = 'This cell comment has a different colour.'
+  def test_shape2
+    @xlsx = 'shape2.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet
 
-    comment = 'Hello.'
+    worksheet.hide_gridlines(2)
 
-    worksheet6.write( 'C9', cell_text, text_wrap )
-    worksheet6.write_comment( 'C9', comment, :color => 0x35 )
+    plain = workbook.add_shape(
+      :type   => 'smileyFace',
+      :text   => "Plain",
+      :width  => 100,
+      :height => 100
+                                 )
 
+    bbformat = workbook.add_format(
+      :color => 'red',
+      :font  => 'Lucida Calligraphy'
+                                   )
+
+    bbformat.set_bold
+    bbformat.set_underline
+    bbformat.set_italic
+
+    decor = workbook.add_shape(
+      :type        => 'smileyFace',
+      :text        => 'Decorated',
+      :rotation    => 45,
+      :width       => 200,
+      :height      => 100,
+      :format      => bbformat,
+      :line_type   => 'sysDot',
+      :line_weight => 3,
+      :fill        => 'FFFF00',
+      :line        => '3366FF'
+                               )
+
+    worksheet.insert_shape('A1', plain,  50, 50)
+    worksheet.insert_shape('A1', decor, 250, 50)
 
-    ###############################################################################
-    #
-    # Example 7. Demonstrates how to set the cell comment author.
-    #
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
 
-    worksheet7.set_column( 'C:C', 30 )
-    worksheet7.set_row( 2,  50 )
-    worksheet7.set_row( 5,  50 )
-    worksheet7.set_row( 8,  50 )
+  def test_shape3
+    @xlsx = 'shape3.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet
 
-    author = ''
-    cell   = 'C3'
+    normal = workbook.add_shape(
+      :name   => 'chip',
+      :type   => 'diamond',
+      :text   => 'Normal',
+      :width  => 100,
+      :height => 100
+                                 )
 
-    cell_text = "Move the mouse over this cell and you will see 'Cell commented " +
-      "by #{author}' (blank) in the status bar at the bottom"
+    worksheet.insert_shape('A1', normal, 50, 50)
+    normal[:text] = 'Scaled 3w x 2h'
+    normal[:name] = 'Hope'
+    worksheet.insert_shape('A1', normal, 250, 50, 3, 2)
 
-    comment = 'Hello.'
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
 
-    worksheet7.write( cell, cell_text, text_wrap )
-    worksheet7.write_comment( cell, comment )
+  def test_shape4
+    @xlsx = 'shape4.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet
+    worksheet.hide_gridlines(2)
 
+    type = 'rect'
+    shape = workbook.add_shape(
+      :type   => type,
+      :width  => 90,
+      :height => 90
+                                 )
 
-    author    = 'Ruby'
-    cell      = 'C6'
-    cell_text = "Move the mouse over this cell and you will see 'Cell commented " +
-      "by #{author}' in the status bar at the bottom"
+    (1..10).each do |n|
+      # Change the last 5 rectangles to stars. Previously
+      # inserted shapes stay as rectangles.
+      type = 'star5' if n == 6
+      shape[:type] = type
+      shape[:text] = "#{type} #{n}"
+      worksheet.insert_shape('A1', shape, n * 100, 50)
+    end
 
-    comment = 'Hello.'
+    stencil = workbook.add_shape(
+      :stencil => 1,     # The default.
+      :width   => 90,
+      :height  => 90,
+      :text    => 'started as a box'
+                                 )
+    worksheet.insert_shape('A1', stencil, 100, 150)
 
-    worksheet7.write( cell, cell_text, text_wrap )
-    worksheet7.write_comment( cell, comment, :author => author )
+    stencil[:stencil] = 0
+    worksheet.insert_shape('A1', stencil, 200, 150)
+    worksheet.insert_shape('A1', stencil, 300, 150)
 
+    # Ooopa! Changed my mind.
+    # Change the rectangle to an ellipse (circle),
+    # for the last two shapes.
+    stencil[:type] = 'ellipse'
+    stencil[:text] = 'Now its a circle'
 
-    author    = '€'
-    cell      = 'C9'
-    cell_text = "Move the mouse over this cell and you will see 'Cell commented " +
-      "by #{author}' in the status bar at the bottom"
-    comment = 'Hello.'
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
 
-    worksheet7.write( cell, cell_text, text_wrap )
-    worksheet7.write_comment( cell, comment, :author => author )
+  def test_shape5
+    @xlsx = 'shape5.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet
 
+    s1 = workbook.add_shape(
+      :type   => 'ellipse',
+      :width  => 60,
+      :height => 60
+                                 )
+    worksheet.insert_shape('A1', s1, 50, 50)
 
+    s2 = workbook.add_shape(
+      :type   => 'plus',
+      :width  => 20,
+      :height => 20
+                                 )
+    worksheet.insert_shape('A1', s2, 250, 200)
 
+    # Create a connector to link the two shapes.
+    cxn_shape = workbook.add_shape(:type => 'bentConnector3')
 
-    ###############################################################################
-    #
-    # Example 8. Demonstrates the need to explicitly set the row height.
-    #
+    # Link the start of the connector to the right side.
+    cxn_shape[:start]       = s1[:id]
+    cxn_shape[:start_index] = 4  # 4th connection pt, clockwise from top(0).
+    cxn_shape[:start_side]  = 'b' # r)ight or b)ottom.
 
-    # Set up some formatting.
-    worksheet8.set_column( 'C:C', 25 )
-    worksheet8.set_row( 2, 80 )
+    # Link the end of the connector to the left side.
+    cxn_shape[:end]         = s2[:id]
+    cxn_shape[:end_index]   = 0  # clockwise from top(0).
+    cxn_shape[:end_side]    = 't' # t)op.
 
-    worksheet8.show_comments
+    worksheet.insert_shape('A1', cxn_shape, 0, 0)
 
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
 
-    cell_text =
-      'The height of this row has been adjusted explicitly using ' +
-      'set_row(). The size of the comment box is adjusted ' +
-      'accordingly by WriteXLSX.'
+  def test_shape6
+    @xlsx = 'shape6.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet
 
-    comment = 'Hello.'
+    s1 = workbook.add_shape(
+      :type   => 'chevron',
+      :width  => 60,
+      :height => 60
+                                 )
+    worksheet.insert_shape('A1', s1, 50, 50)
 
-    worksheet8.write( 'C3', cell_text, text_wrap )
-    worksheet8.write_comment( 'C3', comment )
+    s2 = workbook.add_shape(
+      :type   => 'pentagon',
+      :width  => 20,
+      :height => 20
+                                 )
+    worksheet.insert_shape('A1', s2, 250, 200)
 
+    # Create a connector to link the two shapes.
+    cxn_shape = workbook.add_shape(:type => 'curvedConnector3')
 
-    cell_text =
-      'The height of this row has been adjusted by Excel due to the ' +
-      'text wrap property being set. Unfortunately this means that ' +
-      'the height of the row is unknown to WriteXLSX at ' +
-      "run time and thus the comment box is stretched as well.\n\n" +
-      'Use set_row() to specify the row height explicitly to avoid ' +
-      'this problem.'
+    # Link the start of the connector to the right side.
+    cxn_shape[:start]       = s1[:id]
+    cxn_shape[:start_index] = 2  # 2nd connection pt, clockwise from top(0).
+    cxn_shape[:start_side]  = 'r' # r)ight or b)ottom.
 
-    comment = 'Hello.'
+    # Link the end of the connector to the left side.
+    cxn_shape[:end]         = s2[:id]
+    cxn_shape[:end_index]   = 4  # 4th connection pt, clockwise from top(0).
+    cxn_shape[:end_side]    = 'l' # l)eft or t)op.
 
-    worksheet8.write( 'C6', cell_text, text_wrap )
-    worksheet8.write_comment( 'C6', comment )
+    worksheet.insert_shape('A1', cxn_shape, 0, 0)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
-  def test_print_scale
-    xlsx = 'print_scale.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
-    worksheet1 = workbook.add_worksheet
-    worksheet2 = workbook.add_worksheet
-    worksheet3 = workbook.add_worksheet
+  def test_shape7
+    @xlsx = 'shape7.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet
 
-    worksheet1.write( 0, 0, "print_scale(100)")
-    worksheet1.print_scale = 100
+    # Add a circle, with centered text. c is for circle, not center.
+    cw = 60
+    ch = 60
+    cx = 210
+    cy = 190
+
+    ellipse = workbook.add_shape(
+      :type   => 'ellipse',
+      :id     => 2,
+      :text   => "Hello\nWorld",
+      :width  => cw,
+      :height => ch
+                                 )
+    worksheet.insert_shape('A1', ellipse, cx, cy)
+
+    # Add a plus sign at 4 different positions around the circle.
+    pw = 20
+    ph = 20
+    px = 120
+    py = 250
+
+    plus = workbook.add_shape(
+      :type   => 'plus',
+      :id     => 3,
+      :width  => pw,
+      :height => ph
+                                 )
 
-    worksheet2.write( 0, 0, "print_scale(50)")
-    worksheet2.print_scale = 50
+    p1 = worksheet.insert_shape('A1', plus, 350, 350)
+    p2 = worksheet.insert_shape('A1', plus, 150, 350)
+    p3 = worksheet.insert_shape('A1', plus, 350, 150)
+    plus[:adjustments] = 35  # change shape of plus symbol.
+    p4 = worksheet.insert_shape('A1', plus, 150, 150)
 
-    worksheet3.write( 0, 0, "print_scale(200)")
-    worksheet3.print_scale = 200
+    cxn_shape = workbook.add_shape(:type => 'bentConnector3', :fill => 0)
 
-    workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
-  end
+    cxn_shape[:start]       = ellipse[:id]
+    cxn_shape[:start_index] = 4   # 4th connection pt, clockwise from top(0).
+    cxn_shape[:start_side]  = 'b' # r)ight or b)ottom.
 
-  def test_properties
-    xlsx = 'properties.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
-    worksheet = workbook.add_worksheet
+    cxn_shape[:end]         = p1[:id]
+    cxn_shape[:end_index]   = 0
+    cxn_shape[:end_side]    = 't' # l)eft or t)op.
+    worksheet.insert_shape('A1', cxn_shape, 0, 0)
 
-    workbook.set_properties(
-                            :title    => 'This is an example spreadsheet',
-                            :subject  => 'With document properties',
-                            :author   => 'John McNamara',
-                            :manager  => 'Dr. Heinz Doofenshmirtz',
-                            :company  => 'of Wolves',
-                            :category => 'Example spreadsheets',
-                            :keywords => 'Sample, Example, Properties',
-                            :comments => 'Created with Perl and Excel::Writer::XLSX',
-                            :status   => 'Quo'
-                            )
+    cxn_shape[:end]  = p2[:id]
+    worksheet.insert_shape('A1', cxn_shape, 0, 0)
 
-    worksheet.set_column('A:A', 70)
-    worksheet.write('A1', "Select 'Office Button -> Prepare -> Properties' to see the file properties.")
+    cxn_shape[:end]  = p3[:id]
+    worksheet.insert_shape('A1', cxn_shape, 0, 0)
+
+    cxn_shape[:end]  = p4[:id]
+    cxn_shape[:adjustments] = [-50, 45, 120]
+    worksheet.insert_shape('A1', cxn_shape, 0, 0)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
-  def test_protection
-    xlsx = 'protection.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
+  def test_shape8
+    @xlsx = 'shape8.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
     worksheet = workbook.add_worksheet
 
-    # Create some format objects
-    unlocked = workbook.add_format(:locked => 0)
-    hidden   = workbook.add_format(:hidden => 1)
+    # Add a circle, with centered text. c is for circle, not center.
+    cw = 60
+    ch = 60
+    cx = 210
+    cy = 190
+
+    ellipse = workbook.add_shape(
+      :type   => 'ellipse',
+      :id     => 2,
+      :text   => "Hello\nWorld",
+      :width  => cw,
+      :height => ch
+                                 )
+    worksheet.insert_shape('A1', ellipse, cx, cy)
+
+    # Add a plus sign at 4 different positionos around the circle.
+    pw = 20
+    ph = 20
+    px = 120
+    py = 250
+
+    plus = workbook.add_shape(
+      :type   => 'plus',
+      :id     => 3,
+      :width  => pw,
+      :height => ph
+                                 )
 
-    # Format the columns
-    worksheet.set_column('A:A', 45)
-    worksheet.set_selection('B3')
+    p1 = worksheet.insert_shape('A1', plus, 350, 150)
+    p2 = worksheet.insert_shape('A1', plus, 350, 350)
+    p3 = worksheet.insert_shape('A1', plus, 150, 350)
+    p4 = worksheet.insert_shape('A1', plus, 150, 150)
 
-    # Protect the worksheet
-    worksheet.protect
+    cxn_shape = workbook.add_shape(:type => 'bentConnector3', :fill => 0)
 
-    # Examples of cell locking and hiding.
-    worksheet.write('A1', 'Cell B1 is locked. It cannot be edited.')
-    worksheet.write_formula('B1', '=1+2', nil, 3)    # Locked by default.
+    cxn_shape[:start]       = ellipse[:id]
+    cxn_shape[:start_index] = 2   # 2nd connection pt, clockwise from top(0).
+    cxn_shape[:start_side]  = 'r' # r)ight or b)ottom.
 
-    worksheet.write('A2', 'Cell B2 is unlocked. It can be edited.')
-    worksheet.write_formula('B2', '=1+2', unlocked, 3)
+    cxn_shape[:end]         = p1[:id]
+    cxn_shape[:end_index]   = 3   # 3rd connection point on plus, right side
+    cxn_shape[:end_side]    = 'l' # l)eft or t)op.
+    worksheet.insert_shape('A1', cxn_shape, 0, 0)
 
-    worksheet.write('A3', "Cell B3 is hidden. The formula isn't visible.")
-    worksheet.write_formula('B3', '=1+2', hidden, 3)
+    cxn_shape[:end]  = p2[:id]
+    worksheet.insert_shape('A1', cxn_shape, 0, 0)
 
-    worksheet.write('A5', 'Use Menu->Tools->Protection->Unprotect Sheet')
-    worksheet.write('A6', 'to remove the worksheet protection.')
+    cxn_shape[:end]  = p3[:id]
+    worksheet.insert_shape('A1', cxn_shape, 0, 0)
+
+    cxn_shape[:end]  = p4[:id]
+    cxn_shape[:adjustments] = [-50, 45, 120]
+    worksheet.insert_shape('A1', cxn_shape, 0, 0)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
-  def test_rich_strings
-    xlsx = 'rich_strings.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
-    worksheet = workbook.add_worksheet
+  def test_shape_all
+    @xlsx = 'shape_all.xlsx'
+    workbook = WriteXLSX.new(@xlsx)
+    worksheet  = nil
+    last_sheet = ''
+    row        = 0
+
+    shapes_list.each_line do |line|
+      line = line.chomp
+      next unless line =~ /^\w/    # Skip blank lines and comments.
+
+      sheet, name = line.split(/\t/)
+      if last_sheet != sheet
+        worksheet = workbook.add_worksheet(sheet)
+        row       = 2
+      end
+      last_sheet = sheet
+      shape      = workbook.add_shape(
+                                  :type   => name,
+                                  :text   => name,
+                                  :width  => 90,
+                                  :height => 90
+                                  )
 
-    worksheet.set_column('A:A', 30)
+      # Connectors can not have labels, so write the connector name in the cell
+      # to the left.
+      worksheet.write(row, 0, name ) if sheet == 'Connector'
+      worksheet.insert_shape(row, 2, shape, 0, 0)
+      row += 5
+    end
 
-    # Set some formats to use.
-    bold   = workbook.add_format(:bold        => 1)
-    italic = workbook.add_format(:italic      => 1)
-    red    = workbook.add_format(:color       => 'red')
-    blue   = workbook.add_format(:color       => 'blue')
-    center = workbook.add_format(:align       => 'center')
-    superc = workbook.add_format(:font_script => 1)
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
 
-    # Write some strings with multiple formats.
-    worksheet.write_rich_string('A1',
-        'This is ', bold, 'bold', ' and this is ', italic, 'italic')
+  def shapes_list
+    <<EOS
+Action	actionButtonBackPrevious
+Action	actionButtonBeginning
+Action	actionButtonBlank
+Action	actionButtonDocument
+Action	actionButtonEnd
+Action	actionButtonForwardNext
+Action	actionButtonHelp
+Action	actionButtonHome
+Action	actionButtonInformation
+Action	actionButtonMovie
+Action	actionButtonReturn
+Action	actionButtonSound
+Arrow	bentArrow
+Arrow	bentUpArrow
+Arrow	circularArrow
+Arrow	curvedDownArrow
+Arrow	curvedLeftArrow
+Arrow	curvedRightArrow
+Arrow	curvedUpArrow
+Arrow	downArrow
+Arrow	leftArrow
+Arrow	leftCircularArrow
+Arrow	leftRightArrow
+Arrow	leftRightCircularArrow
+Arrow	leftRightUpArrow
+Arrow	leftUpArrow
+Arrow	notchedRightArrow
+Arrow	quadArrow
+Arrow	rightArrow
+Arrow	stripedRightArrow
+Arrow	swooshArrow
+Arrow	upArrow
+Arrow	upDownArrow
+Arrow	uturnArrow
+Basic	blockArc
+Basic	can
+Basic	chevron
+Basic	cube
+Basic	decagon
+Basic	diamond
+Basic	dodecagon
+Basic	donut
+Basic	ellipse
+Basic	funnel
+Basic	gear6
+Basic	gear9
+Basic	heart
+Basic	heptagon
+Basic	hexagon
+Basic	homePlate
+Basic	lightningBolt
+Basic	line
+Basic	lineInv
+Basic	moon
+Basic	nonIsoscelesTrapezoid
+Basic	noSmoking
+Basic	octagon
+Basic	parallelogram
+Basic	pentagon
+Basic	pie
+Basic	pieWedge
+Basic	plaque
+Basic	rect
+Basic	round1Rect
+Basic	round2DiagRect
+Basic	round2SameRect
+Basic	roundRect
+Basic	rtTriangle
+Basic	smileyFace
+Basic	snip1Rect
+Basic	snip2DiagRect
+Basic	snip2SameRect
+Basic	snipRoundRect
+Basic	star10
+Basic	star12
+Basic	star16
+Basic	star24
+Basic	star32
+Basic	star4
+Basic	star5
+Basic	star6
+Basic	star7
+Basic	star8
+Basic	sun
+Basic	teardrop
+Basic	trapezoid
+Basic	triangle
+Callout	accentBorderCallout1
+Callout	accentBorderCallout2
+Callout	accentBorderCallout3
+Callout	accentCallout1
+Callout	accentCallout2
+Callout	accentCallout3
+Callout	borderCallout1
+Callout	borderCallout2
+Callout	borderCallout3
+Callout	callout1
+Callout	callout2
+Callout	callout3
+Callout	cloudCallout
+Callout	downArrowCallout
+Callout	leftArrowCallout
+Callout	leftRightArrowCallout
+Callout	quadArrowCallout
+Callout	rightArrowCallout
+Callout	upArrowCallout
+Callout	upDownArrowCallout
+Callout	wedgeEllipseCallout
+Callout	wedgeRectCallout
+Callout	wedgeRoundRectCallout
+Chart	chartPlus
+Chart	chartStar
+Chart	chartX
+Connector	bentConnector2
+Connector	bentConnector3
+Connector	bentConnector4
+Connector	bentConnector5
+Connector	curvedConnector2
+Connector	curvedConnector3
+Connector	curvedConnector4
+Connector	curvedConnector5
+Connector	straightConnector1
+FlowChart	flowChartAlternateProcess
+FlowChart	flowChartCollate
+FlowChart	flowChartConnector
+FlowChart	flowChartDecision
+FlowChart	flowChartDelay
+FlowChart	flowChartDisplay
+FlowChart	flowChartDocument
+FlowChart	flowChartExtract
+FlowChart	flowChartInputOutput
+FlowChart	flowChartInternalStorage
+FlowChart	flowChartMagneticDisk
+FlowChart	flowChartMagneticDrum
+FlowChart	flowChartMagneticTape
+FlowChart	flowChartManualInput
+FlowChart	flowChartManualOperation
+FlowChart	flowChartMerge
+FlowChart	flowChartMultidocument
+FlowChart	flowChartOfflineStorage
+FlowChart	flowChartOffpageConnector
+FlowChart	flowChartOnlineStorage
+FlowChart	flowChartOr
+FlowChart	flowChartPredefinedProcess
+FlowChart	flowChartPreparation
+FlowChart	flowChartProcess
+FlowChart	flowChartPunchedCard
+FlowChart	flowChartPunchedTape
+FlowChart	flowChartSort
+FlowChart	flowChartSummingJunction
+FlowChart	flowChartTerminator
+Math	mathDivide
+Math	mathEqual
+Math	mathMinus
+Math	mathMultiply
+Math	mathNotEqual
+Math	mathPlus
+Star_Banner	arc
+Star_Banner	bevel
+Star_Banner	bracePair
+Star_Banner	bracketPair
+Star_Banner	chord
+Star_Banner	cloud
+Star_Banner	corner
+Star_Banner	diagStripe
+Star_Banner	doubleWave
+Star_Banner	ellipseRibbon
+Star_Banner	ellipseRibbon2
+Star_Banner	foldedCorner
+Star_Banner	frame
+Star_Banner	halfFrame
+Star_Banner	horizontalScroll
+Star_Banner	irregularSeal1
+Star_Banner	irregularSeal2
+Star_Banner	leftBrace
+Star_Banner	leftBracket
+Star_Banner	leftRightRibbon
+Star_Banner	plus
+Star_Banner	ribbon
+Star_Banner	ribbon2
+Star_Banner	rightBrace
+Star_Banner	rightBracket
+Star_Banner	verticalScroll
+Star_Banner	wave
+Tabs	cornerTabs
+Tabs	plaqueTabs
+Tabs	squareTabs
+EOS
+  end
 
-    worksheet.write_rich_string('A3',
-        'This is ', red, 'red', ' and this is ', blue, 'blue')
+  def test_stats
+    @xlsx = 'stats.xlsx'
+    workbook = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet('Test data')
+
+    # Set the column width for column 1
+    worksheet.set_column(0, 0, 20)
+
+    # Create a format for the headings
+    format = workbook.add_format
+    format.set_bold
+
+    # Write the sample data
+    worksheet.write(0, 0, 'Sample', format)
+    worksheet.write(0, 1, 1)
+    worksheet.write(0, 2, 2)
+    worksheet.write(0, 3, 3)
+    worksheet.write(0, 4, 4)
+    worksheet.write(0, 5, 5)
+    worksheet.write(0, 6, 6)
+    worksheet.write(0, 7, 7)
+    worksheet.write(0, 8, 8)
+
+    worksheet.write(1, 0, 'Length', format)
+    worksheet.write(1, 1, 25.4)
+    worksheet.write(1, 2, 25.4)
+    worksheet.write(1, 3, 24.8)
+    worksheet.write(1, 4, 25.0)
+    worksheet.write(1, 5, 25.3)
+    worksheet.write(1, 6, 24.9)
+    worksheet.write(1, 7, 25.2)
+    worksheet.write(1, 8, 24.8)
+
+    # Write some statistical functions
+    worksheet.write(4, 0, 'Count', format)
+    worksheet.write(4, 1, '=COUNT(B1:I1)')
+
+    worksheet.write(5, 0, 'Sum', format)
+    worksheet.write(5, 1, '=SUM(B2:I2)')
+
+    worksheet.write(6, 0, 'Average', format)
+    worksheet.write(6, 1, '=AVERAGE(B2:I2)')
+
+    worksheet.write(7, 0, 'Min', format)
+    worksheet.write(7, 1, '=MIN(B2:I2)')
+
+    worksheet.write(8, 0, 'Max', format)
+    worksheet.write(8, 1, '=MAX(B2:I2)')
+
+    worksheet.write(9, 0, 'Standard Deviation', format)
+    worksheet.write(9, 1, '=STDEV(B2:I2)')
+
+    worksheet.write(10, 0, 'Kurtosis', format)
+    worksheet.write(10, 1, '=KURT(B2:I2)')
 
-    worksheet.write_rich_string('A5',
-        'Some ', bold, 'bold text', ' centered', center)
+    workbook.close
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
+  end
 
-    worksheet.write_rich_string('A7',
-        italic, 'j = k', superc, '(n-1)', center)
+  def test_stats_ext
+    @xlsx = 'stats_ext.xlsx'
+    workbook = WriteXLSX.new(@xlsx)
+    worksheet1 = workbook.add_worksheet('Test results')
+    worksheet2 = workbook.add_worksheet('Data')
+
+    # Set the column width for column 1
+    worksheet1.set_column(0, 0, 20)
+
+    # Create a format for the headings
+    headings = workbook.add_format
+    headings.set_bold
+
+    # Create a numerical format
+    numformat = workbook.add_format
+    numformat.set_num_format('0.00')
+
+    # Write some statistical functions
+    worksheet1.write(0, 0, 'Count', headings)
+    worksheet1.write(0, 1, '=COUNT(Data!B2:B9)')
+
+    worksheet1.write(1, 0, 'Sum', headings)
+    worksheet1.write(1, 1, '=SUM(Data!B2:B9)')
+
+    worksheet1.write(2, 0, 'Average', headings)
+    worksheet1.write(2, 1, '=AVERAGE(Data!B2:B9)')
+
+    worksheet1.write(3, 0, 'Min', headings)
+    worksheet1.write(3, 1, '=MIN(Data!B2:B9)')
+
+    worksheet1.write(4, 0, 'Max', headings)
+    worksheet1.write(4, 1, '=MAX(Data!B2:B9)')
+
+    worksheet1.write(5, 0, 'Standard Deviation', headings)
+    worksheet1.write(5, 1, '=STDEV(Data!B2:B9)')
+
+    worksheet1.write(6, 0, 'Kurtosis', headings)
+    worksheet1.write(6, 1, '=KURT(Data!B2:B9)')
+
+    # Write the sample data
+    worksheet2.write(0, 0, 'Sample', headings)
+    worksheet2.write(1, 0, 1)
+    worksheet2.write(2, 0, 2)
+    worksheet2.write(3, 0, 3)
+    worksheet2.write(4, 0, 4)
+    worksheet2.write(5, 0, 5)
+    worksheet2.write(6, 0, 6)
+    worksheet2.write(7, 0, 7)
+    worksheet2.write(8, 0, 8)
+
+    worksheet2.write(0, 1, 'Length', headings)
+    worksheet2.write(1, 1, 25.4, numformat)
+    worksheet2.write(2, 1, 25.4, numformat)
+    worksheet2.write(3, 1, 24.8, numformat)
+    worksheet2.write(4, 1, 25.0, numformat)
+    worksheet2.write(5, 1, 25.3, numformat)
+    worksheet2.write(6, 1, 24.9, numformat)
+    worksheet2.write(7, 1, 25.2, numformat)
+    worksheet2.write(8, 1, 24.8, numformat)
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
-  def test_right_to_left
-    xlsx = 'right_to_left.xlsx'
-    workbook = WriteXLSX.new(xlsx)
-    worksheet1 = workbook.add_worksheet
-    worksheet2 = workbook.add_worksheet
+  def test_stocks
+    @xlsx = 'stocks.xlsx'
+    workbook  = WriteXLSX.new(@xlsx)
+    worksheet = workbook.add_worksheet
 
-    worksheet2.right_to_left
+    # Set the column width for columns 1, 2, 3 and 4
+    worksheet.set_column(0, 3, 15)
+
+    # Create a format for the column headings
+    header = workbook.add_format
+    header.set_bold
+    header.set_size(12)
+    header.set_color('blue')
+
+    # Create a format for the stock price
+    f_price = workbook.add_format
+    f_price.set_align('left')
+    f_price.set_num_format('$0.00')
+
+    # Create a format for the stock volume
+    f_volume = workbook.add_format
+    f_volume.set_align('left')
+    f_volume.set_num_format('#,##0')
+
+    # Create a format for the price change. This is an example of a conditional
+    # format. The number is formatted as a percentage. If it is positive it is
+    # formatted in green, if it is negative it is formatted in red and if it is
+    # zero it is formatted as the default font colour (in this case black).
+    # Note: the [Green] format produces an unappealing lime green. Try
+    # [Color 10] instead for a dark green.
+    #
+    f_change = workbook.add_format
+    f_change.set_align('left')
+    f_change.set_num_format('[Green]0.0%;[Red]-0.0%;0.0%')
+
+    # Write out the data
+    worksheet.write(0, 0, 'Company', header)
+    worksheet.write(0, 1, 'Price',   header)
+    worksheet.write(0, 2, 'Volume',  header)
+    worksheet.write(0, 3, 'Change',  header)
+
+    worksheet.write(1, 0, 'Damage Inc.')
+    worksheet.write(1, 1, 30.25, f_price)       # $30.25
+    worksheet.write(1, 2, 1234567, f_volume)    # 1,234,567
+    worksheet.write(1, 3, 0.085, f_change)      # 8.5% in green
+
+    worksheet.write(2, 0, 'Dump Corp.')
+    worksheet.write(2, 1, 1.56, f_price)        # $1.56
+    worksheet.write(2, 2, 7564, f_volume)       # 7,564
+    worksheet.write(2, 3, -0.015, f_change)     # -1.5% in red
+
+    worksheet.write(3, 0, 'Rev Ltd.')
+    worksheet.write(3, 1, 0.13, f_price)        # $0.13
+    worksheet.write(3, 2, 321, f_volume)        # 321
+    worksheet.write(3, 3, 0, f_change)          # 0 in the font color (black)
 
-    worksheet1.write(0, 0, 'Hello')    #  A1, B1, C1, ...
-    worksheet2.write(0, 0, 'Hello')    # ..., C1, B1, A1
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
   def test_tab_colors
-    xlsx = 'tab_colors.xlsx'
-    workbook = WriteXLSX.new(xlsx)
+    @xlsx = 'tab_colors.xlsx'
+    workbook = WriteXLSX.new(@xlsx)
 
     worksheet1 = workbook.add_worksheet
     worksheet2 = workbook.add_worksheet
@@ -2531,270 +3951,347 @@ def test_tab_colors
     worksheet4.set_tab_color(0x35)    # Orange
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 
-  def test_autofilter
-    xlsx = 'autofilter.xlsx'
-    workbook = WriteXLSX.new(xlsx)
-
-    worksheet1 = workbook.add_worksheet
-    worksheet2 = workbook.add_worksheet
-    worksheet3 = workbook.add_worksheet
-    worksheet4 = workbook.add_worksheet
-    worksheet5 = workbook.add_worksheet
-    worksheet6 = workbook.add_worksheet
-
-    bold = workbook.add_format( :bold => 1 )
-
-    # Extract the data embedded at the end of this file.
-    data_array = autofilter_data.split("\n")
-    headings = data_array.shift.split
-    data = []
-    data_array.each { |line| data << line.split }
-
-    # Set up several sheets with the same data.
-    workbook.worksheets.each do |worksheet|
-      worksheet.set_column( 'A:D', 12 )
-      worksheet.set_row( 0, 20, bold )
-      worksheet.write( 'A1', headings )
-    end
-
+  def test_tables
+    @xlsx = 'tables.xlsx'
+    workbook    = WriteXLSX.new(@xlsx)
+    worksheet1  = workbook.add_worksheet
+    worksheet2  = workbook.add_worksheet
+    worksheet3  = workbook.add_worksheet
+    worksheet4  = workbook.add_worksheet
+    worksheet5  = workbook.add_worksheet
+    worksheet6  = workbook.add_worksheet
+    worksheet7  = workbook.add_worksheet
+    worksheet8  = workbook.add_worksheet
+    worksheet9  = workbook.add_worksheet
+    worksheet10 = workbook.add_worksheet
+    worksheet11 = workbook.add_worksheet
+    worksheet12 = workbook.add_worksheet
+
+    currency_format = workbook.add_format(:num_format => '$#,##0')
+
+
+    # Some sample data for the table.
+    data = [
+            [ 'Apples',  10000, 5000, 8000, 6000 ],
+            [ 'Pears',   2000,  3000, 4000, 5000 ],
+            [ 'Bananas', 6000,  6000, 6500, 6000 ],
+            [ 'Oranges', 500,   300,  200,  700 ]
+           ]
 
     ###############################################################################
     #
-    # Example 1. Autofilter without conditions.
+    # Example 1.
     #
+    caption = 'Default table with no data.'
 
-    worksheet1.autofilter( 'A1:D51' )
-    worksheet1.write( 'A2', [ data ] )
-
-    ###############################################################################
-    #
-    #
-    # Example 2. Autofilter with a filter condition in the first column.
-    #
+    # Set the columns widths.
+    worksheet1.set_column('B:G', 12)
 
-    # The range in this example is the same as above but in row-column notation.
-    worksheet2.autofilter( 0, 0, 50, 3 )
+    # Write the caption.
+    worksheet1.write('B1', caption)
 
-    # The placeholder "Region" in the filter is ignored and can be any string
-    # that adds clarity to the expression.
-    #
-    worksheet2.filter_column( 0, 'Region eq East' )
+    # Add a table to the worksheet.
+    worksheet1.add_table('B3:F7')
 
+    ###############################################################################
     #
-    # Hide the rows that don't match the filter criteria.
+    # Example 2.
     #
-    row = 1
+    caption = 'Default table with data.';
 
-    data.each do |row_data|
-      region = row_data[0]
+    # Set the columns widths.
+    worksheet2.set_column('B:G', 12)
 
-      worksheet2.set_row(row, nil, nil, 1) unless region == 'East'
-      worksheet2.write(row, 0, row_data)
-      row += 1
-    end
+    # Write the caption.
+    worksheet2.write('B1', caption)
+
+    # Add a table to the worksheet.
+    worksheet2.add_table('B3:F7', { :data => data })
 
     ###############################################################################
     #
+    # Example 3.
     #
-    # Example 3. Autofilter with a dual filter condition in one of the columns.
-    #
-
-    worksheet3.autofilter( 'A1:D51' )
+    caption = 'Table without default autofilter.'
 
-    worksheet3.filter_column( 'A', 'x eq East or x eq South' )
-
-    #
-    # Hide the rows that don't match the filter criteria.
-    #
-    row = 1
+    # Set the columns widths.
+    worksheet3.set_column('B:G', 12)
 
-    data.each do |row_data|
-      region = row_data[0]
+    # Write the caption.
+    worksheet3.write('B1', caption)
 
-      worksheet3.set_row(row, nil, nil, 1) unless region == 'East' || region == 'South'
-      worksheet3.write(row, 0,row_data)
-      row += 1
-    end
+    # Add a table to the worksheet.
+    worksheet3.add_table('B3:F7', { :autofilter => 0 })
 
+    # Table data can also be written separately, as an array or individual cells.
+    worksheet3.write_col('B4', data)
 
     ###############################################################################
     #
+    # Example 4.
     #
-    # Example 4. Autofilter with filter conditions in two columns.
-    #
-
-    worksheet4.autofilter('A1:D51')
-
-    worksheet4.filter_column('A', 'x eq East')
-    worksheet4.filter_column('C', 'x > 3000 and x < 8000')
-
-    #
-    # Hide the rows that don't match the filter criteria.
-    #
-    row = 1
+    caption = 'Table without default header row.'
 
-    data.each do |row_data|
-      region = row_data[0]
-      volume = row_data[2]
+    # Set the columns widths.
+    worksheet4.set_column('B:G', 12)
 
-      unless region == 'East' && volume.to_i > 3000 && volume.to_i < 8000
-        # Hide row.
-        worksheet4.set_row(row, nil, nil, 1)
-      end
+    # Write the caption.
+    worksheet4.write('B1', caption)
 
-      worksheet4.write(row, 0, row_data)
-      row += 1
-    end
+    # Add a table to the worksheet.
+    worksheet4.add_table('B4:F7', { :header_row => 0 })
 
+    # Table data can also be written separately, as an array or individual cells.
+    worksheet4.write_col('B4', data)
 
     ###############################################################################
     #
+    # Example 5.
     #
-    # Example 5. Autofilter with filter for blanks.
-    #
+    caption = 'Default table with "First Column" and "Last Column" options.'
 
-    # Create a blank cell in our test data.
-    data[5][0] = ''
+    # Set the columns widths.
+    worksheet5.set_column('B:G', 12)
 
-    worksheet5.autofilter('A1:D51')
-    worksheet5.filter_column('A', 'x eq Blanks')
+    # Write the caption.
+    worksheet5.write('B1', caption)
+
+    # Add a table to the worksheet.
+    worksheet5.add_table('B3:F7', { :first_column => 1, :last_column => 1 })
 
+    # Table data can also be written separately, as an array or individual cells.
+    worksheet5.write_col('B4', data)
+
+    ###############################################################################
     #
-    # Hide the rows that don't match the filter criteria.
+    # Example 6.
     #
-    row = 1
+    caption = 'Table with banded columns but without default banded rows.';
 
-    data.each do |row_data|
-      region = row_data[0]
+    # Set the columns widths.
+    worksheet6.set_column('B:G', 12)
 
-      worksheet5.set_row(row, nil, nil, 1) unless region == ''
+    # Write the caption.
+    worksheet6.write('B1', caption)
 
-      worksheet5.write(row, 0, row_data)
-      row += 1
-    end
+    # Add a table to the worksheet.
+    worksheet6.add_table('B3:F7', { :banded_rows => 0, :banded_columns => 1 })
 
+    # Table data can also be written separately, as an array or individual cells.
+    worksheet6.write_col('B4', data)
 
     ###############################################################################
     #
+    # Example 7.
     #
-    # Example 6. Autofilter with filter for non-blanks.
-    #
+    caption = 'Table with user defined column headers';
 
+    # Set the columns widths.
+    worksheet7.set_column('B:G', 12)
 
-    worksheet6.autofilter('A1:D51')
-    worksheet6.filter_column('A', 'x eq NonBlanks')
+    # Write the caption.
+    worksheet7.write('B1', caption)
 
+    # Add a table to the worksheet.
+    worksheet7.add_table(
+                         'B3:F7',
+                         {
+                           :data    => data,
+                           :columns => [
+                                        { :header => 'Product' },
+                                        { :header => 'Quarter 1' },
+                                        { :header => 'Quarter 2' },
+                                        { :header => 'Quarter 3' },
+                                        { :header => 'Quarter 4' }
+                                       ]
+                         }
+                         )
+
+    ###############################################################################
     #
-    # Hide the rows that don't match the filter criteria.
+    # Example 8.
     #
-    row = 1
+    caption = 'Table with user defined column headers';
 
-    data.each do |row_data|
-      region = row_data[0]
-
-      worksheet6.set_row(row, nil, nil, 1) unless region != ''
-
-      worksheet6.write(row, 0, row_data)
-      row += 1
-    end
-
-    workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
-  end
-
-  def test_chart_scatter06
-    xlsx = 'chart_scatter06.xlsx'
-    workbook  = WriteXLSX.new(xlsx)
-    worksheet = workbook.add_worksheet
-    chart     = workbook.add_chart(:type => 'scatter', :embedded => 1)
-
-    # For testing, copy the randomly generated axis ids in the target xlsx file.
-    chart.instance_variable_set(:@axis_ids, [57708544, 44297600])
+    # Set the columns widths.
+    worksheet8.set_column('B:G', 12)
 
-    data = [
-            [ 1, 2, 3, 4,  5 ],
-            [ 2, 4, 6, 8,  10 ],
-            [ 3, 6, 9, 12, 15 ],
+    # Write the caption.
+    worksheet8.write('B1', caption)
 
-           ]
+    # Add a table to the worksheet.
+    worksheet8.add_table(
+                         'B3:G7',
+                         {
+                           :data    => data,
+                           :columns => [
+                                        { :header => 'Product' },
+                                        { :header => 'Quarter 1' },
+                                        { :header => 'Quarter 2' },
+                                        { :header => 'Quarter 3' },
+                                        { :header => 'Quarter 4' },
+                                        {
+                                          :header  => 'Year',
+                                          :formula => '=SUM(Table8[@[Quarter 1]:[Quarter 4]])'
+                                        }
+                                       ]
+                         }
+                         )
 
-    worksheet.write('A1', data)
 
-    chart.add_series(
-                     :categories => '=Sheet1!$A$1:$A$5',
-                     :values     => '=Sheet1!$B$1:$B$5',
-                    )
+    ###############################################################################
+    #
+    # Example 9.
+    #
+    caption = 'Table with totals row (but no caption or totals).';
+
+    # Set the columns widths.
+    worksheet9.set_column('B:G', 12)
+
+    # Write the caption.
+    worksheet9.write('B1', caption)
+
+    # Add a table to the worksheet.
+    worksheet9.add_table(
+                         'B3:G8',
+                         {
+                           :data      => data,
+                           :total_row => 1,
+                           :columns   => [
+                                          { :header => 'Product' },
+                                          { :header => 'Quarter 1' },
+                                          { :header => 'Quarter 2' },
+                                          { :header => 'Quarter 3' },
+                                          { :header => 'Quarter 4' },
+                                          {
+                                            :header  => 'Year',
+                                            :formula => '=SUM(Table8[@[Quarter 1]:[Quarter 4]])'
+                                          }
+                                         ]
+                         }
+                         )
 
-    chart.add_series(
-                     :categories => '=Sheet1!$A$1:$A$5',
-                     :values     => '=Sheet1!$C$1:$C$5',
-                    )
+    ###############################################################################
+    #
+    # Example 10.
+    #
+    caption = 'Table with totals row with user captions and functions.';
+
+    # Set the columns widths.
+    worksheet10.set_column('B:G', 12)
+
+    # Write the caption.
+    worksheet10.write('B1', caption)
+
+    # Add a table to the worksheet.
+    worksheet10.add_table(
+                          'B3:G8',
+                          {
+                            :data      => data,
+                            :total_row => 1,
+                            :columns   => [
+                                           { :header => 'Product',   :total_string   => 'Totals' },
+                                           { :header => 'Quarter 1', :total_function => 'sum' },
+                                           { :header => 'Quarter 2', :total_function => 'sum' },
+                                           { :header => 'Quarter 3', :total_function => 'sum' },
+                                           { :header => 'Quarter 4', :total_function => 'sum' },
+                                           {
+                                             :header         => 'Year',
+                                             :formula        => '=SUM(Table8[@[Quarter 1]:[Quarter 4]])',
+                                             :total_function => 'sum'
+                                           }
+                                          ]
+                          }
+                          )
 
-    chart.set_x_axis(:minor_unit => 1, :major_unit => 3)
-    chart.set_y_axis(:minor_unit => 2, :major_unit => 4)
+    ###############################################################################
+    #
+    # Example 11.
+    #
+    caption = 'Table with alternative Excel style.';
+
+    # Set the columns widths.
+    worksheet11.set_column('B:G', 12)
+
+    # Write the caption.
+    worksheet11.write('B1', caption)
+
+    # Add a table to the worksheet.
+    worksheet11.add_table(
+                          'B3:G8',
+                          {
+                            :data      => data,
+                            :style     => 'Table Style Light 11',
+                            :total_row => 1,
+                            :columns   => [
+                                           { :header => 'Product',   :total_string   => 'Totals' },
+                                           { :header => 'Quarter 1', :total_function => 'sum' },
+                                           { :header => 'Quarter 2', :total_function => 'sum' },
+                                           { :header => 'Quarter 3', :total_function => 'sum' },
+                                           { :header => 'Quarter 4', :total_function => 'sum' },
+                                           {
+                                             :header         => 'Year',
+                                             :formula        => '=SUM(Table8[@[Quarter 1]:[Quarter 4]])',
+                                             :total_function => 'sum'
+                                           }
+                                          ]
+                          }
+                          )
 
-    worksheet.insert_chart('E9', chart)
+    ###############################################################################
+    #
+    # Example 12.
+    #
+    caption = 'Table with column formats.';
+
+    # Set the columns widths.
+    worksheet12.set_column('B:G', 12)
+
+    # Write the caption.
+    worksheet12.write('B1', caption)
+
+    # Add a table to the worksheet.
+    worksheet12.add_table(
+                          'B3:G8',
+                          {
+                            :data      => data,
+                            :total_row => 1,
+                            :columns   => [
+                                           { :header => 'Product', :total_string => 'Totals' },
+                                           {
+                                             :header         => 'Quarter 1',
+                                             :total_function => 'sum',
+                                             :format         => currency_format,
+                                           },
+                                           {
+                                             :header         => 'Quarter 2',
+                                             :total_function => 'sum',
+                                             :format         => currency_format,
+                                           },
+                                           {
+                                             :header         => 'Quarter 3',
+                                             :total_function => 'sum',
+                                             :format         => currency_format,
+                                           },
+                                           {
+                                             :header         => 'Quarter 4',
+                                             :total_function => 'sum',
+                                             :format         => currency_format,
+                                           },
+                                           {
+                                             :header         => 'Year',
+                                             :formula        => '=SUM(Table8[@[Quarter 1]:[Quarter 4]])',
+                                             :total_function => 'sum',
+                                             :format         => currency_format,
+                                           }
+                                          ]
+                          }
+                          )
 
     workbook.close
-    compare_xlsx(@expected_dir, @result_dir, xlsx)
-  end
-
-  def autofilter_data
-<<EOS
-    Region    Item      Volume    Month
-    East      Apple     9000      July
-    East      Apple     5000      July
-    South     Orange    9000      September
-    North     Apple     2000      November
-    West      Apple     9000      November
-    South     Pear      7000      October
-    North     Pear      9000      August
-    West      Orange    1000      December
-    West      Grape     1000      November
-    South     Pear      10000     April
-    West      Grape     6000      January
-    South     Orange    3000      May
-    North     Apple     3000      December
-    South     Apple     7000      February
-    West      Grape     1000      December
-    East      Grape     8000      February
-    South     Grape     10000     June
-    West      Pear      7000      December
-    South     Apple     2000      October
-    East      Grape     7000      December
-    North     Grape     6000      April
-    East      Pear      8000      February
-    North     Apple     7000      August
-    North     Orange    7000      July
-    North     Apple     6000      June
-    South     Grape     8000      September
-    West      Apple     3000      October
-    South     Orange    10000     November
-    West      Grape     4000      July
-    North     Orange    5000      August
-    East      Orange    1000      November
-    East      Orange    4000      October
-    North     Grape     5000      August
-    East      Apple     1000      December
-    South     Apple     10000     March
-    East      Grape     7000      October
-    West      Grape     1000      September
-    East      Grape     10000     October
-    South     Orange    8000      March
-    North     Apple     4000      July
-    South     Orange    5000      July
-    West      Apple     4000      June
-    East      Apple     5000      April
-    North     Pear      3000      August
-    East      Grape     9000      November
-    North     Orange    8000      October
-    East      Apple     10000     June
-    South     Pear      1000      December
-    North     Grape     10000     July
-    East      Grape     6000      February
-EOS
+    compare_xlsx(File.join(@perl_output, @xlsx), @xlsx)
   end
 end