ricardoo27-writeexcel 0.6.12.1

data/test/test_23_note.rb

@@ -0,0 +1,57 @@
+# -*- coding: utf-8 -*-
+##########################################################################
+# test_23_note.rb
+#
+# Tests for some of the internal method used to write the NOTE record that
+# is used in cell comments.
+#
+# reverse('©'), September 2005, John McNamara, jmcnamara@cpan.org
+#
+# original written in Perl by John McNamara
+# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
+#
+#########################################################################
+require 'helper'
+require 'stringio'
+
+class TC_note < Test::Unit::TestCase
+
+  def setup
+    @workbook   = WriteExcel.new(StringIO.new)
+    @worksheet  = @workbook.add_worksheet
+  end
+
+  def test_blank_author_name
+    comment = Writeexcel::Worksheet::Comment.new(@worksheet, 2, 0, 'Test')
+    obj_id   = 1
+
+    caption = sprintf(" \tnote_record")
+    target  = %w(
+        1C 00 0C 00 02 00 00 00 00 00 01 00 00 00 00 00
+    ).join(' ')
+    result = unpack_record(comment.store_note_record(obj_id))
+    assert_equal(target, result, caption)
+  end
+
+  def test_defined_author_name
+    comment = Writeexcel::Worksheet::Comment.new(@worksheet, 2, 0,'Test', :author => 'Username')
+    obj_id   = 1
+
+    caption = sprintf(" \tstore_note")
+    target  = %w(
+        1C 00 14 00 02 00 00 00 00 00 01 00 08 00 00 55
+        73 65 72 6E 61 6D 65 00
+    ).join(' ')
+    result = unpack_record(comment.store_note_record(obj_id))
+    assert_equal(target, result, caption)
+  end
+
+  ###############################################################################
+  #
+  # Unpack the binary data into a format suitable for printing in tests.
+  #
+  def unpack_record(data)
+    data.unpack('C*').map! {|c| sprintf("%02X", c) }.join(' ')
+  end
+
+end

data/test/test_24_txo.rb

@@ -0,0 +1,74 @@
+# -*- coding: utf-8 -*-
+##########################################################################
+# test_24_txo.rb
+#
+# Tests for some of the internal method used to write the NOTE record that
+# is used in cell comments.
+#
+# reverse('©'), September 2005, John McNamara, jmcnamara@cpan.org
+#
+# original written in Perl by John McNamara
+# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
+#
+#########################################################################
+require 'helper'
+require 'stringio'
+
+class TC_txo < Test::Unit::TestCase
+
+  def setup
+    @workbook   = WriteExcel.new(StringIO.new)
+    @worksheet  = @workbook.add_worksheet
+  end
+
+  def test_txo
+    string     = 'aaa'
+    comment = Writeexcel::Worksheet::Comment.new(@worksheet, 1, 1, ' ')
+    caption    = " \t_store_txo()"
+    target     = %w(
+                    B6 01 12 00 12 02 00 00 00 00 00 00 00 00 03 00
+                    10 00 00 00 00 00
+                   ).join(' ')
+
+    result     = unpack_record(comment.__send__("store_txo", string.length))
+    assert_equal(target, result, caption)
+  end
+
+  def test_first_continue_record_after_txo
+    string     = 'aaa'
+    comment = Writeexcel::Worksheet::Comment.new(@worksheet, 1, 1, ' ')
+    caption    = " \t_store_txo_continue_1()"
+    target     = %w(
+                    3C 00 04 00 00 61 61 61
+                   ).join(' ')
+
+    result     = unpack_record(comment.__send__("store_txo_continue_1", string))
+    assert_equal(target, result, caption)
+  end
+
+  def test_second_continue_record_after_txo
+    string     = 'aaa'
+    comment = Writeexcel::Worksheet::Comment.new(@worksheet, 1, 1, ' ')
+    caption    = " \t_store_txo_continue_2()"
+    target     = %w(
+                    3C 00 10 00 00 00 00 00 00 00 00 00 03 00 00 00
+                    00 00 00 00
+                   ).join(' ')
+    formats    = [
+                    [0,             0],
+                    [string.length, 0]
+                 ]
+
+    result     = unpack_record(comment.__send__("store_txo_continue_2", formats))
+    assert_equal(target, result, caption)
+  end
+
+  ###############################################################################
+  #
+  # Unpack the binary data into a format suitable for printing in tests.
+  #
+  def unpack_record(data)
+    data.unpack('C*').map! {|c| sprintf("%02X", c) }.join(' ')
+  end
+
+end

data/test/test_25_position_object.rb

@@ -0,0 +1,80 @@
+# -*- coding: utf-8 -*-
+###############################################################################
+#
+# A test for Spreadsheet::WriteExcel.
+#
+# Tests for the _position_object() Worksheet method used to calculate the
+# vertices that define the position of a graphical object within a worksheet.
+#
+# See the the _position_object() comments for a full explanation.
+#
+# reverse('ｩ'), September 2005, John McNamara, jmcnamara@cpan.org
+#
+# original written in Perl by John McNamara
+# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
+#
+#########################################################################
+require 'helper'
+require 'stringio'
+
+class TC_position_object < Test::Unit::TestCase
+
+  def setup
+    @test_file  = StringIO.new
+    @workbook   = WriteExcel.new(@test_file)
+    @worksheet  = @workbook.add_worksheet
+  end
+
+###############################################################################
+#
+# Tests extracted from images imported into Excel.
+#
+#
+# input    = ($col_start, $row_start, $x1, $y1, $width, $height)
+#            (0,          1,          2,   3,   4,      5      )
+#
+# expected = ($col_start, $x1, $row_start, $y1, $col_end, $x2, $row_end, $y2)
+#            (0,          1,   2,          3,   4,        5,   6,        7  )
+#
+  def test_extracted_from_images_imported_into_excel
+    tests = [
+      # Input                    # Expected results
+      [ [0, 0,  0, 0,   1,   1], [ 0,   0,  0,   0,  0,   16,  0,  15] ],
+      [ [0, 0,  0, 0,   2,   2], [ 0,   0,  0,   0,  0,   32,  0,  30] ],
+      [ [0, 0,  0, 0,   3,   3], [ 0,   0,  0,   0,  0,   48,  0,  45] ],
+      [ [0, 0,  0, 0,   4,   4], [ 0,   0,  0,   0,  0,   64,  0,  60] ],
+      [ [0, 0,  0, 0,   5,   5], [ 0,   0,  0,   0,  0,   80,  0,  75] ],
+      [ [0, 0,  0, 0,   6,   6], [ 0,   0,  0,   0,  0,   96,  0,  90] ],
+      [ [0, 0,  0, 0,   7,   7], [ 0,   0,  0,   0,  0,  112,  0, 105] ],
+      [ [0, 0,  0, 0,   8,   8], [ 0,   0,  0,   0,  0,  128,  0, 120] ],
+      [ [0, 0,  0, 0,   9,   9], [ 0,   0,  0,   0,  0,  144,  0, 136] ],
+      [ [0, 0,  0, 0,  10,  10], [ 0,   0,  0,   0,  0,  160,  0, 151] ],
+      [ [0, 0,  0, 0,  15,  15], [ 0,   0,  0,   0,  0,  240,  0, 226] ],
+      [ [0, 0,  0, 0,  16,  16], [ 0,   0,  0,   0,  0,  256,  0, 241] ],
+      [ [0, 0,  0, 0,  17,  17], [ 0,   0,  0,   0,  0,  272,  1,   0] ],
+      [ [0, 0,  0, 0,  18,  18], [ 0,   0,  0,   0,  0,  288,  1,  15] ],
+      [ [0, 0,  0, 0,  19,  19], [ 0,   0,  0,   0,  0,  304,  1,  30] ],
+      [ [0, 0,  0, 0,  62,   8], [ 0,   0,  0,   0,  0,  992,  0, 120] ],
+      [ [0, 0,  0, 0,  63,   8], [ 0,   0,  0,   0,  0, 1008,  0, 120] ],
+      [ [0, 0,  0, 0,  64,   8], [ 0,   0,  0,   0,  1,    0,  0, 120] ],
+      [ [0, 0,  0, 0,  65,   8], [ 0,   0,  0,   0,  1,   16,  0, 120] ],
+      [ [0, 0,  0, 0,  66,   8], [ 0,   0,  0,   0,  1,   32,  0, 120] ],
+      [ [0, 0,  0, 0, 200, 200], [ 0,   0,  0,   0,  3,  128, 11, 196] ],
+      [ [1, 4,  0, 0,  64,  16], [ 1,   0,  4,   0,  2,    0,  4, 241] ],
+      [ [1, 4,  1, 0,  64,  16], [ 1,  16,  4,   0,  2,   16,  4, 241] ],
+      [ [1, 4,  2, 0,  64,  16], [ 1,  32,  4,   0,  2,   32,  4, 241] ],
+      [ [1, 4,  2, 1,  64,  16], [ 1,  32,  4,  15,  2,   32,  5,   0] ],
+      [ [1, 4,  2, 2,  64,  16], [ 1,  32,  4,  30,  2,   32,  5,  15] ],
+
+      # Test for comment box standard sizes.
+      [ [2, 1, 15, 7, 128,  74], [ 2, 240,  1, 105,  4,  240,  5, 196] ]
+    ]
+
+    tests.each do |testcase|
+      input    = testcase[0]
+      expected = testcase[1]
+      results  = @worksheet.__send__("position_object", *input)
+      assert_equal(expected, results)
+    end
+  end
+end

data/test/test_26_autofilter.rb

@@ -0,0 +1,309 @@
+# -*- coding: utf-8 -*-
+##########################################################################
+# test_26_autofilter.rb
+#
+# Tests for the internal methods used to write the AUTOFILTER record.
+#
+# reverse('©'), September 2005, John McNamara, jmcnamara@cpan.org
+#
+# original written in Perl by John McNamara
+# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
+#
+#########################################################################
+require 'helper'
+require 'stringio'
+
+class TC_26_autofilter < Test::Unit::TestCase
+
+  def test_26_autofilter
+    @tests.each do |test|
+      column     = test['column']
+      expression = test['expression']
+      tokens     = @worksheet.__send__("extract_filter_tokens", expression)
+      tokens     = @worksheet.__send__("parse_filter_expression", expression, tokens)
+
+      result     = @worksheet.__send__("store_autofilter", column, *tokens)
+
+      target     = test['data'].join(" ")
+
+      caption    = " \tfilter_column(#{column}, '#{expression}')"
+
+      result     = unpack_record(result)
+      assert_equal(target, result, caption)
+    end
+  end
+
+  def setup
+    @workbook   = WriteExcel.new(StringIO.new)
+    @worksheet  = @workbook.add_worksheet
+    @tests = [
+        {
+            'column'        => 0,
+            'expression'    => 'x =  Blanks',
+            'data'          => [%w(
+                                    9E 00 18 00 00 00 84 32 0C 02 00 00 00 00 00 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00
+
+                               )]
+        },
+        {
+            'column'        => 1,
+            'expression'    => 'x =  Nonblanks',
+            'data'          => [%w(
+                                    9E 00 18 00 01 00 84 32 0E 05 00 00 00 00 00 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00
+
+                               )]
+        },
+        {
+            'column'        => 2,
+            'expression'    => 'x >  1.001',
+            'data'          => [%w(
+                                    9E 00 18 00 02 00 80 32 04 04 6A BC 74 93 18 04
+                                    F0 3F 00 00 00 00 00 00 00 00 00 00
+
+                               )]
+        },
+        {
+            'column'        => 3,
+            'expression'    => 'x >= 1.001',
+            'data'          => [%w(
+                                      9E 00 18 00 03 00 80 32 04 06 6A BC 74 93 18 04
+                                    F0 3F 00 00 00 00 00 00 00 00 00 00
+
+                               )]
+        },
+        {
+            'column'        => 4,
+            'expression'    => 'x <  1.001',
+            'data'          => [%w(
+                                    9E 00 18 00 04 00 80 32 04 01 6A BC 74 93 18 04
+                                    F0 3F 00 00 00 00 00 00 00 00 00 00
+
+                               )]
+        },
+        {
+            'column'        => 5,
+            'expression'    => 'x <= 1.001',
+            'data'          => [%w(
+                                    9E 00 18 00 05 00 80 32 04 03 6A BC 74 93 18 04
+                                    F0 3F 00 00 00 00 00 00 00 00 00 00
+
+                               )]
+        },
+        {
+            'column'        => 6,
+            'expression'    => 'x >  1.001 and x <= 5.001',
+            'data'          => [%w(
+                                    9E 00 18 00 06 00 80 32 04 04 6A BC 74 93 18 04
+                                    F0 3F 04 03 1B 2F DD 24 06 01 14 40
+
+                               )]
+        },
+        {
+            'column'        => 7,
+            'expression'    => 'x >  1.001 or  x <= 5.001',
+            'data'          => [%w(
+                                    9E 00 18 00 07 00 81 32 04 04 6A BC 74 93 18 04
+                                    F0 3F 04 03 1B 2F DD 24 06 01 14 40
+
+                               )]
+        },
+        {
+            'column'        => 8,
+            'expression'    => 'x <> 2.001',
+            'data'          => [%w(
+                                    9E 00 18 00 08 00 80 32 04 05 35 5E BA 49 0C 02
+                                    00 40 00 00 00 00 00 00 00 00 00 00
+
+                               )]
+        },
+        {
+            'column'        => 9,
+            'expression'    => 'x =  1.001',
+            'data'          => [%w(
+                                    9E 00 1E 00 09 00 84 32 06 02 00 00 00 00 05 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00 00 31 2E 30
+                                    30 31
+
+                               )]
+        },
+        {
+            'column'        => 10,
+            'expression'    => 'x =  West',
+            'data'          => [%w(
+                                    9E 00 1D 00 0A 00 84 32 06 02 00 00 00 00 04 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00 00 57 65 73
+                                    74
+
+                               )]
+        },
+        {
+            'column'        => 11,
+            'expression'    => 'x =  East',
+            'data'          => [%w(
+                                    9E 00 1D 00 0B 00 84 32 06 02 00 00 00 00 04 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00 00 45 61 73
+                                    74
+
+                               )]
+        },
+        {
+            'column'        => 12,
+            'expression'    => 'x <> West',
+            'data'          => [%w(
+                                    9E 00 1D 00 0C 00 80 32 06 05 00 00 00 00 04 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00 00 57 65 73
+                                    74
+
+                               )]
+        },
+        {
+            'column'        => 13,
+            'expression'    => 'x =~ b*',
+            'data'          => [%w(
+                                    9E 00 1B 00 0D 00 80 32 06 02 00 00 00 00 02 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00 00 62 2A
+
+                               )]
+        },
+        {
+            'column'        => 14,
+            'expression'    => 'x !~ b*',
+            'data'          => [%w(
+                                    9E 00 1B 00 0E 00 80 32 06 05 00 00 00 00 02 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00 00 62 2A
+
+                               )]
+        },
+        {
+            'column'        => 15,
+            'expression'    => 'x =~ *b',
+            'data'          => [%w(
+                                    9E 00 1B 00 0F 00 80 32 06 02 00 00 00 00 02 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00 00 2A 62
+
+                               )]
+        },
+        {
+            'column'        => 16,
+            'expression'    => 'x !~ *b',
+            'data'          => [%w(
+                                    9E 00 1B 00 10 00 80 32 06 05 00 00 00 00 02 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00 00 2A 62
+
+                               )]
+        },
+        {
+            'column'        => 17,
+            'expression'    => 'x =~ *b*',
+            'data'          => [%w(
+                                    9E 00 1C 00 11 00 80 32 06 02 00 00 00 00 03 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00 00 2A 62 2A
+
+                               )]
+        },
+        {
+            'column'        => 18,
+            'expression'    => 'x !~ *b*',
+            'data'          => [%w(
+                                    9E 00 1C 00 12 00 80 32 06 05 00 00 00 00 03 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00 00 2A 62 2A
+
+                               )]
+        },
+        {
+            'column'        => 19,
+            'expression'    => 'x =  fo?',
+            'data'          => [%w(
+                                    9E 00 1C 00 13 00 80 32 06 02 00 00 00 00 03 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00 00 66 6F 3F
+
+                               )]
+        },
+        {
+            'column'        => 20,
+            'expression'    => 'x =  fo~?',
+            'data'          => [%w(
+                                    9E 00 1D 00 14 00 80 32 06 02 00 00 00 00 04 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00 00 66 6F 7E
+                                    3F
+
+                               )]
+        },
+        {
+            'column'        => 21,
+            'expression'    => 'x =  East and x = West',
+            'data'          => [%w(
+                                    9E 00 22 00 15 00 8C 32 06 02 00 00 00 00 04 00
+                                    00 00 06 02 00 00 00 00 04 00 00 00 00 45 61 73
+                                    74 00 57 65 73 74
+
+                               )]
+        },
+        {
+            'column'        => 22,
+            'expression'    => 'top 10 items',
+            'data'          => [%w(
+                                    9E 00 18 00 16 00 30 05 04 06 00 00 00 00 00 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00
+
+                               )]
+        },
+        {
+            'column'        => 23,
+            'expression'    => 'top 10 %',
+            'data'          => [%w(
+                                    9E 00 18 00 17 00 70 05 04 06 00 00 00 00 00 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00
+
+                               )]
+        },
+        {
+            'column'        => 24,
+            'expression'    => 'bottom 10 items',
+            'data'          => [%w(
+                                    9E 00 18 00 18 00 10 05 04 03 00 00 00 00 00 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00
+
+                               )]
+        },
+        {
+            'column'        => 25,
+            'expression'    => 'bottom 10 %',
+            'data'          => [%w(
+                                    9E 00 18 00 19 00 50 05 04 03 00 00 00 00 00 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00
+
+                               )]
+        },
+        {
+            'column'        => 26,
+            'expression'    => 'top 5 items',
+            'data'          => [%w(
+                                    9E 00 18 00 1A 00 B0 02 04 06 00 00 00 00 00 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00
+
+                               )]
+        },
+        {
+            'column'        => 27,
+            'expression'    => 'top 100 items',
+            'data'          => [%w(
+                                    9E 00 18 00 1B 00 30 32 04 06 00 00 00 00 00 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00
+
+                               )]
+        },
+        {
+            'column'        => 28,
+            'expression'    => 'top 101 items',
+            'data'          => [%w(
+                                    9E 00 18 00 1C 00 B0 32 04 06 00 00 00 00 00 00
+                                    00 00 00 00 00 00 00 00 00 00 00 00
+
+                               )]
+        }
+      ]
+  end
+end