spreadsheet-excel 0.3.4

data/test/CVS/Repository

@@ -0,0 +1 @@
+RubySpreadsheet/test

data/test/CVS/Root

@@ -0,0 +1 @@
+:ext:hwyss@rubyspreadsheet.cvs.sourceforge.net:/cvsroot/rubyspreadsheet

data/test/perl_output/CVS/Entries

@@ -0,0 +1,10 @@
+/README/1.5/Mon Oct 10 22:50:37 2005/-kb/
+/f_font_biff/1.1/Wed Dec  4 00:15:06 2002/-kb/
+/f_font_key/1.1/Wed Dec  4 00:14:48 2002/-kb/
+/f_xf_biff/1.1/Wed Dec  4 00:14:31 2002/-kb/
+/ole_write_header/1.1/Mon Oct 10 22:51:03 2005/-kb/
+/ws_colinfo/1.1/Thu Nov 28 04:52:55 2002/-kb/
+/ws_store_dimensions/1.1/Thu Nov 28 04:53:19 2002/-kb/
+/ws_store_selection/1.1/Thu Nov 28 04:53:19 2002/-kb/
+/ws_store_window2/1.1/Thu Nov 28 04:53:19 2002/-kb/
+D

data/test/perl_output/CVS/Repository

@@ -0,0 +1 @@
+RubySpreadsheet/test/perl_output

data/test/perl_output/CVS/Root

@@ -0,0 +1 @@
+:ext:hwyss@rubyspreadsheet.cvs.sourceforge.net:/cvsroot/rubyspreadsheet

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/ws_colinfo

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

data/test/perl_output/ws_store_dimensions

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

data/test/perl_output/ws_store_selection

@@ -0,0 +1 @@
+19

data/test/perl_output/ws_store_window2

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

data/test/tc_all.rb

@@ -0,0 +1,6 @@
+require "tc_biff"
+require "tc_ole"
+require "tc_workbook"
+require "tc_worksheet"
+require "tc_format"
+require "tc_excel"

data/test/tc_biff.rb

@@ -0,0 +1,62 @@
+#######################################################
+# tc_biff.rb
+#
+# Test suite for the BIFFWriter class (biffwriter.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 "biffwriter"
+
+class TC_BIFFWriter < Test::Unit::TestCase
+   def setup
+      @biff = BIFFWriter.new
+   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") }
+      assert_equal("HelloWorld", @biff.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") }
+      assert_equal("WorldHello", @biff.data, "Bad data contents")
+   end
+
+   def test_store_bof_length
+      assert_nothing_raised{ @biff.store_bof }
+      assert_equal(12, @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(26, @biff.datasize, "Bad data size for mixed data")
+   end
+
+   def teardown
+      @biff = nil
+   end
+end

data/test/tc_excel.rb

@@ -0,0 +1,26 @@
+#########################################
+# tc_excel.rb
+#
+# Tests for the Excel class (excel.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 "biffwriter"
+require "olewriter"
+require "format"
+require "workbook"
+require "worksheet"
+require "excel"
+require "ftools"
+
+class TC_Excel < Test::Unit::TestCase
+   def test_version
+      assert_equal("0.3.4", Spreadsheet::Excel::VERSION)
+   end
+end

data/test/tc_format.rb

@@ -0,0 +1,133 @@
+#####################################################
+# tc_format.rb
+#
+# Test suite for the Format class (format.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 "biffwriter"
+require "olewriter"
+require "workbook"
+require "worksheet"
+require "format"
+
+class TC_Format < Test::Unit::TestCase
+
+   def setup
+      @ruby_file = "xf_test"
+      @format = Format.new
+   end
+
+   def test_xf_biff_size
+      perl_file = "perl_output/f_xf_biff"
+      size = File.size(perl_file)
+      @fh = File.new(@ruby_file,"w+")
+      @fh.print(@format.xf_biff)
+      @fh.close
+      rsize = File.size(@ruby_file)
+      assert_equal(size,rsize,"File sizes not the same")
+   end
+   
+   # Because of the modifications to bg_color and fg_color, I know this
+   # test will fail.  This is ok.
+   #def test_xf_biff_contents
+   #   perl_file = "perl_output/f_xf_biff"
+   #   @fh = File.new(@ruby_file,"w+")
+   #   @fh.print(@format.xf_biff)
+   #   @fh.close
+   #   contents = IO.readlines(perl_file)
+   #   rcontents = IO.readlines(@ruby_file)
+   #   assert_equal(contents,rcontents,"Contents not the same")
+   #end
+
+   def test_font_biff_size
+      perl_file = "perl_output/f_font_biff"
+      @fh = File.new(@ruby_file,"w+")
+      @fh.print(@format.font_biff)
+      @fh.close
+      contents = IO.readlines(perl_file)
+      rcontents = IO.readlines(@ruby_file)
+      assert_equal(contents,rcontents,"Contents not the same")
+   end
+
+   def test_font_biff_contents
+      perl_file = "perl_output/f_font_biff"
+      @fh = File.new(@ruby_file,"w+")
+      @fh.print(@format.font_biff)
+      @fh.close
+      contents = IO.readlines(perl_file)
+      rcontents = IO.readlines(@ruby_file)
+      assert_equal(contents,rcontents,"Contents not the same")
+   end
+
+   def test_get_font_key_size
+      perl_file = "perl_output/f_font_key"
+      @fh = File.new(@ruby_file,"w+")
+      @fh.print(@format.font_key)
+      @fh.close
+      assert_equal(File.size(perl_file),File.size(@ruby_file),"Bad file size")
+   end
+
+   def test_get_font_key_contents
+      perl_file = "perl_output/f_font_key"
+      @fh = File.new(@ruby_file,"w+")
+      @fh.print(@format.font_key)
+      @fh.close
+      contents = IO.readlines(perl_file)
+      rcontents = IO.readlines(@ruby_file)
+      assert_equal(contents,rcontents,"Contents not the same")
+   end
+
+   def test_color
+      assert_nothing_raised{ @format.color = "blue" }
+      assert_equal(0x0C,@format.color,"Bad color value")
+   end
+
+   def test_color_valid
+      colors = %w/aqua black blue brown cyan fuchsia gray grey green lime/
+      colors << %w/magenta navy orange purple red silver white yellow/
+      colors.flatten!
+
+      colors.each{ |color|
+         assert_nothing_raised{ @format.color = color }
+      }
+   end
+
+   def test_color_bogus
+      assert_raises(ArgumentError){ @format.color = "blah" }
+   end
+
+   def test_align
+      @format.align
+      assert_equal(0,@format.text_h_align,"Bad text_h_align")
+      assert_equal(2,@format.text_v_align,"Bad text_v_align")
+   end
+
+   def test_align_center
+      @format.align = "center"
+      assert_equal(2,@format.text_h_align,"Bad text_h_align")
+      assert_equal(2,@format.text_v_align,"Bad text_v_align")
+   end
+
+   def test_bold
+      @format.bold=1
+      assert_equal(true,@format.bold,"Bad bold value")
+   end
+
+   def teardown
+      begin
+         @pfh.close
+      rescue NameError
+         # no op
+      end
+      File.delete(@ruby_file) if File.exist?(@ruby_file)
+      @format = nil
+   end
+
+end

data/test/tc_ole.rb

@@ -0,0 +1,125 @@
+###########################################################################
+# t_ole.rb
+#
+# Test suite for the OLEWriter class (olewriter.rb)
+#
+# In some cases, even though the file sizes are identical, the files
+# themselves do not appear to be identical.  The Perl output appears to
+# contain a newline which the Ruby output does not.
+###########################################################################
+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 "olewriter"
+
+class TC_OLE < Test::Unit::TestCase
+
+   def setup
+      @file = "test.ole"
+      @ole  = OLEWriter.new(@file)
+   end
+
+   def test_constructor
+      assert_nothing_raised{ OLEWriter.new("foo.ole") }
+      assert_nothing_raised{ OLEWriter.new(File.open("foo.ole", "w+")) }
+      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
+      err = "Should have raised MaxSizeError"
+      assert_raises(MaxSizeError, err){ @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_workbook.rb

@@ -0,0 +1,71 @@
+#####################################################
+# t_workbook.rb
+#
+# Test suite for the Workbook class (workbook.rb)
+# Requires testunit 0.1.8 or greater to run properly
+#####################################################
+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 "biffwriter"
+require "olewriter"
+require "workbook"
+require "worksheet"
+require "format"
+
+class TC_Workbook < Test::Unit::TestCase
+
+   def setup
+      @wb = Workbook.new("test.xls")
+   end
+
+   def test_add_worksheet
+      assert_nothing_raised{ ws = @wb.add_worksheet }
+   end
+
+   def test_calc_sheet_offsets
+      ws = @wb.add_worksheet
+      assert_nothing_raised{ @wb.calc_sheet_offsets }
+   end
+
+   def test_store_window1
+      assert_nothing_raised{ @wb.store_window1 }
+   end
+
+   def test_store_all_fonts
+      assert_nothing_raised{ @wb.store_all_fonts }
+   end
+
+   def test_store_xf
+      assert_nothing_raised{ @wb.store_xf(0xFFF5) }
+   end
+
+   def test_store_all_xfs
+      assert_nothing_raised{ @wb.store_all_xfs }
+   end
+
+   def test_store_style
+      assert_nothing_raised{ @wb.store_style }
+   end
+
+   def test_store_boundsheet
+      assert_nothing_raised{ @wb.store_boundsheet("test",0) }
+   end
+
+   def test_add_format
+      assert_nothing_raised{ @wb.add_format }
+      assert_equal(2,@wb.formats.length,"Bad number of formats")
+   end
+
+   def teardown
+      @wb.close
+      @wb = nil
+      File.delete("test.xls") if File.exists?("test.xls")
+   end
+
+end