writeexcel 0.1.0

data/test/test_23_note.rb

@@ -0,0 +1,78 @@
+##########################################################################
+# 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
+#
+#########################################################################
+$LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
+
+require "test/unit"
+require 'writeexcel'
+
+class TC_note < Test::Unit::TestCase
+
+  def setup
+    t = Time.now.strftime("%Y%m%d")
+    path = "temp#{t}-#{$$}-#{rand(0x100000000).to_s(36)}"
+    @test_file           = File.join(Dir.tmpdir, path)
+    @workbook   = Spreadsheet::WriteExcel.new(@test_file)
+    @worksheet  = @workbook.add_worksheet
+  end
+
+  def teardown
+    @workbook.close
+    File.unlink(@test_file) if FileTest.exist?(@test_file)
+  end
+
+  def test_blank_author_name
+    data = @worksheet.comment_params(2,0,'Test')
+    row      = data[0]
+    col      = data[1]
+    author   = data[4]
+    encoding = data[5]
+    visible  = data[6]
+    obj_id   = 1
+    
+    caption = sprintf(" \tstore_note")
+    target  = %w(
+        1C 00 0C 00 02 00 00 00 00 00 01 00 00 00 00 00
+    ).join(' ')
+    result = unpack_record(
+        @worksheet.store_note(row,col,obj_id,author,encoding,visible))
+    assert_equal(target, result, caption)
+  end
+
+  def test_defined_author_name
+    data = @worksheet.comment_params(2,0,'Test', :author => 'Username')
+    row      = data[0]
+    col      = data[1]
+    author   = data[4]
+    encoding = data[5]
+    visible  = data[6]
+    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(
+        @worksheet.store_note(row,col,obj_id,author,encoding,visible))
+    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,80 @@
+##########################################################################
+# 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
+#
+#########################################################################
+$LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
+
+require "test/unit"
+require 'writeexcel'
+
+class TC_txo < Test::Unit::TestCase
+
+  def setup
+    t = Time.now.strftime("%Y%m%d")
+    path = "temp#{t}-#{$$}-#{rand(0x100000000).to_s(36)}"
+    @test_file           = File.join(Dir.tmpdir, path)
+    @workbook   = Spreadsheet::WriteExcel.new(@test_file)
+    @worksheet  = @workbook.add_worksheet
+  end
+
+  def teardown
+    @workbook.close
+    File.unlink(@test_file) if FileTest.exist?(@test_file)
+  end
+
+  def test_txo
+    string     = 'aaa'
+    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(@worksheet.store_txo(string.length))
+    assert_equal(target, result, caption)
+  end
+
+  def test_first_continue_record_after_txo
+    string     = 'aaa'
+    caption    = " \t_store_txo_continue_1()"
+    target     = %w(
+                    3C 00 04 00 00 61 61 61
+                   ).join(' ')
+
+    result     = unpack_record(@worksheet.store_txo_continue_1(string))
+    assert_equal(target, result, caption)
+  end
+
+  def test_second_continue_record_after_txo
+    string     = 'aaa'
+    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(@worksheet.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_26_autofilter.rb

@@ -0,0 +1,327 @@
+##########################################################################
+# 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
+#
+#########################################################################
+$LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
+
+require "test/unit"
+require 'writeexcel'
+
+class TC_26_autofilter < Test::Unit::TestCase
+
+  def test_26_autofilter
+    @tests.each do |test|
+      column     = test['column']
+      expression = test['expression']
+      tokens     = @worksheet.extract_filter_tokens(expression)
+      tokens     = @worksheet.parse_filter_expression(expression, tokens)
+  
+      result     = @worksheet.store_autofilter(column, *tokens)
+  
+      target     = test['data'].join(" ")
+  
+      caption    = " \tfilter_column(#{column}, '#{expression}')"
+  
+      result     = unpack_record(result)
+      assert_equal(target, result, caption)
+    end
+  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
+
+  def setup
+    t = Time.now.strftime("%Y%m%d")
+    path = "temp#{t}-#{$$}-#{rand(0x100000000).to_s(36)}"
+    @test_file           = File.join(Dir.tmpdir, path)
+    @workbook   = Spreadsheet::WriteExcel.new(@test_file)
+    @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
+
+  def teardown
+    @workbook.close
+    File.unlink(@test_file) if FileTest.exist?(@test_file)
+  end
+
+end

data/test/test_27_autofilter.rb

@@ -0,0 +1,144 @@
+##########################################################################
+# test_27_autofilter.rb
+#
+# Tests for the token extraction method used to parse autofilter expressions.
+#
+# 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
+#
+#########################################################################
+$LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
+
+require "test/unit"
+require 'writeexcel'
+
+class TC_27_autofilter < Test::Unit::TestCase
+
+  def test_27_autofilter
+    @tests.each do |test|
+      expression = test[0]
+      expected   = test[1]
+      result     = @worksheet.extract_filter_tokens(expression)
+  
+      testname   = expression || 'none'
+      
+      assert_equal(expected, result, testname)
+    end
+  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
+
+  def setup
+    t = Time.now.strftime("%Y%m%d")
+    path = "temp#{t}-#{$$}-#{rand(0x100000000).to_s(36)}"
+    @test_file           = File.join(Dir.tmpdir, path)
+    @workbook   = Spreadsheet::WriteExcel.new(@test_file)
+    @worksheet  = @workbook.add_worksheet
+    @tests = [
+    [
+        nil,
+        [],
+    ],
+
+    [
+        '',
+        [],
+    ],
+
+    [
+        '0 <  2000',
+        [0, '<', 2000],
+    ],
+
+    [
+        'x <  2000',
+        ['x', '<', 2000],
+    ],
+
+    [
+        'x >  2000',
+        ['x', '>', 2000],
+    ],
+
+    [
+        'x == 2000',
+        ['x', '==', 2000],
+    ],
+
+    [
+        'x >  2000 and x <  5000',
+        ['x', '>',  2000, 'and', 'x', '<', 5000],
+    ],
+
+    [
+        'x = "foo"',
+        ['x', '=', 'foo'],
+    ],
+
+    [
+        'x = foo',
+        ['x', '=', 'foo'],
+    ],
+
+    [
+        'x = "foo bar"',
+        ['x', '=', 'foo bar'],
+    ],
+
+    [
+        'x = "foo "" bar"',
+        ['x', '=', 'foo " bar'],
+    ],
+
+    [
+        'x = "foo bar" or x = "bar foo"',
+        ['x', '=', 'foo bar', 'or', 'x', '=', 'bar foo'],
+    ],
+
+    [
+        'x = "foo "" bar" or x = "bar "" foo"',
+        ['x', '=', 'foo " bar', 'or', 'x', '=', 'bar " foo'],
+    ],
+
+    [
+        'x = """"""""',
+        ['x', '=', '"""'],
+    ],
+
+    [
+        'x = Blanks',
+        ['x', '=', 'Blanks'],
+    ],
+
+    [
+        'x = NonBlanks',
+        ['x', '=', 'NonBlanks'],
+    ],
+
+    [
+        'top 10 %',
+        ['top', 10, '%'],
+    ],
+
+    [
+        'top 10 items',
+        ['top', 10, 'items'],
+    ],
+
+      ]
+  end
+
+  def teardown
+    @workbook.close
+    File.unlink(@test_file) if FileTest.exist?(@test_file)
+  end
+
+end