robust_excel_ole 1.31 → 1.32

data/spec/list_row_spec.rb

@@ -0,0 +1,218 @@
+# -*- coding: utf-8 -*-
+
+require_relative 'spec_helper'
+
+$VERBOSE = nil
+
+include RobustExcelOle
+include General
+
+describe ListRow do
+ 
+  before(:all) do
+    excel = Excel.new(:reuse => true)
+    open_books = excel == nil ? 0 : excel.Workbooks.Count
+    puts "*** open books *** : #{open_books}" if open_books > 0
+    Excel.kill_all
+  end 
+
+  before do
+    @dir = create_tmpdir
+    @listobject_file = @dir + '/workbook_listobjects.xlsx'
+    @book = Workbook.open(@listobject_file, :visible => true)
+    @sheet = @book.sheet(3)
+  end
+
+  after do
+    @book.close(:if_unsaved => :forget)
+    Excel.kill_all
+    rm_tmp(@dir)
+  end
+
+  describe "==" do
+
+    before do
+      @table1 = @sheet.table(1)
+    end
+
+    it "should yield true" do
+      (@table1[1] == @table1[1]).should be true
+    end
+
+    it "should yield true" do
+      (@table1[1] == @table1[2]).should be false
+    end
+
+  end
+
+  describe "promote" do
+
+     it "should promote a win32ole tablerow" do
+      table1 = @sheet.table(1)
+      ole_tablerow = table1[2].ole_tablerow
+      ListRow.new(ole_tablerow).values.should == [2.0, "Fred", nil, 0.5416666666666666, 40]
+    end 
+  end
+
+  describe "to_a, to_h" do
+
+    before do
+      @table1 = @sheet.table(1)
+    end
+
+    it "should yield values of a row" do
+      @table1[2].to_a.should == [2.0, "Fred", nil, 0.5416666666666666, 40]
+      @table1[2].values.should == [2.0, "Fred", nil, 0.5416666666666666, 40]
+    end
+
+    it "should yield key-value pairs of a row" do
+      @table1[2].to_h.should == {"Number" => 2.0, "Person" => "Fred", "Amount" => nil, "Time" => 0.5416666666666666, "Price" => 40}
+      @table1[2].keys_values.should == {"Number" => 2.0, "Person" => "Fred", "Amount" => nil, "Time" => 0.5416666666666666, "Price" => 40}
+    end
+
+    it "should yield values and key-value pairs of a row with umlauts" do
+      @table1[1].values = [1, "Sören", 20.0, 0.1, 40]
+      @table1[1].values.should == [1.0, "Sören", 20.0, 0.1, 40]
+      @table1[1].to_a.should == [1.0, "Sören", 20.0, 0.1, 40]
+      @table1[1].to_h.should == {"Number" => 1.0, "Person" => "Sören", "Amount" => 20.0, "Time" => 0.1, "Price" => 40}
+    end
+
+  end
+
+  describe "[], []=" do
+
+    before do
+      @table1 = @sheet.table(1)
+      @table_row1 = @table1[1]
+    end
+
+    it "should read value in column" do
+      @table_row1[2].should == "John"
+      @table_row1["Person"].should == "John"
+    end
+
+    it "should read value in column with umlauts" do
+      @table1.add_column("Straße", 1, ["Sören","ö","ü","ß","²","³","g","h","i","j","k","l","m"])
+      table_row2 = @table1[1]
+      @table_row1[1].should == "Sören"
+      @table_row1["Straße"].should == "Sören"
+    end
+
+  end
+
+  describe "getting and setting values" do
+
+    context "with various column names" do
+
+      context "with standard" do
+
+        before do
+          @table = Table.new(@sheet, "table_name", [22,1], 3, ["Person1","Win/Sales", "xiq-Xs", "OrderID", "YEAR", "length in m", "Amo%untSal___es"])
+          @table_row1 = @table[1]
+        end
+
+        it "should read and set values via alternative column names" do
+          @table_row1.person1.should be nil
+          @table_row1.person1 = "John"
+          @table_row1.person1.should == "John"
+          @sheet[23,1].should == "John"
+          @table_row1.Person1 = "Herbert"
+          @table_row1.Person1.should == "Herbert"
+          @sheet[23,1].should == "Herbert"
+          @table_row1.win_sales.should be nil
+          @table_row1.win_sales = 42
+          @table_row1.win_sales.should == 42
+          @sheet[23,2].should == 42
+          @table_row1.Win_Sales = 80
+          @table_row1.Win_Sales.should == 80
+          @sheet[23,2].should == 80
+          @table_row1.xiq_xs.should == nil
+          @table_row1.xiq_xs = 90
+          @table_row1.xiq_xs.should == 90
+          @sheet[23,3].should == 90
+          @table_row1.xiq_Xs = 100
+          @table_row1.xiq_Xs.should == 100
+          @sheet[23,3].should == 100
+          @table_row1.order_id.should == nil
+          @table_row1.order_id = 1
+          @table_row1.order_id.should == 1
+          @sheet[23,4].should == 1
+          @table_row1.OrderID = 2
+          @table_row1.OrderID.should == 2
+          @sheet[23,4].should == 2
+          @table_row1.year = 1984
+          @table_row1.year.should == 1984
+          @sheet[23,5].should == 1984
+          @table_row1.YEAR = 2020
+          @table_row1.YEAR.should == 2020
+          @sheet[23,5].should == 2020
+          @table_row1.length_in_m.should == nil
+          @table_row1.length_in_m = 20
+          @table_row1.length_in_m.should == 20
+          @sheet[23,6].should == 20
+          @table_row1.length_in_m = 40
+          @table_row1.length_in_m.should == 40
+          @sheet[23,6].should == 40
+          @table_row1.amo_unt_sal___es.should == nil
+          @table_row1.amo_unt_sal___es = 80
+          @table_row1.amo_unt_sal___es.should == 80
+          @sheet[23,7].should == 80
+        end
+
+      end
+
+      context "with umlauts" do
+
+        before do
+          @table = Table.new(@sheet, "table_name", [1,1], 3, ["Verkäufer", "Straße", "area in m²"])
+          @table_row1 = @table[1]         
+        end
+
+        it "should read and set values via alternative column names" do
+          @table_row1.verkaeufer.should be nil
+          @table_row1.verkaeufer = "John"
+          @table_row1.verkaeufer.should == "John"
+          @sheet[2,1].should == "John"
+          @table_row1.Verkaeufer = "Herbert"
+          @table_row1.Verkaeufer.should == "Herbert"
+          @sheet[2,1].should == "Herbert"
+          @table_row1.strasse.should be nil
+          @table_row1.strasse = 42
+          @table_row1.strasse.should == 42
+          @sheet[2,2].should == 42
+          @table_row1.Strasse = 80
+          @table_row1.Strasse.should == 80
+          @sheet[2,2].should == 80
+          @table_row1.area_in_m2.should be nil
+          @table_row1.area_in_m2 = 10
+          @table_row1.area_in_m2.should == 10
+          @sheet[2,3].should == 10
+        end
+
+      end
+
+    end
+
+    context "with type-lifted ole list object" do
+
+      before do
+        ole_table = @sheet.ListObjects.Item(1)
+        @table = Table.new(ole_table)
+        @table_row1 = @table[1]
+      end
+
+      it "should set and read values" do
+        @table_row1.number.should == 3
+        @table_row1.number = 1
+        @table_row1.number.should == 1
+        @sheet[4,4].should == 1
+        @table_row1.person.should == "John"
+        @table_row1.person = "Herbert"
+        @table_row1.person.should == "Herbert"
+        @sheet[4,5].should == "Herbert"
+      end
+    end
+
+  end
+
+end

data/spec/range_spec.rb

@@ -7,6 +7,7 @@ include General
 describe RobustExcelOle::Range do
 
   before(:all) do
+    
     excel = Excel.new(:reuse => true)
     open_books = excel == nil ? 0 : excel.Workbooks.Count
     puts "*** open books *** : #{open_books}" if open_books > 0
@@ -19,6 +20,7 @@ describe RobustExcelOle::Range do
     @sheet = @book.sheet(2)
     @range = RobustExcelOle::Range.new(@sheet.ole_worksheet.UsedRange.Rows(1))
     @range2 = @sheet.range([1..2,1..3])
+    @sheet1 = @book.sheet(1)
   end
 
   after do
@@ -53,6 +55,24 @@ describe RobustExcelOle::Range do
       end
     end
 
+    it "should access each cell" do
+      cells = []
+      @range2.each do |cell|
+        cells << cell
+      end
+      cells.should == [@range2[0], @range2[1], @range2[2], @range2[3], @range2[4], @range2[5]]
+    end
+
+    it "should map" do
+      @range2.map{|c| c}.should == [@range2[0], @range2[1], @range2[2], @range2[3], @range2[4], @range2[5]]
+    end
+
+    it "should concatenate" do
+      values = []
+      @range2.each.with_index{|c,i| values << [c.v, i]}
+      values.should == [["simple", 0], ["file", 1], ["sheet2", 2], [nil, 3], [nil, 4], [nil, 5]]
+    end
+
     it "should work with [] doing cashing synchonized, from #[] to #each" do
       i = 0
       @range2.each do |cell|
@@ -75,6 +95,33 @@ describe RobustExcelOle::Range do
 
   end
 
+  describe "#value" do
+   
+    it "should yield the right values" do
+      @sheet1.range([1..2,1..3]).value.should == [["foo", "workbook", "sheet1"], ["foo", nil, "foobaaa"]]
+      @sheet1.range([1,1..3]).value.should == [["foo", "workbook", "sheet1"]]
+      @sheet1.range([1,1..5]).value.should == [["foo", "workbook", "sheet1"]]
+      @sheet1.range([1..5,1..5]).value.should == [["foo", "workbook", "sheet1"], ["foo", nil, "foobaaa"],["matz", "is", "nice"]]
+      @sheet1.range([1..2,1]).value.should == [["foo"], ["foo"]]
+      @sheet1.range([1]).value.should == [["foo", "workbook", "sheet1"]]
+      @sheet1.range([1..2]).value.should == [["foo", "workbook", "sheet1"], ["foo", nil, "foobaaa"]]
+      @sheet1.range([1..60]).value.should == [["foo", "workbook", "sheet1"], ["foo", nil, "foobaaa"], ["matz", "is", "nice"]]
+      @sheet1.range([nil,2..3]).value.should == [["workbook", "sheet1"], [nil, "foobaaa"], ["is", "nice"]]
+      @sheet1.range([1,2]).value.should == "workbook"
+    end
+
+  end
+
+  describe "#value=" do
+
+    it "should set value" do
+      @sheet1.range([1..2,1..3]).value.should == [["foo", "workbook", "sheet1"], ["foo", nil, "foobaaa"]]
+      @sheet1.range([1..2,1..3]).value = [["foo", nil, "foobaaa"], ["foo", "workbook", "sheet1"]] 
+      @sheet1.range([1..2,1..3]).value.should == [["foo", nil, "foobaaa"], ["foo", "workbook", "sheet1"]] 
+    end
+
+  end
+
   describe "#values" do
     context "with (0..2)" do
       it { @range.values(0..2).should eq ['simple', 'file', 'sheet2'] }
@@ -162,7 +209,7 @@ describe RobustExcelOle::Range do
         @range[2].v.should eq 'sheet2'
       end
     end
-  end
+  end  
 
   describe "#value" do
 
@@ -177,16 +224,16 @@ describe RobustExcelOle::Range do
       end
 
       it "should return value" do
-        @sheet[1,1].v.should == 'simple'
+        @sheet[1,1].should == 'simple'
         @sheet.range(1..2,3..4).v.should == [["sheet2", nil], [nil, nil]] 
       end 
 
       it "should set value of a cell and return its value" do
-        @sheet1[2,3].v.should == "foobaaa"
-        @sheet1[2,3].Value.should == "foobaaa"
-        @sheet1[2,3].v = "bar"
-        @sheet1[2,3].v.should == "bar"
-        @sheet1[2,3].Value.should == "bar"
+        @sheet1[2,3].should == "foobaaa"
+        @sheet1[2,3].should == "foobaaa"
+        @sheet1[2,3] = "bar"
+        @sheet1[2,3].should == "bar"
+        @sheet1.range([2,3]).Value.should == "bar"
       end
 
       it "should set value and return value of a rectangular range" do
@@ -209,7 +256,7 @@ describe RobustExcelOle::Range do
       @book1 = Workbook.open(@dir + '/workbook.xls')
       @sheet1 = @book1.sheet(1)
       @range1 = @sheet1.range([1..2,1..3])
-      @sheet1[1,1].Interior.ColorIndex = 4
+      @sheet1.range([1,1]).Interior.ColorIndex = 4
       @book2 = Workbook.open(@dir + '/different_workbook.xls')
       @sheet2 = @book2.sheet(2)
       @book3 = Workbook.open(@dir + '/another_workbook.xls', :force => {:excel => :new})
@@ -225,61 +272,61 @@ describe RobustExcelOle::Range do
     it "should copy range" do
       @range1.copy([4,2])
       @sheet1.range([4..5,2..4]).v.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
-      @sheet1[4,2].Interior.ColorIndex.should == 4
+      @sheet1.range([4,2]).Interior.ColorIndex.should == 4
     end
 
     it "should copy range when giving an address" do
       @range1.copy([4..5,2..4])
       @sheet1.range([4..5,2..4]).v.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
-      @sheet1[4,2].Interior.ColorIndex.should == 4
+      @sheet1.range([4,2]).Interior.ColorIndex.should == 4
     end
 
     it "should copy range to another worksheet of another workbook" do
       @range1.copy([4,2], @sheet2)
       @sheet2.range([4..5,2..4]).v.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
-      @sheet2[4,2].Interior.ColorIndex.should == 4
+      @sheet2.range([4,2]).Interior.ColorIndex.should == 4
     end
 
     it "should copy range to another worksheet of another workbook of another Excel instance" do
       @range1.copy([4,2], @sheet3)
       @sheet3.range([4..5,2..4]).v.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
-      @sheet3[4,2].Interior.ColorIndex.should == 4
+      @sheet3.range([4,2]).Interior.ColorIndex.should == 4
     end
 
     it "should copy values only" do
       @range1.copy([4,2], @sheet1, :values_only => true)
       @sheet1.range([4..5,2..4]).v.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
-      @sheet1[4,2].Interior.ColorIndex.should == -4142
+      @sheet1.range([4,2]).Interior.ColorIndex.should == -4142
     end
 
     it "should copy values only to another worksheet of another Excel instance" do
       @range1.copy([4,2], @sheet3, :values_only => true)
       @sheet3.range([4..5,2..4]).v.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
-      @sheet3[4,2].Interior.ColorIndex.should == -4142
+      @sheet3.range([4,2]).Interior.ColorIndex.should == -4142
     end
 
     it "should copy and transpose with values only" do
       @range1.copy([4,2], @sheet1, :values_only => true, :transpose => true)
       @sheet1.range([4..6,2..3]).v.should == [["foo", "foo"],["workbook", nil],["sheet1","foobaaa"]]
-      @sheet1[4,2].Interior.ColorIndex.should == -4142
+      @sheet1.range([4,2]).Interior.ColorIndex.should == -4142
     end
 
     it "should copy and transpose with values only into another Excel instance" do
       @range1.copy([4,2], @sheet3, :values_only => true, :transpose => true)
       @sheet3.range([4..6,2..3]).v.should == [["foo", "foo"],["workbook", nil],["sheet1","foobaaa"]]
-      @sheet3[4,2].Interior.ColorIndex.should == -4142
+      @sheet3.range([4,2]).Interior.ColorIndex.should == -4142
     end
 
     it "should copy and transpose" do
       @range1.copy([4,2], @sheet1, :transpose => true)
       @sheet1.range([4..6,2..3]).v.should == [["foo", "foo"],["workbook", nil],["sheet1","foobaaa"]]
-      @sheet1[4,2].Interior.ColorIndex.should == 4
+      @sheet1.range([4,2]).Interior.ColorIndex.should == 4
     end
 
     it "should copy and transpose into another Excel instance" do
       @range1.copy([4,2], @sheet3, :transpose => true)
       @sheet3.range([4..6,2..3]).v.should == [["foo", "foo"],["workbook", nil],["sheet1","foobaaa"]]
-      @sheet3[4,2].Interior.ColorIndex.should == 4
+      @sheet3.range([4,2]).Interior.ColorIndex.should == 4
     end
   end
 
@@ -289,7 +336,7 @@ describe RobustExcelOle::Range do
       @book1 = Workbook.open(@dir + '/workbook.xls')
       @sheet1 = @book1.sheet(1)
       @range1 = @sheet1.range([1..2,1..3])
-      @sheet1[1,1].Interior.ColorIndex = 4
+      @sheet1.range([1,1]).Interior.ColorIndex = 4
       @book2 = Workbook.open(@dir + '/different_workbook.xls')
       @sheet2 = @book2.sheet(2)
       @book3 = Workbook.open(@dir + '/another_workbook.xls', :force => {:excel => :new})
@@ -305,61 +352,61 @@ describe RobustExcelOle::Range do
     it "should copy range" do
       @range1.copy(4,2)
       @sheet1.range(4..5,2..4).v.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
-      @sheet1[4,2].Interior.ColorIndex.should == 4
+      @sheet1.range([4,2]).Interior.ColorIndex.should == 4
     end
 
     it "should copy range when giving an address" do
       @range1.copy(4..5,2..4)
       @sheet1.range([4..5,2..4]).v.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
-      @sheet1[4,2].Interior.ColorIndex.should == 4
+      @sheet1.range([4,2]).Interior.ColorIndex.should == 4
     end
 
     it "should copy range to another worksheet of another workbook" do
       @range1.copy(4,2, @sheet2)
       @sheet2.range([4..5,2..4]).v.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
-      @sheet2[4,2].Interior.ColorIndex.should == 4
+      @sheet2.range([4,2]).Interior.ColorIndex.should == 4
     end
 
     it "should copy range to another worksheet of another workbook of another Excel instance" do
       @range1.copy(4,2, @sheet3)
       @sheet3.range([4..5,2..4]).v.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
-      @sheet3[4,2].Interior.ColorIndex.should == 4
+      @sheet3.range([4,2]).Interior.ColorIndex.should == 4
     end
 
     it "should copy values only" do
       @range1.copy(4,2, @sheet1, :values_only => true)
       @sheet1.range([4..5,2..4]).v.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
-      @sheet1[4,2].Interior.ColorIndex.should == -4142
+      @sheet1.range([4,2]).Interior.ColorIndex.should == -4142
     end
 
     it "should copy values only to another worksheet of another Excel instance" do
       @range1.copy(4,2, @sheet3, :values_only => true)
       @sheet3.range([4..5,2..4]).v.should == [["foo", "workbook", "sheet1"],["foo", nil, "foobaaa"]]
-      @sheet3[4,2].Interior.ColorIndex.should == -4142
+      @sheet3.range([4,2]).Interior.ColorIndex.should == -4142
     end
 
     it "should copy and transpose with values only" do
       @range1.copy(4,2, @sheet1, :values_only => true, :transpose => true)
       @sheet1.range([4..6,2..3]).v.should == [["foo", "foo"],["workbook", nil],["sheet1","foobaaa"]]
-      @sheet1[4,2].Interior.ColorIndex.should == -4142
+      @sheet1.range([4,2]).Interior.ColorIndex.should == -4142
     end
 
     it "should copy and transpose with values only into another Excel instance" do
       @range1.copy(4,2, @sheet3, :values_only => true, :transpose => true)
       @sheet3.range([4..6,2..3]).v.should == [["foo", "foo"],["workbook", nil],["sheet1","foobaaa"]]
-      @sheet3[4,2].Interior.ColorIndex.should == -4142
+      @sheet3.range([4,2]).Interior.ColorIndex.should == -4142
     end
 
     it "should copy and transpose" do
       @range1.copy(4,2, @sheet1, :transpose => true)
       @sheet1.range([4..6,2..3]).v.should == [["foo", "foo"],["workbook", nil],["sheet1","foobaaa"]]
-      @sheet1[4,2].Interior.ColorIndex.should == 4
+      @sheet1.range([4,2]).Interior.ColorIndex.should == 4
     end
 
     it "should copy and transpose into another Excel instance" do
       @range1.copy(4,2, @sheet3, :transpose => true)
       @sheet3.range([4..6,2..3]).v.should == [["foo", "foo"],["workbook", nil],["sheet1","foobaaa"]]
-      @sheet3[4,2].Interior.ColorIndex.should == 4
+      @sheet3.range([4,2]).Interior.ColorIndex.should == 4
     end
 
   end