write_xlsx 0.0.2

data/test/worksheet/test_write_dimension.rb

@@ -0,0 +1,94 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx'
+require 'stringio'
+
+class TestWriteDimension < Test::Unit::TestCase
+  def setup
+    @workbook = WriteXLSX.new(StringIO.new)
+    @worksheet = @workbook.add_worksheet('')
+  end
+
+  def test_write_dimension_with_no_dimension_set
+    @worksheet.__send__('write_dimension')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<dimension ref="A1" />'
+    assert_equal(expected, result)
+  end
+
+  def test_write_dimension_with_dimension_set
+    cell = 'A1'
+    @worksheet.write(cell, 'some string')
+    @worksheet.__send__('write_dimension')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = %Q!<dimension ref="#{cell}" />!
+    assert_equal(expected, result)
+  end
+
+  def test_write_dimension_with_dimension_set_big_row
+    cell = 'A1048576'
+    @worksheet.write(cell, 'some string')
+    @worksheet.__send__('write_dimension')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = %Q!<dimension ref="#{cell}" />!
+    assert_equal(expected, result)
+  end
+
+  def test_write_dimension_with_dimension_set_big_column
+    cell = 'XFD1'
+    @worksheet.write(cell, 'some string')
+    @worksheet.__send__('write_dimension')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = %Q!<dimension ref="#{cell}" />!
+    assert_equal(expected, result)
+  end
+
+  def test_write_dimension_with_dimension_set_big_row_and_column
+    cell = 'XFD1048576'
+    @worksheet.write(cell, 'some string')
+    @worksheet.__send__('write_dimension')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = %Q!<dimension ref="#{cell}" />!
+    assert_equal(expected, result)
+  end
+
+  def test_write_dimension_with_dimension_set_narrow_range
+    cell = 'A1:B2'
+    @worksheet.write('A1', 'some string')
+    @worksheet.write('B2', 'some string')
+    @worksheet.__send__('write_dimension')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = %Q!<dimension ref="#{cell}" />!
+    assert_equal(expected, result)
+  end
+
+  def test_write_dimension_with_dimension_set_narrow_range_2
+    cell = 'A1:B2'
+    @worksheet.write('B2', 'some string')
+    @worksheet.write('A1', 'some string')
+    @worksheet.__send__('write_dimension')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = %Q!<dimension ref="#{cell}" />!
+    assert_equal(expected, result)
+  end
+
+  def test_write_dimension_with_dimension_set_wide_range
+    cell = 'B2:H11'
+    @worksheet.write('B2', 'some string')
+    @worksheet.write('H11', 'some string')
+    @worksheet.__send__('write_dimension')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = %Q!<dimension ref="#{cell}" />!
+    assert_equal(expected, result)
+  end
+
+  def test_write_dimension_with_dimension_set_very_wide_range
+    cell = 'A1:XFD1048576'
+    @worksheet.write('A1', 'some string')
+    @worksheet.write('XFD1048576', 'some string')
+    @worksheet.__send__('write_dimension')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = %Q!<dimension ref="#{cell}" />!
+    assert_equal(expected, result)
+  end
+end

data/test/worksheet/test_write_ext.rb

@@ -0,0 +1,18 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx'
+require 'stringio'
+
+class TestWriteExt < Test::Unit::TestCase
+  def setup
+    @workbook = WriteXLSX.new(StringIO.new)
+    @worksheet = @workbook.add_worksheet('')
+  end
+
+  def test_write_ext
+    @worksheet.__send__('write_ext')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<ext xmlns:mx="http://schemas.microsoft.com/office/mac/excel/2008/main" uri="http://schemas.microsoft.com/office/mac/excel/2008/main"><mx:PLV Mode="1" OnePage="0" WScale="0" /></ext>'
+    assert_equal(expected, result)
+  end
+end

data/test/worksheet/test_write_ext_lst.rb

@@ -0,0 +1,18 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx'
+require 'stringio'
+
+class TestWriteExtLst < Test::Unit::TestCase
+  def setup
+    @workbook = WriteXLSX.new(StringIO.new)
+    @worksheet = @workbook.add_worksheet('')
+  end
+
+  def test_write_ext_lst
+    @worksheet.__send__('write_ext_lst')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<extLst><ext xmlns:mx="http://schemas.microsoft.com/office/mac/excel/2008/main" uri="http://schemas.microsoft.com/office/mac/excel/2008/main"><mx:PLV Mode="1" OnePage="0" WScale="0" /></ext></extLst>'
+    assert_equal(expected, result)
+  end
+end

data/test/worksheet/test_write_filter.rb

@@ -0,0 +1,18 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx'
+require 'stringio'
+
+class TestWriteFilter < Test::Unit::TestCase
+  def setup
+    @workbook = WriteXLSX.new(StringIO.new)
+    @worksheet = @workbook.add_worksheet('')
+  end
+
+  def test_write_filter
+    @worksheet.__send__('write_filter', 'East')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<filter val="East" />'
+    assert_equal(expected, result)
+  end
+end

data/test/worksheet/test_write_filter_column.rb

@@ -0,0 +1,18 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx'
+require 'stringio'
+
+class TestWriteFilterColumn < Test::Unit::TestCase
+  def setup
+    @workbook = WriteXLSX.new(StringIO.new)
+    @worksheet = @workbook.add_worksheet('')
+  end
+
+  def test_write_filter_column
+    @worksheet.__send__('write_filter_column', 0, 1, *['East'])
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<filterColumn colId="0"><filters><filter val="East" /></filters></filterColumn>'
+    assert_equal(expected, result)
+  end
+end

data/test/worksheet/test_write_filters.rb

@@ -0,0 +1,32 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx'
+require 'stringio'
+
+class TestWriteFilters < Test::Unit::TestCase
+  def setup
+    @workbook = WriteXLSX.new(StringIO.new)
+    @worksheet = @workbook.add_worksheet('')
+  end
+
+  def test_write_filters_East
+    @worksheet.__send__('write_filters', 'East')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<filters><filter val="East" /></filters>'
+    assert_equal(expected, result)
+  end
+
+  def test_write_filters_East_South
+    @worksheet.__send__('write_filters', 'East', 'South')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<filters><filter val="East" /><filter val="South" /></filters>'
+    assert_equal(expected, result)
+  end
+
+  def test_write_filters_blanks
+    @worksheet.__send__('write_filters', 'blanks')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<filters blank="1" />'
+    assert_equal(expected, result)
+  end
+end

data/test/worksheet/test_write_header_footer.rb

@@ -0,0 +1,53 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx/workbook'
+require 'write_xlsx/worksheet'
+require 'stringio'
+
+class TestWriteHeaderFooter < Test::Unit::TestCase
+  def setup
+    @workbook = WriteXLSX.new(StringIO.new)
+    @worksheet = @workbook.add_worksheet('')
+  end
+
+  def test_write_odd_header
+    @worksheet.set_header('Page &P of &N')
+    @worksheet.__send__('write_odd_header')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<oddHeader>Page &amp;P of &amp;N</oddHeader>'
+    assert_equal(expected, result)
+  end
+
+  def test_write_odd_footer
+    @worksheet.set_footer('&F')
+    @worksheet.__send__('write_odd_footer')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<oddFooter>&amp;F</oddFooter>'
+    assert_equal(expected, result)
+  end
+
+  def test_write_haeder_footer_only_header
+    @worksheet.set_header('Page &P of &N')
+    @worksheet.__send__('write_header_footer')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<headerFooter><oddHeader>Page &amp;P of &amp;N</oddHeader></headerFooter>'
+    assert_equal(expected, result)
+  end
+
+  def test_write_haeder_footer_only_footer
+    @worksheet.set_footer('&F')
+    @worksheet.__send__('write_header_footer')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<headerFooter><oddFooter>&amp;F</oddFooter></headerFooter>'
+    assert_equal(expected, result)
+  end
+
+  def test_write_haeder_footer_both_header_and_footer
+    @worksheet.set_header('Page &P of &N')
+    @worksheet.set_footer('&F')
+    @worksheet.__send__('write_header_footer')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<headerFooter><oddHeader>Page &amp;P of &amp;N</oddHeader><oddFooter>&amp;F</oddFooter></headerFooter>'
+    assert_equal(expected, result)
+  end
+end

data/test/worksheet/test_write_hyperlink.rb

@@ -0,0 +1,39 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx'
+require 'stringio'
+
+class TestWriteHyperlink < Test::Unit::TestCase
+  def setup
+    @workbook = WriteXLSX.new(StringIO.new)
+    @worksheet = @workbook.add_worksheet('')
+  end
+
+  def test_write_hyperlink_external
+    @worksheet.__send__('write_hyperlink_external', 0, 0, 1)
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<hyperlink ref="A1" r:id="rId1" />'
+    assert_equal(expected, result)
+  end
+
+  def test_write_hyperlink_internal_sheet2
+    @worksheet.__send__('write_hyperlink_internal', 0, 0, 'Sheet2!A1', 'Sheet2!A1')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<hyperlink ref="A1" location="Sheet2!A1" display="Sheet2!A1" />'
+    assert_equal(expected, result)
+  end
+
+  def test_write_hyperlink_internal_quated_sheet
+    @worksheet.__send__('write_hyperlink_internal', 4, 0, "'Data Sheet'!D5", "'Data Sheet'!D5")
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = %q{<hyperlink ref="A5" location="'Data Sheet'!D5" display="'Data Sheet'!D5" />}
+    assert_equal(expected, result)
+  end
+
+  def test_write_hyperlink_internal_tooltip
+    @worksheet.__send__('write_hyperlink_internal', 17, 0, 'Sheet2!A1', 'Sheet2!A1', 'Screen Tip 1')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<hyperlink ref="A18" location="Sheet2!A1" tooltip="Screen Tip 1" display="Sheet2!A1" />'
+    assert_equal(expected, result)
+  end
+end

data/test/worksheet/test_write_hyperlinks.rb

@@ -0,0 +1,27 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx'
+require 'stringio'
+
+class TestWriteHyperlinks < Test::Unit::TestCase
+  def setup
+    @workbook = WriteXLSX.new(StringIO.new)
+    @worksheet = @workbook.add_worksheet('')
+  end
+
+  def test_write_hyperlinks
+    @worksheet.instance_variable_set(:@hlink_refs, [[ 1, 0, 0, 1 ]])
+    @worksheet.__send__('write_hyperlinks')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<hyperlinks><hyperlink ref="A1" r:id="rId1" /></hyperlinks>'
+    assert_equal(expected, result)
+  end
+
+  def test_write_hyperlinks_internal
+    @worksheet.instance_variable_set(:@hlink_refs, [[ 2, 0, 0, 'Sheet2!A1', 'Sheet2!A1' ]])
+    @worksheet.__send__('write_hyperlinks')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<hyperlinks><hyperlink ref="A1" location="Sheet2!A1" display="Sheet2!A1" /></hyperlinks>'
+    assert_equal(expected, result)
+  end
+end

data/test/worksheet/test_write_legacy_drawing.rb

@@ -0,0 +1,19 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx'
+require 'stringio'
+
+class TestWriteLegacyDrawing < Test::Unit::TestCase
+  def setup
+    @workbook = WriteXLSX.new(StringIO.new)
+    @worksheet = @workbook.add_worksheet('')
+  end
+
+  def test_write_legacy_drawing
+    @worksheet.instance_variable_set(:@has_comments, true)
+    @worksheet.__send__('write_legacy_drawing')
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<legacyDrawing r:id="rId1" />'
+    assert_equal(expected, result)
+  end
+end

data/test/worksheet/test_write_merge_cell.rb

@@ -0,0 +1,18 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx'
+require 'stringio'
+
+class TestWriteMergeCell < Test::Unit::TestCase
+  def setup
+    @workbook = WriteXLSX.new(StringIO.new)
+    @worksheet = @workbook.add_worksheet('')
+  end
+
+  def test_write_merge_cell
+    @worksheet.__send__('write_merge_cell', [ 2, 1, 2, 2 ])
+    result = @worksheet.instance_variable_get(:@writer).string
+    expected = '<mergeCell ref="B3:C3" />'
+    assert_equal(expected, result)
+  end
+end

data/test/worksheet/test_write_merge_cells.rb

@@ -0,0 +1,192 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx'
+require 'stringio'
+
+class TestWriteMergeCells < Test::Unit::TestCase
+  def setup
+    @workbook = WriteXLSX.new(StringIO.new)
+    @worksheet = @workbook.add_worksheet('')
+  end
+
+  def test_write_merge_cells_B3_C3_Foo_format
+    format = Writexlsx::Format.new({}, {}, :xf_index => 1)
+    @worksheet.select
+    @worksheet.merge_range('B3:C3', 'Foo', format)
+    @worksheet.__send__('assemble_xml_file')
+    result = got_to_array(@worksheet.instance_variable_get(:@writer).string)
+    expected = expected_to_array(<<EOS
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<worksheet xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships">
+  <dimension ref="B3:C3"/>
+  <sheetViews>
+    <sheetView tabSelected="1" workbookViewId="0"/>
+  </sheetViews>
+  <sheetFormatPr defaultRowHeight="15"/>
+  <sheetData>
+    <row r="3" spans="2:3">
+      <c r="B3" s="1" t="s">
+        <v>0</v>
+      </c>
+      <c r="C3" s="1"/>
+    </row>
+  </sheetData>
+  <mergeCells count="1">
+    <mergeCell ref="B3:C3"/>
+  </mergeCells>
+  <pageMargins left="0.7" right="0.7" top="0.75" bottom="0.75" header="0.3" footer="0.3"/>
+</worksheet>
+EOS
+    )
+    assert_equal(expected, result)
+  end
+
+  def test_write_merge_cells_two_range
+    format1 = Writexlsx::Format.new({}, {}, :xf_index => 1)
+    format2 = Writexlsx::Format.new({}, {}, :xf_index => 2)
+    @worksheet.select
+    @worksheet.merge_range('B3:C3', 'Foo', format1)
+    @worksheet.merge_range('A2:D2', nil,   format2)
+    @worksheet.__send__('assemble_xml_file')
+    result = got_to_array(@worksheet.instance_variable_get(:@writer).string)
+    expected = expected_to_array(<<EOS
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<worksheet xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships">
+  <dimension ref="A2:D3"/>
+  <sheetViews>
+    <sheetView tabSelected="1" workbookViewId="0"/>
+  </sheetViews>
+  <sheetFormatPr defaultRowHeight="15"/>
+  <sheetData>
+    <row r="2" spans="1:4">
+      <c r="A2" s="2"/>
+      <c r="B2" s="2"/>
+      <c r="C2" s="2"/>
+      <c r="D2" s="2"/>
+    </row>
+    <row r="3" spans="1:4">
+      <c r="B3" s="1" t="s">
+        <v>0</v>
+      </c>
+      <c r="C3" s="1"/>
+    </row>
+  </sheetData>
+  <mergeCells count="2">
+    <mergeCell ref="B3:C3"/>
+    <mergeCell ref="A2:D2"/>
+  </mergeCells>
+  <pageMargins left="0.7" right="0.7" top="0.75" bottom="0.75" header="0.3" footer="0.3"/>
+</worksheet>
+EOS
+    )
+    assert_equal(expected, result)
+  end
+
+  def test_write_merge_range_type
+    format1 = Writexlsx::Format.new({}, {}, :xf_index => 1)
+    format2 = Writexlsx::Format.new({}, {}, :xf_index => 2)
+    format3 = Writexlsx::Format.new({}, {}, :xf_index => 3)
+
+    @worksheet.set_column('B:C', 12)
+    @worksheet.instance_variable_set(:@date_1904, 0)
+
+    @worksheet.select
+    @worksheet.merge_range_type('formula',     'B14:C14', '=1+2',                 format1, 3)
+    @worksheet.merge_range_type('number',      'B2:C2',   123,                    format1)
+    @worksheet.merge_range_type('string',      'B4:C4',   'foo',                  format1)
+    @worksheet.merge_range_type('blank',       'B6:C6',                           format1)
+#    @worksheet.merge_range_type('rich_string', 'B8:C8',   'This is ', format2, 'bold', format1)
+    @worksheet.merge_range_type('date_time',   'B10:C10', '2011-01-01T',          format2)
+#    @worksheet.merge_range_type('url',         'B12:C12', 'http://www.perl.com/', format3)
+
+    @worksheet.__send__('assemble_xml_file')
+    result = got_to_array(@worksheet.instance_variable_get(:@writer).string)
+    expected = expected_to_array(<<EOS
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<worksheet xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships">
+  <dimension ref="B2:C14"/>
+  <sheetViews>
+    <sheetView tabSelected="1" workbookViewId="0"/>
+  </sheetViews>
+  <sheetFormatPr defaultRowHeight="15"/>
+  <cols>
+    <col min="2" max="3" width="12.7109375" customWidth="1"/>
+  </cols>
+  <sheetData>
+    <row r="2" spans="2:3">
+      <c r="B2" s="1">
+        <v>123</v>
+      </c>
+      <c r="C2" s="1"/>
+    </row>
+    <row r="4" spans="2:3">
+      <c r="B4" s="1" t="s">
+        <v>0</v>
+      </c>
+      <c r="C4" s="1"/>
+    </row>
+    <row r="6" spans="2:3">
+      <c r="B6" s="1"/>
+      <c r="C6" s="1"/>
+    </row>
+    <row r="10" spans="2:3">
+      <c r="B10" s="2">
+        <v>40544</v>
+      </c>
+      <c r="C10" s="2"/>
+    </row>
+    <row r="14" spans="2:3">
+      <c r="B14" s="1">
+        <f>1+2</f>
+        <v>3</v>
+      </c>
+      <c r="C14" s="1"/>
+    </row>
+  </sheetData>
+  <mergeCells count="5">
+    <mergeCell ref="B14:C14"/>
+    <mergeCell ref="B2:C2"/>
+    <mergeCell ref="B4:C4"/>
+    <mergeCell ref="B6:C6"/>
+    <mergeCell ref="B10:C10"/>
+  </mergeCells>
+  <pageMargins left="0.7" right="0.7" top="0.75" bottom="0.75" header="0.3" footer="0.3"/>
+</worksheet>
+EOS
+    )
+    assert_equal(expected, result)
+  end
+=begin
+  def test_write_merge_cells_2_1_2_2_Foo_format
+    format = Writexlsx::Format.new({}, {}, :xf_index => 1)
+    @worksheet.merge_range(2, 1, 2, 2, 'Foo', format)
+    @worksheet.__send__('write_merge_cells')
+    @worksheet.__send__('assemble_xml_file')
+    result = got_to_array(@worksheet.instance_variable_get(:@writer).string)
+    expected = expected_to_array(<<EOS
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<worksheet xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships">
+  <dimension ref="B3:C3"/>
+  <sheetViews>
+    <sheetView tabSelected="1" workbookViewId="0"/>
+  </sheetViews>
+  <sheetFormatPr defaultRowHeight="15"/>
+  <sheetData>
+    <row r="3" spans="2:3">
+      <c r="B3" s="1" t="s">
+        <v>0</v>
+      </c>
+      <c r="C3" s="1"/>
+    </row>
+  </sheetData>
+  <mergeCells count="1">
+    <mergeCell ref="B3:C3"/>
+  </mergeCells>
+  <pageMargins left="0.7" right="0.7" top="0.75" bottom="0.75" header="0.3" footer="0.3"/>
+</worksheet>
+EOS
+    )
+    assert_equal(expected, result)
+  end
+=end
+end