writeexcel 0.1.0 → 0.3.0

data/test/tc_formula.rb

@@ -1,63 +1,63 @@
-$LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
-
-require "test/unit"
-require "writeexcel"
-
-class TC_Formula < Test::Unit::TestCase
-
-  def setup
-    @formula = Formula.new(0)
-  end
-
-  def test_scan
-    # scan must return array of token info
-    string01 = '1 + 2 * LEN("String")'
-    expected01 = [
-      [:NUMBER, '1'],
-      ['+',     '+'],
-      [:NUMBER, '2'],
-      ['*',     '*'],
-      [:FUNC,   'LEN'],
-      ['(',     '('],
-      [:STRING, '"String"'],
-      [')',     ')'],
-      [:EOL,    nil]
-    ]
-    assert_kind_of(Array, @formula.scan(string01))
-    assert_equal(expected01, @formula.scan(string01))
-
-    string02 = 'IF(A1>=0,SIN(0),COS(90))'
-    expected02 = [
-      [:FUNC,   'IF'],
-      ['(',     '('],
-      [:REF2D,  'A1'],
-      [:GE,     '>='],
-      [:NUMBER, '0'],
-      [',',     ','],
-      [:FUNC,   'SIN'],
-      ['(',     '('],
-      [:NUMBER, '0'],
-      [')',     ')'],
-      [',',     ','],
-      [:FUNC,   'COS'],
-      ['(',     '('],
-      [:NUMBER, '90'],
-      [')',     ')'],
-      [')',     ')'],
-      [:EOL,    nil]
-    ]
-    assert_kind_of(Array, @formula.scan(string02))
-    assert_equal(expected02, @formula.scan(string02))
-  end
-
-  def test_reverse
-    testcase = [
-      [ [0,1,2,3,4], [0,[1,[2,3,[4]]]]      ],
-      [ [0,1,2,3,4,5], [[0,1,[2,3]],[4,5]]  ]
-    ]
-    testcase.each do |t|
-      assert_equal(t[0], @formula.reverse(t[1]))
-    end
-  end
-
-end
+$LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
+
+require "test/unit"
+require "writeexcel"
+
+class TC_Formula < Test::Unit::TestCase
+
+  def setup
+    @formula = Formula.new(0)
+  end
+
+  def test_scan
+    # scan must return array of token info
+    string01 = '1 + 2 * LEN("String")'
+    expected01 = [
+      [:NUMBER, '1'],
+      ['+',     '+'],
+      [:NUMBER, '2'],
+      ['*',     '*'],
+      [:FUNC,   'LEN'],
+      ['(',     '('],
+      [:STRING, '"String"'],
+      [')',     ')'],
+      [:EOL,    nil]
+    ]
+    assert_kind_of(Array, @formula.scan(string01))
+    assert_equal(expected01, @formula.scan(string01))
+
+    string02 = 'IF(A1>=0,SIN(0),COS(90))'
+    expected02 = [
+      [:FUNC,   'IF'],
+      ['(',     '('],
+      [:REF2D,  'A1'],
+      [:GE,     '>='],
+      [:NUMBER, '0'],
+      [',',     ','],
+      [:FUNC,   'SIN'],
+      ['(',     '('],
+      [:NUMBER, '0'],
+      [')',     ')'],
+      [',',     ','],
+      [:FUNC,   'COS'],
+      ['(',     '('],
+      [:NUMBER, '90'],
+      [')',     ')'],
+      [')',     ')'],
+      [:EOL,    nil]
+    ]
+    assert_kind_of(Array, @formula.scan(string02))
+    assert_equal(expected02, @formula.scan(string02))
+  end
+
+  def test_reverse
+    testcase = [
+      [ [0,1,2,3,4], [0,[1,[2,3,[4]]]]      ],
+      [ [0,1,2,3,4,5], [[0,1,[2,3]],[4,5]]  ]
+    ]
+    testcase.each do |t|
+      assert_equal(t[0], @formula.reverse(t[1]))
+    end
+  end
+
+end

data/test/tc_ole.rb

@@ -1,110 +1,110 @@
-$LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
-
-require "test/unit"
-require "writeexcel"
-
-class TC_OLE < Test::Unit::TestCase
-
-  def setup
-    t = Time.now.strftime("%Y%m%d")
-    path = "temp#{t}-#{$$}-#{rand(0x100000000).to_s(36)}"
-    @file  = File.join(Dir.tmpdir, path)
-    @ole  = OLEWriter.new(@file)
-  end
-
-  def test_constructor
-    assert_kind_of(OLEWriter, @ole)
-  end
-
-  def test_constants
-    assert_equal(7087104, OLEWriter::MaxSize)
-    assert_equal(4096, OLEWriter::BlockSize)
-    assert_equal(512, OLEWriter::BlockDiv)
-    assert_equal(127, OLEWriter::ListBlocks)
-  end
-
-  def test_calculate_sizes
-    assert_respond_to(@ole, :calculate_sizes)
-    assert_nothing_raised{ @ole.calculate_sizes }
-    assert_equal(0, @ole.big_blocks)
-    assert_equal(1, @ole.list_blocks)
-    assert_equal(0, @ole.root_start)
-  end
-
-  def test_set_size_too_big
-    assert(!@ole.set_size(999999999))
-  end
-
-  def test_book_size_large
-    assert_nothing_raised{ @ole.set_size(8192) }
-    assert_equal(8192, @ole.book_size)
-  end
-
-  def test_book_size_small
-    assert_nothing_raised{ @ole.set_size(2048) }
-    assert_equal(4096, @ole.book_size)
-  end
-
-  def test_biff_size
-    assert_nothing_raised{ @ole.set_size(2048) }
-    assert_equal(2048, @ole.biff_size)
-  end
-
-  def test_size_allowed
-    assert_nothing_raised{ @ole.set_size }
-    assert_equal(true, @ole.size_allowed)
-  end
-
-  def test_big_block_size_default
-    assert_nothing_raised{ @ole.set_size }
-    assert_nothing_raised{ @ole.calculate_sizes }
-    assert_equal(8, @ole.big_blocks, "Bad big block size")
-  end
-
-  def test_big_block_size_rounded_up
-    assert_nothing_raised{ @ole.set_size(4099) }
-    assert_nothing_raised{ @ole.calculate_sizes }
-    assert_equal(9, @ole.big_blocks, "Bad big block size")
-  end
-
-  def test_list_block_size
-    assert_nothing_raised{ @ole.set_size }
-    assert_nothing_raised{ @ole.calculate_sizes }
-    assert_equal(1, @ole.list_blocks, "Bad list block size")
-  end
-
-  def test_root_start_size_default
-    assert_nothing_raised{ @ole.set_size }
-    assert_nothing_raised{ @ole.calculate_sizes }
-    assert_equal(8, @ole.big_blocks, "Bad root start size")
-  end
-
-  def test_root_start_size_rounded_up
-    assert_nothing_raised{ @ole.set_size(4099) }
-    assert_nothing_raised{ @ole.calculate_sizes }
-    assert_equal(9, @ole.big_blocks, "Bad root start size")
-  end
-
-  def test_write_header
-    assert_nothing_raised{ @ole.write_header }
-    #assert_nothing_raised{ @ole.close }
-    #assert_equal(512, File.size(@file))
-  end
-
-  def test_write_big_block_depot
-    assert_nothing_raised{ @ole.write_big_block_depot }
-    #assert_nothing_raised{ @ole.close }
-    #assert_equal(8, File.size(@file))
-  end
-
-  def test_write_property_storage_size
-    assert_nothing_raised{ @ole.write_property_storage }
-    #assert_nothing_raised{ @ole.close }
-    #assert_equal(512, File.size(@file))
-  end
-
-  def teardown
-    @ole.close rescue nil
-    File.unlink(@file) if File.exists?(@file)
-  end
-end
+$LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
+
+require "test/unit"
+require "writeexcel"
+
+class TC_OLE < Test::Unit::TestCase
+
+  def setup
+    t = Time.now.strftime("%Y%m%d")
+    path = "temp#{t}-#{$$}-#{rand(0x100000000).to_s(36)}"
+    @file  = File.join(Dir.tmpdir, path)
+    @ole  = OLEWriter.new(@file)
+  end
+
+  def test_constructor
+    assert_kind_of(OLEWriter, @ole)
+  end
+
+  def test_constants
+    assert_equal(7087104, OLEWriter::MaxSize)
+    assert_equal(4096, OLEWriter::BlockSize)
+    assert_equal(512, OLEWriter::BlockDiv)
+    assert_equal(127, OLEWriter::ListBlocks)
+  end
+
+  def test_calculate_sizes
+    assert_respond_to(@ole, :calculate_sizes)
+    assert_nothing_raised{ @ole.calculate_sizes }
+    assert_equal(0, @ole.big_blocks)
+    assert_equal(1, @ole.list_blocks)
+    assert_equal(0, @ole.root_start)
+  end
+
+  def test_set_size_too_big
+    assert(!@ole.set_size(999999999))
+  end
+
+  def test_book_size_large
+    assert_nothing_raised{ @ole.set_size(8192) }
+    assert_equal(8192, @ole.book_size)
+  end
+
+  def test_book_size_small
+    assert_nothing_raised{ @ole.set_size(2048) }
+    assert_equal(4096, @ole.book_size)
+  end
+
+  def test_biff_size
+    assert_nothing_raised{ @ole.set_size(2048) }
+    assert_equal(2048, @ole.biff_size)
+  end
+
+  def test_size_allowed
+    assert_nothing_raised{ @ole.set_size }
+    assert_equal(true, @ole.size_allowed)
+  end
+
+  def test_big_block_size_default
+    assert_nothing_raised{ @ole.set_size }
+    assert_nothing_raised{ @ole.calculate_sizes }
+    assert_equal(8, @ole.big_blocks, "Bad big block size")
+  end
+
+  def test_big_block_size_rounded_up
+    assert_nothing_raised{ @ole.set_size(4099) }
+    assert_nothing_raised{ @ole.calculate_sizes }
+    assert_equal(9, @ole.big_blocks, "Bad big block size")
+  end
+
+  def test_list_block_size
+    assert_nothing_raised{ @ole.set_size }
+    assert_nothing_raised{ @ole.calculate_sizes }
+    assert_equal(1, @ole.list_blocks, "Bad list block size")
+  end
+
+  def test_root_start_size_default
+    assert_nothing_raised{ @ole.set_size }
+    assert_nothing_raised{ @ole.calculate_sizes }
+    assert_equal(8, @ole.big_blocks, "Bad root start size")
+  end
+
+  def test_root_start_size_rounded_up
+    assert_nothing_raised{ @ole.set_size(4099) }
+    assert_nothing_raised{ @ole.calculate_sizes }
+    assert_equal(9, @ole.big_blocks, "Bad root start size")
+  end
+
+  def test_write_header
+    assert_nothing_raised{ @ole.write_header }
+    #assert_nothing_raised{ @ole.close }
+    #assert_equal(512, File.size(@file))
+  end
+
+  def test_write_big_block_depot
+    assert_nothing_raised{ @ole.write_big_block_depot }
+    #assert_nothing_raised{ @ole.close }
+    #assert_equal(8, File.size(@file))
+  end
+
+  def test_write_property_storage_size
+    assert_nothing_raised{ @ole.write_property_storage }
+    #assert_nothing_raised{ @ole.close }
+    #assert_equal(512, File.size(@file))
+  end
+
+  def teardown
+    @ole.close rescue nil
+    File.unlink(@file) if File.exists?(@file)
+  end
+end

data/test/tc_storage_lite.rb

@@ -0,0 +1,149 @@
+$LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
+
+require "test/unit"
+require "writeexcel/storage_lite"
+require 'stringio'
+
+=begin
+  def compare_file(expected, target)
+    fh_e = File.open(expected, "r")
+    fh_t = File.open(target, "r")
+    while true do
+      e1 = fh_e.read(1)
+      t1 = fh_t.read(1)
+      if e1.nil?
+        assert( t1.nil?, "#{expexted} is EOF but #{target} is NOT EOF.")
+        break
+      elsif t1.nil?
+        assert( e1.nil?, '#{target} is EOF but #{expected} is NOT EOF.')
+        break
+      end
+      assert_equal(e1, t1, sprintf(" #{expected} = '%s' but #{target} = '%s'", e1, t1))
+      break
+    end
+    fh_e.close
+    fh_t.close
+  end
+=end
+
+class TC_OLEStorageLite < Test::Unit::TestCase
+  TEST_DIR    = File.expand_path(File.dirname(__FILE__))
+  PERL_OUTDIR = File.join(TEST_DIR, 'perl_output')
+  EXCEL_OUTDIR = File.join(TEST_DIR, 'excelfile')
+
+  def setup
+    @ole = OLEStorageLite.new
+  end
+
+  def teardown
+  end
+
+  def test_olestoragelite_new
+    ole = OLEStorageLite.new
+    assert_nil(ole.file)
+
+    io = StringIO.new
+    ole = OLEStorageLite.new(io)
+    assert_equal(io, ole.file)
+
+    file = 'test.ole'
+    ole = OLEStorageLite.new(file)
+    assert_equal(file, ole.file)
+
+  end
+
+  def test_asc2ucs
+    result = @ole.asc2ucs('Root Entry')
+    target = %w(
+        52 00 6F 00 6F 00 74 00 20 00 45 00 6E 00 74 00 72 00 79 00
+      ).join(" ")
+    assert_equal(target, unpack_record(result))
+  end
+
+  def test_ucs2asc
+    strings = [
+        'Root Entry',
+        ''
+      ]
+    strings.each do |str|
+      result = @ole.ucs2asc(@ole.asc2ucs(str))
+      assert_equal(str, result)
+    end
+  end
+
+  def unpack_record(data)
+    data.unpack('C*').map! {|c| sprintf("%02X", c) }.join(' ')
+  end
+
+end
+
+class TC_OLEStorageLitePPSFile < Test::Unit::TestCase
+  def setup
+  end
+
+  def teardown
+  end
+
+  def test_constructor
+    data = [
+        { :name => 'name', :data => 'data' },
+        { :name => '',     :data => 'data' },
+        { :name => 'name', :data => ''     },
+        { :name => '',     :data => ''     },
+      ]
+    data.each do |d|
+      olefile = OLEStorageLitePPSFile.new(d[:name])
+      assert_equal(d[:name], olefile.name)
+    end
+    data.each do |d|
+      olefile = OLEStorageLitePPSFile.new(d[:name], d[:data])
+      assert_equal(d[:name], olefile.name)
+      assert_equal(d[:data], olefile.data)
+    end
+  end
+
+  def test_append_no_file
+    olefile = OLEStorageLitePPSFile.new('name')
+    assert_equal('', olefile.data)
+
+    data = [ "data", "\r\n", "\r", "\n" ]
+    data.each do |d|
+      olefile = OLEStorageLitePPSFile.new('name')
+      olefile.append(d)
+      assert_equal(d, olefile.data)
+    end
+  end
+
+  def test_append_tempfile
+    data = [ "data", "\r\n", "\r", "\n" ]
+    data.each do |d|
+      olefile = OLEStorageLitePPSFile.new('name')
+      olefile.set_file
+      pps_file = olefile.pps_file
+
+      olefile.append(d)
+      pps_file.open
+      pps_file.binmode
+      assert_equal(d, pps_file.read)
+    end
+  end
+
+  def test_append_stringio
+    data = [ "data", "\r\n", "\r", "\n" ]
+    data.each do |d|
+      sio = StringIO.new
+      olefile = OLEStorageLitePPSFile.new('name')
+      olefile.set_file(sio)
+      pps_file = olefile.pps_file
+
+      olefile.append(d)
+      pps_file.rewind
+      assert_equal(d, pps_file.read)
+    end
+  end
+
+  def unpack_record(data)
+    data.unpack('C*').map! {|c| sprintf("%02X", c) }.join(' ')
+  end
+
+end