write_xlsx 0.0.2

data/test/drawing/test_drawing_image_01.rb

@@ -0,0 +1,59 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx/drawing'
+
+class DrawingImage011 < Test::Unit::TestCase
+  def test_drawing_image_01
+    @obj = Writexlsx::Drawing.new
+    @obj.add_drawing_object(2, 2, 1, 0, 0, 3, 6, 533257, 190357,
+                           1219200, 190500, 1142857, 1142857, 'republic.png')
+    @obj.embedded = true
+    @obj.assemble_xml_file
+    result = got_to_array(@obj.xml_str)
+    expected = expected_to_array(<<EOS
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<xdr:wsDr xmlns:xdr="http://schemas.openxmlformats.org/drawingml/2006/spreadsheetDrawing" xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main">
+  <xdr:twoCellAnchor editAs="oneCell">
+    <xdr:from>
+      <xdr:col>2</xdr:col>
+      <xdr:colOff>0</xdr:colOff>
+      <xdr:row>1</xdr:row>
+      <xdr:rowOff>0</xdr:rowOff>
+    </xdr:from>
+    <xdr:to>
+      <xdr:col>3</xdr:col>
+      <xdr:colOff>533257</xdr:colOff>
+      <xdr:row>6</xdr:row>
+      <xdr:rowOff>190357</xdr:rowOff>
+    </xdr:to>
+    <xdr:pic>
+      <xdr:nvPicPr>
+        <xdr:cNvPr id="2" name="Picture 1" descr="republic.png"/>
+        <xdr:cNvPicPr>
+          <a:picLocks noChangeAspect="1"/>
+        </xdr:cNvPicPr>
+      </xdr:nvPicPr>
+      <xdr:blipFill>
+        <a:blip xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" r:embed="rId1"/>
+        <a:stretch>
+          <a:fillRect/>
+        </a:stretch>
+      </xdr:blipFill>
+      <xdr:spPr>
+        <a:xfrm>
+          <a:off x="1219200" y="190500"/>
+          <a:ext cx="1142857" cy="1142857"/>
+        </a:xfrm>
+        <a:prstGeom prst="rect">
+          <a:avLst/>
+        </a:prstGeom>
+      </xdr:spPr>
+    </xdr:pic>
+    <xdr:clientData/>
+  </xdr:twoCellAnchor>
+</xdr:wsDr>
+EOS
+    )
+    assert_equal(expected, result)
+  end
+end

data/test/helper.rb

@@ -0,0 +1,90 @@
+# -*- coding: utf-8 -*-
+require 'rubygems'
+require 'bundler'
+begin
+  Bundler.setup(:default, :development)
+rescue Bundler::BundlerError => e
+  $stderr.puts e.message
+  $stderr.puts "Run `bundle install` to install missing gems"
+  exit e.status_code
+end
+require 'test/unit'
+
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+require 'write_xlsx'
+
+class Test::Unit::TestCase
+  def setup_dir_var
+    @test_dir = File.dirname(__FILE__)
+    @expected_dir = File.join(@test_dir, 'expected_dir')
+    @result_dir   = File.join(@test_dir, 'result_dir')
+    @perl_output  = File.join(@test_dir, 'perl_output')
+  end
+
+  def expected_to_array(lines)
+    array = []
+    lines.each_line do |line|
+      str = line.chomp.sub(%r!/>$!, ' />').sub(/^\s+/, '')
+      array << str unless str == ''
+    end
+    array
+  end
+
+  def got_to_array(xml_str)
+    str = xml_str.gsub(/[\r\n]/, '')
+    str.gsub(/>[ \t\r\n]*</, ">\t<").split(/\t/)
+  end
+
+  def compare_xlsx(expected, result, xlsx)
+    begin
+      prepare_compare(expected, result, xlsx)
+      expected_files = files(expected)
+      result_files   = files(result)
+
+      not_exists = expected_files - result_files
+      assert(not_exists.empty?, "These files does not exist: #{not_exists.to_s}")
+
+      additional_exist = result_files - expected_files
+      assert(additional_exist.empty?, "These files must not exist: #{additional_exist.to_s}")
+
+      compare_files(expected, result)
+    ensure
+      cleanup(xlsx)
+    end
+  end
+
+  def compare_files(expected, result)
+    files(expected).each do |file|
+      compare_file(expected, result, file)
+    end
+  end
+
+  def compare_file(expected, result, file)
+    assert_equal(got_to_array(IO.read(File.join(expected, file))),
+                 got_to_array(IO.read(File.join(result, file))),
+                 "#{file} differs.")
+  end
+
+  def prepare_compare(expected, result, xlsx)
+    prepare_xlsx(expected, File.join(@perl_output, xlsx))
+    prepare_xlsx(result, xlsx)
+  end
+
+  def prepare_xlsx(dir, xlsx)
+    Dir.mkdir(dir)
+    system("unzip -q #{xlsx} -d #{dir}")
+  end
+
+  def files(dir)
+    Dir.glob(File.join(dir, "**/*")).select { |f| File.file?(f) }.
+                                     reject { |f| File.basename(f) =~ /(core|theme1)\.xml/ }.
+                                     collect { |f| f.sub(Regexp.new("^#{dir}"), '') }
+  end
+
+  def cleanup(xlsx)
+    Writexlsx::Utility.delete_files(xlsx)          if File.exist?(xlsx)
+    Writexlsx::Utility.delete_files(@expected_dir) if File.exist?(@expected_dir)
+    Writexlsx::Utility.delete_files(@result_dir)   if File.exist?(@result_dir)
+  end
+end

data/test/package/app/test_app01.rb

@@ -0,0 +1,44 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx/package/app'
+
+class TestApp01 < Test::Unit::TestCase
+  def test_assemble_xml_file
+    @obj = Writexlsx::Package::App.new
+    @obj.add_part_name('Sheet1')
+    @obj.add_heading_pair(['Worksheets', 1])
+    @obj.assemble_xml_file
+    result = got_to_array(@obj.xml_str)
+    expected = expected_to_array(<<EOS
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<Properties xmlns="http://schemas.openxmlformats.org/officeDocument/2006/extended-properties" xmlns:vt="http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes">
+  <Application>Microsoft Excel</Application>
+  <DocSecurity>0</DocSecurity>
+  <ScaleCrop>false</ScaleCrop>
+  <HeadingPairs>
+    <vt:vector size="2" baseType="variant">
+      <vt:variant>
+        <vt:lpstr>Worksheets</vt:lpstr>
+      </vt:variant>
+      <vt:variant>
+        <vt:i4>1</vt:i4>
+      </vt:variant>
+    </vt:vector>
+  </HeadingPairs>
+  <TitlesOfParts>
+    <vt:vector size="1" baseType="lpstr">
+      <vt:lpstr>Sheet1</vt:lpstr>
+    </vt:vector>
+  </TitlesOfParts>
+  <Company>
+  </Company>
+  <LinksUpToDate>false</LinksUpToDate>
+  <SharedDoc>false</SharedDoc>
+  <HyperlinksChanged>false</HyperlinksChanged>
+  <AppVersion>12.0000</AppVersion>
+</Properties>
+EOS
+    )
+    assert_equal(expected, result)
+  end
+end

data/test/package/app/test_app02.rb

@@ -0,0 +1,46 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx/package/app'
+
+class TestApp02 < Test::Unit::TestCase
+  def test_assemble_xml_file
+    @obj = Writexlsx::Package::App.new
+    @obj.add_part_name('Sheet1')
+    @obj.add_part_name('Sheet2')
+    @obj.add_heading_pair(['Worksheets', 2])
+    @obj.assemble_xml_file
+    result = got_to_array(@obj.xml_str)
+    expected = expected_to_array(<<EOS
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<Properties xmlns="http://schemas.openxmlformats.org/officeDocument/2006/extended-properties" xmlns:vt="http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes">
+  <Application>Microsoft Excel</Application>
+  <DocSecurity>0</DocSecurity>
+  <ScaleCrop>false</ScaleCrop>
+  <HeadingPairs>
+    <vt:vector size="2" baseType="variant">
+      <vt:variant>
+        <vt:lpstr>Worksheets</vt:lpstr>
+      </vt:variant>
+      <vt:variant>
+        <vt:i4>2</vt:i4>
+      </vt:variant>
+    </vt:vector>
+  </HeadingPairs>
+  <TitlesOfParts>
+    <vt:vector size="2" baseType="lpstr">
+      <vt:lpstr>Sheet1</vt:lpstr>
+      <vt:lpstr>Sheet2</vt:lpstr>
+    </vt:vector>
+  </TitlesOfParts>
+  <Company>
+  </Company>
+  <LinksUpToDate>false</LinksUpToDate>
+  <SharedDoc>false</SharedDoc>
+  <HyperlinksChanged>false</HyperlinksChanged>
+  <AppVersion>12.0000</AppVersion>
+</Properties>
+EOS
+    )
+    assert_equal(expected, result)
+  end
+end

data/test/package/app/test_app03.rb

@@ -0,0 +1,53 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx/package/app'
+
+class TestApp03 < Test::Unit::TestCase
+  def test_assemble_xml_file
+    @obj = Writexlsx::Package::App.new
+    @obj.add_part_name('Sheet1')
+    @obj.add_part_name('Sheet1!Print_Titles')
+    @obj.add_heading_pair(['Worksheets', 1])
+    @obj.add_heading_pair(['Named Ranges', 1])
+    @obj.assemble_xml_file
+    result = got_to_array(@obj.xml_str)
+    expected = expected_to_array(<<EOS
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<Properties xmlns="http://schemas.openxmlformats.org/officeDocument/2006/extended-properties" xmlns:vt="http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes">
+  <Application>Microsoft Excel</Application>
+  <DocSecurity>0</DocSecurity>
+  <ScaleCrop>false</ScaleCrop>
+  <HeadingPairs>
+    <vt:vector size="4" baseType="variant">
+      <vt:variant>
+        <vt:lpstr>Worksheets</vt:lpstr>
+      </vt:variant>
+      <vt:variant>
+        <vt:i4>1</vt:i4>
+      </vt:variant>
+      <vt:variant>
+        <vt:lpstr>Named Ranges</vt:lpstr>
+      </vt:variant>
+      <vt:variant>
+        <vt:i4>1</vt:i4>
+      </vt:variant>
+    </vt:vector>
+  </HeadingPairs>
+  <TitlesOfParts>
+    <vt:vector size="2" baseType="lpstr">
+      <vt:lpstr>Sheet1</vt:lpstr>
+      <vt:lpstr>Sheet1!Print_Titles</vt:lpstr>
+    </vt:vector>
+  </TitlesOfParts>
+  <Company>
+  </Company>
+  <LinksUpToDate>false</LinksUpToDate>
+  <SharedDoc>false</SharedDoc>
+  <HyperlinksChanged>false</HyperlinksChanged>
+  <AppVersion>12.0000</AppVersion>
+</Properties>
+EOS
+    )
+    assert_equal(expected, result)
+  end
+end

data/test/package/comments/test_comments01.rb

@@ -0,0 +1,36 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx/package/comments'
+
+class TestComments01 < Test::Unit::TestCase
+  def test_assemble_xml_file
+    @obj = Writexlsx::Package::Comments.new
+    @obj.assemble_xml_file([[1, 1, 'Some text', 'John', nil, 81, [2, 0, 4, 4, 143, 10, 128, 74]]])
+    result = got_to_array(@obj.xml_str)
+    expected = expected_to_array(<<EOS
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<comments xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main">
+  <authors>
+    <author>John</author>
+  </authors>
+  <commentList>
+    <comment ref="B2" authorId="0">
+      <text>
+        <r>
+          <rPr>
+            <sz val="8"/>
+            <color indexed="81"/>
+            <rFont val="Tahoma"/>
+            <family val="2"/>
+          </rPr>
+          <t>Some text</t>
+        </r>
+      </text>
+    </comment>
+  </commentList>
+</comments>
+EOS
+    )
+    assert_equal(expected, result)
+  end
+end

data/test/package/comments/test_write_text_t.rb

@@ -0,0 +1,44 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx/package/comments'
+
+class TestWriteTextT < Test::Unit::TestCase
+  def setup
+    @comment = Writexlsx::Package::Comments.new
+  end
+
+  def test_write_text_t_with_center_space
+    @comment.__send__('write_text_t', 'Some text')
+    result = @comment.xml_str
+    expected = '<t>Some text</t>'
+    assert_equal(expected, result)
+  end
+
+  def test_write_text_t_with_beginning_space
+    @comment.__send__('write_text_t', ' Some text')
+    result = @comment.xml_str
+    expected = '<t xml:space="preserve"> Some text</t>'
+    assert_equal(expected, result)
+  end
+
+  def test_write_text_t_with_ending_space
+    @comment.__send__('write_text_t', 'Some text ')
+    result = @comment.xml_str
+    expected = '<t xml:space="preserve">Some text </t>'
+    assert_equal(expected, result)
+  end
+
+  def test_write_text_t_with_both_space
+    @comment.__send__('write_text_t', ' Some text ')
+    result = @comment.xml_str
+    expected = '<t xml:space="preserve"> Some text </t>'
+    assert_equal(expected, result)
+  end
+
+  def test_write_text_t_with_cr
+    @comment.__send__('write_text_t', "Some text\n")
+    result = @comment.xml_str
+    expected = %Q!<t xml:space="preserve">Some text\n</t>!
+    assert_equal(expected, result)
+  end
+end

data/test/package/content_types/test_content_types.rb

@@ -0,0 +1,35 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx/package/content_types'
+
+class TestContentTypes < Test::Unit::TestCase
+  def test_assemble_xml_file
+    @obj = Writexlsx::Package::ContentTypes.new
+    @obj.add_worksheet_name('sheet1')
+    @obj.add_default('jpeg', 'image/jpeg')
+    @obj.add_shared_strings
+    @obj.add_calc_chain
+    @obj.assemble_xml_file
+    result = got_to_array(@obj.xml_str)
+    expected = expected_to_array(<<EOS
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<Types xmlns="http://schemas.openxmlformats.org/package/2006/content-types">
+
+  <Default Extension="rels" ContentType="application/vnd.openxmlformats-package.relationships+xml"/>
+  <Default Extension="xml" ContentType="application/xml"/>
+  <Default Extension="jpeg" ContentType="image/jpeg"/>
+
+  <Override PartName="/docProps/app.xml" ContentType="application/vnd.openxmlformats-officedocument.extended-properties+xml"/>
+  <Override PartName="/docProps/core.xml" ContentType="application/vnd.openxmlformats-package.core-properties+xml"/>
+  <Override PartName="/xl/styles.xml" ContentType="application/vnd.openxmlformats-officedocument.spreadsheetml.styles+xml"/>
+  <Override PartName="/xl/theme/theme1.xml" ContentType="application/vnd.openxmlformats-officedocument.theme+xml"/>
+  <Override PartName="/xl/workbook.xml" ContentType="application/vnd.openxmlformats-officedocument.spreadsheetml.sheet.main+xml"/>
+  <Override PartName="/xl/worksheets/sheet1.xml" ContentType="application/vnd.openxmlformats-officedocument.spreadsheetml.worksheet+xml"/>
+  <Override PartName="/xl/sharedStrings.xml" ContentType="application/vnd.openxmlformats-officedocument.spreadsheetml.sharedStrings+xml"/>
+  <Override PartName="/xl/calcChain.xml" ContentType="application/vnd.openxmlformats-officedocument.spreadsheetml.calcChain+xml"/>
+</Types>
+EOS
+    )
+    assert_equal(expected, result)
+  end
+end

data/test/package/content_types/test_write_default.rb

@@ -0,0 +1,13 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx/package/content_types'
+
+class TestWriteDefault < Test::Unit::TestCase
+  def test_assemble_xml_file
+    @obj = Writexlsx::Package::ContentTypes.new
+    @obj.__send__('write_default', 'xml', 'application/xml')
+    result = @obj.xml_str
+    expected = '<Default Extension="xml" ContentType="application/xml" />'
+    assert_equal(expected, result)
+  end
+end

data/test/package/content_types/test_write_override.rb

@@ -0,0 +1,13 @@
+# -*- coding: utf-8 -*-
+require 'helper'
+require 'write_xlsx/package/content_types'
+
+class TestWriteOverride < Test::Unit::TestCase
+  def test_assemble_xml_file
+    @obj = Writexlsx::Package::ContentTypes.new
+    @obj.__send__('write_override', '/docProps/core.xml', 'app...')
+    result = @obj.xml_str
+    expected = '<Override PartName="/docProps/core.xml" ContentType="app..." />'
+    assert_equal(expected, result)
+  end
+end