writeexcel 0.1.0

data/lib/writeexcel.rb

@@ -0,0 +1,18 @@
+###############################################################################
+#
+# WriteExcel.
+#
+# Spreadsheet::WriteExcel - Write to a cross-platform Excel binary file.
+#
+# Copyright 2000-2008, John McNamara, jmcnamara@cpan.org
+#
+# original written in Perl by John McNamara
+# converted to Ruby by Hideo Nakamura, cxn03651@msj.biglobe.ne.jp
+#
+require "writeexcel/workbook"
+
+class Spreadsheet
+  class WriteExcel < Workbook
+    VERSION = "0.1.0"
+  end
+end

data/test/perl_output/README

@@ -0,0 +1,31 @@
+###############################################################################
+# This file contains sample output from the Spreadsheet::WriteExcel Perl
+# module. Used for testing file sizes/contents
+###############################################################################
+
+Files:
+
+ws_  -> from Worksheet.pm
+f_   -> from Format.pm
+ole_ -> from OLEWriter.pm
+
+f_font_biff
+  Output of the _get_font call
+
+f_font_key
+  Output of the _get_font_key call
+
+f_xf_biff
+  Output of the _get_xf call
+
+ws_colinfo
+  Output of the _store_colinfo call (default values)
+
+ws_store_dimensions
+  Output of the _store_dimensions call
+
+ws_store_window2
+  Output of the _store_window call
+
+ws_store_selection
+  Output of the _store_selection call

data/test/perl_output/f_font_key

@@ -0,0 +1 @@
+Arial100004000000327670

data/test/perl_output/file_font_key

@@ -0,0 +1 @@
+Arial1000040000003276700

data/test/perl_output/ws_colinfo

@@ -0,0 +1 @@
+15

data/test/perl_output/ws_store_window2

@@ -0,0 +1 @@
+14

data/test/tc_all.rb

@@ -0,0 +1,31 @@
+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'

data/test/tc_biff.rb

@@ -0,0 +1,104 @@
+$LOAD_PATH.unshift "#{File.dirname(__FILE__)}/../lib"
+
+require "test/unit"
+require "writeexcel"
+
+class TC_BIFFWriter < Test::Unit::TestCase
+
+  TEST_DIR    = File.expand_path(File.dirname(__FILE__))
+  PERL_OUTDIR = File.join(TEST_DIR, 'perl_output')
+
+  def setup
+    t = Time.now.strftime("%Y%m%d")
+    path = "temp#{t}-#{$$}-#{rand(0x100000000).to_s(36)}"
+    @test_file  = File.join(Dir.tmpdir, path)
+    @biff = BIFFWriter.new
+    @ruby_file = @test_file
+  end
+
+  def test_append_no_error
+    assert_nothing_raised{ @biff.append("World") }
+  end
+
+  def test_prepend_no_error
+    assert_nothing_raised{ @biff.prepend("Hello") }
+  end
+
+  def test_data_added
+    assert_nothing_raised{ @biff.append("Hello", "World") }
+    data = ''
+    while d = @biff.get_data
+      data = data + d
+    end
+    assert_equal("HelloWorld", data, "Bad data contents")
+    assert_equal(10, @biff.datasize, "Bad data size")
+  end
+
+  def test_data_prepended
+
+    assert_nothing_raised{ @biff.append("Hello") }
+    assert_nothing_raised{ @biff.prepend("World") }
+    data = ''
+    while d = @biff.get_data
+      data = data + d
+    end
+    assert_equal("WorldHello", data, "Bad data contents")
+    assert_equal(10, @biff.datasize, "Bad data size")
+  end
+
+  def test_store_bof_length
+    assert_nothing_raised{ @biff.store_bof }
+    assert_equal(20, @biff.datasize, "Bad data size after store_bof call")
+  end
+
+  def test_store_eof_length
+    assert_nothing_raised{ @biff.store_eof }
+    assert_equal(4, @biff.datasize, "Bad data size after store_eof call")
+  end
+
+  def test_datasize_mixed
+    assert_nothing_raised{ @biff.append("Hello") }
+    assert_nothing_raised{ @biff.prepend("World") }
+    assert_nothing_raised{ @biff.store_bof }
+    assert_nothing_raised{ @biff.store_eof }
+    assert_equal(34, @biff.datasize, "Bad data size for mixed data")
+  end
+
+  def test_add_continue
+    perl_file = "#{PERL_OUTDIR}/biff_add_continue_testdata"
+    size = File.size(perl_file)
+    @fh = File.new(@ruby_file,"w+")
+    @fh.print(@biff.add_continue('testdata'))
+    @fh.close
+    rsize = File.size(@ruby_file)
+    assert_equal(size,rsize,"File sizes not the same")
+    compare_file(perl_file, @ruby_file)
+  end
+
+  def teardown
+    @biff = nil
+    File.delete(@ruby_file) if File.exist?(@ruby_file)
+  end
+
+  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

data/test/tc_chart.rb

@@ -0,0 +1,22 @@
+#####################################################
+# tc_chart.rb
+#
+# Test suite for the Chart class (chart.rb)
+#####################################################
+base = File.basename(Dir.pwd)
+if base == "test" || base =~ /spreadsheet/i
+  Dir.chdir("..") if base == "test"
+  $LOAD_PATH.unshift(Dir.pwd + "/lib/spreadsheet")
+  Dir.chdir("test") rescue nil
+end
+
+require "test/unit"
+require "writeexcel"
+
+class TC_Chart < Test::Unit::TestCase
+
+  def test_
+    assert(true)
+  end
+
+end