writeexcel 0.1.0

data/test/test_42_set_properties.rb

@@ -0,0 +1,419 @@
+##########################################################################
+# test_42_set_properties.rb
+#
+# Tests for Workbook property_sets() interface.
+#
+# 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 'rubygems'
+require 'writeexcel'
+
+class TC_set_properties < Test::Unit::TestCase
+
+  def test_same_as_previous_plus_creation_date
+    test_file = 'temp_test_file.xls'
+    smiley = '☺'   # chr 0x263A;    in perl
+    
+    workbook  = Spreadsheet::WriteExcel.new(test_file)
+    worksheet = workbook.add_worksheet
+
+    ###############################################################################
+    #
+    # Test 1. _get_property_set_codepage() for default latin1 strings.
+    #
+    params ={
+                    :title       => 'Title',
+                    :subject     => 'Subject',
+                    :author      => 'Author',
+                    :keywords    => 'Keywords',
+                    :comments    => 'Comments',
+                    :last_author => 'Username',
+            }
+
+    strings = %w(title subject author keywords comments last_author)
+
+    caption    = " \t_get_property_set_codepage('latin1')"
+    target     = 0x04E4
+    
+    result     = workbook.get_property_set_codepage(params, strings)
+    assert_equal(target, result, caption)
+
+    ###############################################################################
+    #
+    # Test 2. _get_property_set_codepage() for manual utf8 strings.
+    #
+    
+    params =   {
+                    :title       => 'Title',
+                    :subject     => 'Subject',
+                    :author      => 'Author',
+                    :keywords    => 'Keywords',
+                    :comments    => 'Comments',
+                    :last_author => 'Username',
+                    :utf8        => 1,
+            }
+    
+    strings = %w(title subject author keywords comments last_author)
+
+    caption    = " \t_get_property_set_codepage('utf8')"
+    target     = 0xFDE9
+
+    result     = workbook.get_property_set_codepage(params, strings)
+    assert_equal(target, result, caption)
+
+    ###############################################################################
+    #
+    # Test 3. _get_property_set_codepage() for perl 5.8 utf8 strings.
+    #
+    params =   {
+                    :title       => 'Title' + smiley,
+                    :subject     => 'Subject',
+                    :author      => 'Author',
+                    :keywords    => 'Keywords',
+                    :comments    => 'Comments',
+                    :last_author => 'Username',
+                }
+    
+    strings = %w(title subject author keywords comments last_author)
+
+    caption    = " \t_get_property_set_codepage('utf8')";
+    target     = 0xFDE9;
+    
+    result     = workbook.get_property_set_codepage(params, strings)
+    assert_equal(target, result, caption)
+
+  ###############################################################################
+  #
+  # Note, the "created => nil" parameters in some of the following tests is
+  # used to avoid adding the default date to the property sets.
+  
+  
+  ###############################################################################
+  #
+  # Test 4. Codepage only.
+  #
+  
+  workbook.set_properties(
+                              :created     => nil
+                           )
+  
+  caption    = " \tset_properties(codepage)"
+  target     = %w(
+                              FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                              00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                              F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                              18 00 00 00 01 00 00 00 01 00 00 00 10 00 00 00
+                              02 00 00 00 E4 04 00 00
+                 ).join(' ')
+  
+  result     = unpack_record( workbook.summary )
+  assert_equal(target, result, caption)
+
+  ###############################################################################
+  #
+  # Test 5. Same as previous + Title.
+  #
+  
+  workbook.set_properties(
+                              :title       => 'Title',
+                              :created     => nil
+                           )
+  
+  caption    = " \tset_properties('Title')"
+  target     = %w(
+                              FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                              00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                              F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                              30 00 00 00 02 00 00 00 01 00 00 00 18 00 00 00
+                              02 00 00 00 20 00 00 00 02 00 00 00 E4 04 00 00
+                              1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
+                ).join(' ')
+  
+  result     = unpack_record( workbook.summary )
+  assert_equal(target, result, caption)
+
+  ###############################################################################
+  #
+  # Test 6. Same as previous + Subject.
+  #
+  
+  workbook.set_properties(
+                              :title       => 'Title',
+                              :subject     => 'Subject',
+                              :created     => nil
+                           )
+  
+  caption    = " \tset_properties('+ Subject')"
+  target     = %w(
+                              FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                              00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                              F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                              48 00 00 00 03 00 00 00 01 00 00 00 20 00 00 00
+                              02 00 00 00 28 00 00 00 03 00 00 00 38 00 00 00
+                              02 00 00 00 E4 04 00 00 1E 00 00 00 06 00 00 00
+                              54 69 74 6C 65 00 00 00 1E 00 00 00 08 00 00 00
+                              53 75 62 6A 65 63 74 00
+                 ).join(' ')
+  
+  result     = unpack_record( workbook.summary )
+  assert_equal(target, result, caption)
+
+  ###############################################################################
+  #
+  # Test 7. Same as previous + Author.
+  #
+  
+  workbook.set_properties(
+                              :title       => 'Title',
+                              :subject     => 'Subject',
+                              :author      => 'Author',
+                              :created     => nil
+                           )
+  
+  caption    = " \tset_properties('+ Author')"
+  target     = %w(
+                              FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                              00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                              F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                              60 00 00 00 04 00 00 00 01 00 00 00 28 00 00 00
+                              02 00 00 00 30 00 00 00 03 00 00 00 40 00 00 00
+                              04 00 00 00 50 00 00 00 02 00 00 00 E4 04 00 00
+                              1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
+                              1E 00 00 00 08 00 00 00 53 75 62 6A 65 63 74 00
+                              1E 00 00 00 07 00 00 00 41 75 74 68 6F 72 00 00
+                 ).join(' ')
+  
+  result     = unpack_record( workbook.summary )
+  assert_equal(target, result, caption)
+
+  ###############################################################################
+  #
+  # Test 8. Same as previous + Keywords.
+  #
+  
+  workbook.set_properties(
+                              :title       => 'Title',
+                              :subject     => 'Subject',
+                              :author      => 'Author',
+                              :keywords    => 'Keywords',
+                              :created     => nil
+                           )
+  
+  caption    = " \tset_properties('+ Keywords')"
+  target     = %w(
+                              FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                              00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                              F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                              7C 00 00 00 05 00 00 00 01 00 00 00 30 00 00 00
+                              02 00 00 00 38 00 00 00 03 00 00 00 48 00 00 00
+                              04 00 00 00 58 00 00 00 05 00 00 00 68 00 00 00
+                              02 00 00 00 E4 04 00 00 1E 00 00 00 06 00 00 00
+                              54 69 74 6C 65 00 00 00 1E 00 00 00 08 00 00 00
+                              53 75 62 6A 65 63 74 00 1E 00 00 00 07 00 00 00
+                              41 75 74 68 6F 72 00 00 1E 00 00 00 09 00 00 00
+                              4B 65 79 77 6F 72 64 73 00 00 00 00
+                 ).join(' ')
+  
+  result     = unpack_record( workbook.summary )
+  assert_equal(target, result, caption)
+
+  ###############################################################################
+  #
+  # Test 9. Same as previous + Comments.
+  #
+  
+  workbook.set_properties(
+                              :title       => 'Title',
+                              :subject     => 'Subject',
+                              :author      => 'Author',
+                              :keywords    => 'Keywords',
+                              :comments    => 'Comments',
+                              :created     => nil
+                           )
+  
+  caption    = " \tset_properties('+ Comments')"
+  target     = %w(
+                              FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                              00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                              F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                              98 00 00 00 06 00 00 00 01 00 00 00 38 00 00 00
+                              02 00 00 00 40 00 00 00 03 00 00 00 50 00 00 00
+                              04 00 00 00 60 00 00 00 05 00 00 00 70 00 00 00
+                              06 00 00 00 84 00 00 00 02 00 00 00 E4 04 00 00
+                              1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
+                              1E 00 00 00 08 00 00 00 53 75 62 6A 65 63 74 00
+                              1E 00 00 00 07 00 00 00 41 75 74 68 6F 72 00 00
+                              1E 00 00 00 09 00 00 00 4B 65 79 77 6F 72 64 73
+                              00 00 00 00 1E 00 00 00 09 00 00 00 43 6F 6D 6D
+                              65 6E 74 73 00 00 00 00
+                 ).join(' ')
+  
+  result     = unpack_record( workbook.summary )
+  assert_equal(target, result, caption)
+
+  ###############################################################################
+  #
+  # Test 10. Same as previous + Last author.
+  #
+
+  workbook.set_properties(
+                              :title       => 'Title',
+                              :subject     => 'Subject',
+                              :author      => 'Author',
+                              :keywords    => 'Keywords',
+                              :comments    => 'Comments',
+                              :last_author => 'Username',
+                              :created     => nil
+                           )
+  
+  caption    = " \tset_properties('+ Last author')"
+  target     = %w(
+                            FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                            00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                            F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                            B4 00 00 00 07 00 00 00 01 00 00 00 40 00 00 00
+                            02 00 00 00 48 00 00 00 03 00 00 00 58 00 00 00
+                            04 00 00 00 68 00 00 00 05 00 00 00 78 00 00 00
+                            06 00 00 00 8C 00 00 00 08 00 00 00 A0 00 00 00
+                            02 00 00 00 E4 04 00 00 1E 00 00 00 06 00 00 00
+                            54 69 74 6C 65 00 00 00 1E 00 00 00 08 00 00 00
+                            53 75 62 6A 65 63 74 00 1E 00 00 00 07 00 00 00
+                            41 75 74 68 6F 72 00 00 1E 00 00 00 09 00 00 00
+                            4B 65 79 77 6F 72 64 73 00 00 00 00 1E 00 00 00
+                            09 00 00 00 43 6F 6D 6D 65 6E 74 73 00 00 00 00
+                            1E 00 00 00 09 00 00 00 55 73 65 72 6E 61 6D 65
+                            00 00 00 00
+                 ).join(' ')
+  
+  result     = unpack_record( workbook.summary )
+  assert_equal(target, result, caption)
+
+  ###############################################################################
+  #
+  # Test 11. Same as previous + Creation date.
+  #
+
+  # Aug 19 23:20:13 2008
+  # $sec,$min,$hour,$mday,$mon,$year
+  # We normalise the time using timegm() so that the tests don't fail due to
+  # different timezones.
+
+  filetime   = Time.gm(2008,8,19,23,20,13)
+  workbook.set_properties(
+                              :title       => 'Title',
+                              :subject     => 'Subject',
+                              :author      => 'Author',
+                              :keywords    => 'Keywords',
+                              :comments    => 'Comments',
+                              :last_author => 'Username',
+                              :created     => filetime
+                           )
+  
+  caption    = " \tset_properties('+ Creation date')"
+  target     = %w(
+                            FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                            00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                            F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                            C8 00 00 00 08 00 00 00 01 00 00 00 48 00 00 00
+                            02 00 00 00 50 00 00 00 03 00 00 00 60 00 00 00
+                            04 00 00 00 70 00 00 00 05 00 00 00 80 00 00 00
+                            06 00 00 00 94 00 00 00 08 00 00 00 A8 00 00 00
+                            0C 00 00 00 BC 00 00 00 02 00 00 00 E4 04 00 00
+                            1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
+                            1E 00 00 00 08 00 00 00 53 75 62 6A 65 63 74 00
+                            1E 00 00 00 07 00 00 00 41 75 74 68 6F 72 00 00
+                            1E 00 00 00 09 00 00 00 4B 65 79 77 6F 72 64 73
+                            00 00 00 00 1E 00 00 00 09 00 00 00 43 6F 6D 6D
+                            65 6E 74 73 00 00 00 00 1E 00 00 00 09 00 00 00
+                            55 73 65 72 6E 61 6D 65 00 00 00 00 40 00 00 00
+                            80 74 89 21 52 02 C9 01
+                 ).join(' ')
+  
+  result     = unpack_record( workbook.summary )
+  assert_equal(target, result, caption)
+
+  ###############################################################################
+  #
+  # Test 12. Same as previous. Date set at the workbook level.
+  #
+  
+  # Wed Aug 20 00:20:13 2008
+  # $sec,$min,$hour,$mday,$mon,$year
+  # We normalise the time using timegm() so that the tests don't fail due to
+  # different timezones.
+  workbook.localtime  = Time.gm(2008,8,19,23,20,13)
+  
+  workbook.set_properties(
+                              :title       => 'Title',
+                              :subject     => 'Subject',
+                              :author      => 'Author',
+                              :keywords    => 'Keywords',
+                              :comments    => 'Comments',
+                              :last_author => 'Username'
+                           )
+  
+  caption    = " \tset_properties('+ Creation date')"
+  target     = %w(
+                              FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                              00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                              F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                              C8 00 00 00 08 00 00 00 01 00 00 00 48 00 00 00
+                              02 00 00 00 50 00 00 00 03 00 00 00 60 00 00 00
+                              04 00 00 00 70 00 00 00 05 00 00 00 80 00 00 00
+                              06 00 00 00 94 00 00 00 08 00 00 00 A8 00 00 00
+                              0C 00 00 00 BC 00 00 00 02 00 00 00 E4 04 00 00
+                              1E 00 00 00 06 00 00 00 54 69 74 6C 65 00 00 00
+                              1E 00 00 00 08 00 00 00 53 75 62 6A 65 63 74 00
+                              1E 00 00 00 07 00 00 00 41 75 74 68 6F 72 00 00
+                              1E 00 00 00 09 00 00 00 4B 65 79 77 6F 72 64 73
+                              00 00 00 00 1E 00 00 00 09 00 00 00 43 6F 6D 6D
+                              65 6E 74 73 00 00 00 00 1E 00 00 00 09 00 00 00
+                              55 73 65 72 6E 61 6D 65 00 00 00 00 40 00 00 00
+                              80 74 89 21 52 02 C9 01
+                 ).join(' ')
+  
+  result     = unpack_record( workbook.summary )
+  assert_equal(target, result, caption)
+
+  ###############################################################################
+  #
+  # Test 14. UTF-8 string used.
+  #
+  
+  workbook.set_properties(
+                              :title       => 'Title' + smiley,
+                              :created     => nil
+                           )
+  
+  caption    = " \tset_properties(utf8)"
+  target     = %w(
+                              FE FF 00 00 05 01 02 00 00 00 00 00 00 00 00 00
+                              00 00 00 00 00 00 00 00 01 00 00 00 E0 85 9F F2
+                              F9 4F 68 10 AB 91 08 00 2B 27 B3 D9 30 00 00 00
+                              34 00 00 00 02 00 00 00 01 00 00 00 18 00 00 00
+                              02 00 00 00 20 00 00 00 02 00 00 00 E9 FD 00 00
+                              1E 00 00 00 09 00 00 00 54 69 74 6C 65 E2 98 BA
+                              00 00 00 00
+                 ).join(' ')
+  
+  result     = unpack_record( workbook.summary )
+  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/ts_all.rb

@@ -0,0 +1,34 @@
+$LOAD_PATH.unshift(Dir.pwd)
+$LOAD_PATH.unshift(Dir.pwd + "/test")
+
+require "tc_biff"
+require "tc_ole"
+require "tc_workbook"
+require "tc_worksheet"
+require "tc_format"
+require "tc_formula"
+require 'tc_chart'
+require "test_00_IEEE_double"
+require 'test_01_add_worksheet'
+require 'test_02_merge_formats'
+require 'test_04_dimensions'
+require 'test_05_rows'
+require 'test_06_extsst'
+require 'test_11_date_time'
+require 'test_12_date_only'
+require 'test_13_date_seconds'
+require 'test_21_escher'
+require 'test_22_mso_drawing_group'
+require 'test_23_note'
+require 'test_24_txo'
+require 'test_26_autofilter'
+require 'test_27_autofilter'
+require 'test_28_autofilter'
+require 'test_29_process_jpg'
+require 'test_30_validation_dval'
+require 'test_31_validation_dv_strings'
+require 'test_32_validation_dv_formula'
+require 'test_40_property_types'
+require 'test_41_properties'
+require 'test_42_set_properties'
+require 'tc_example_match'

metadata

@@ -0,0 +1,170 @@
+--- !ruby/object:Gem::Specification 
+name: writeexcel
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+platform: ruby
+authors: 
+- Hideo Nakamura
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-03-25 00:00:00 +09:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: ruby-ole
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.2.8.2
+    version: 
+description: 
+email: cxn03651@msj.biglobe.ne.jp
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- examples/merge5.rb
+- examples/header.rb
+- examples/regions.rb
+- examples/merge2.rb
+- examples/formats.rb
+- examples/stocks.rb
+- examples/images.rb
+- examples/hidden.rb
+- examples/date_time.rb
+- examples/a_simple.rb
+- examples/merge3.rb
+- examples/merge1.rb
+- examples/autofilters.rb
+- examples/demo.rb
+- examples/hyperlink.rb
+- examples/diag_border.rb
+- examples/protection.rb
+- examples/copyformat.rb
+- examples/republic.png
+- examples/stats.rb
+- examples/tab_colors.rb
+- examples/merge4.rb
+- examples/data_validate.rb
+- examples/repeat.rb
+- lib/writeexcel.rb
+- lib/writeexcel/olewriter.rb
+- lib/writeexcel/properties.rb
+- lib/writeexcel/chart.rb
+- lib/writeexcel/formula.rb
+- lib/writeexcel/format.rb
+- lib/writeexcel/biffwriter.rb
+- lib/writeexcel/workbook.rb
+- lib/writeexcel/worksheet.rb
+- lib/writeexcel/excelformulaparser.rb
+- README
+- test/tc_all.rb
+- test/tc_chart.rb
+- test/tc_ole.rb
+- test/test_40_property_types.rb
+- test/tc_formula.rb
+- test/test_00_IEEE_double.rb
+- test/test_32_validation_dv_formula.rb
+- test/test_11_date_time.rb
+- test/test_29_process_jpg.rb
+- test/ts_all.rb
+- test/test_24_txo.rb
+- test/tc_worksheet.rb
+- test/test_22_mso_drawing_group.rb
+- test/perl_output
+- test/test_41_properties.rb
+- test/test_27_autofilter.rb
+- test/tc_biff.rb
+- test/test_26_autofilter.rb
+- test/test_12_date_only.rb
+- test/test_23_note.rb
+- test/test_30_validation_dval.rb
+- test/tc_format.rb
+- test/test_31_validation_dv_strings.rb
+- test/test_28_autofilter.rb
+- test/test_01_add_worksheet.rb
+- test/test_04_dimensions.rb
+- test/republic.png
+- test/test_42_set_properties.rb
+- test/test_13_date_seconds.rb
+- test/tc_example_match.rb
+- test/test_02_merge_formats.rb
+- test/tc_workbook.rb
+- test/test_05_rows.rb
+- test/test_06_extsst.rb
+- test/test_21_escher.rb
+- test/perl_output/ws_store_colinfo
+- test/perl_output/ws_store_filtermode
+- test/perl_output/headers.xls
+- test/perl_output/stats.xls
+- test/perl_output/demo.xls
+- test/perl_output/file_font_key
+- test/perl_output/hyperlink.xls
+- test/perl_output/a_simple.xls
+- test/perl_output/f_font_key
+- test/perl_output/f_font_biff
+- test/perl_output/merge5.xls
+- test/perl_output/ws_store_filtermode_on
+- test/perl_output/regions.xls
+- test/perl_output/hidden.xls
+- test/perl_output/ws_store_selection
+- test/perl_output/images.xls
+- test/perl_output/unicode_cyrillic.xls
+- test/perl_output/workbook2.xls
+- test/perl_output/merge1.xls
+- test/perl_output/ws_store_filtermode_off
+- test/perl_output/data_validate.xls
+- test/perl_output/merge4.xls
+- test/perl_output/date_time.xls
+- test/perl_output/ws_store_dimensions
+- test/perl_output/ole_write_header
+- test/perl_output/biff_add_continue_testdata
+- test/perl_output/ws_colinfo
+- test/perl_output/ws_store_window2
+- test/perl_output/merge3.xls
+- test/perl_output/file_xf_biff
+- test/perl_output/workbook1.xls
+- test/perl_output/diag_border.xls
+- test/perl_output/README
+- test/perl_output/file_font_biff
+- test/perl_output/merge2.xls
+- test/perl_output/protection.xls
+- test/perl_output/tab_colors.xls
+- test/perl_output/stocks.xls
+- test/perl_output/f_xf_biff
+has_rdoc: false
+homepage: 
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "1.8"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.1
+signing_key: 
+specification_version: 2
+summary: Write to a cross-platform Excel binary file.
+test_files: 
+- test/ts_all.rb