robust_excel_ole 0.2.0

data/spec/cell_spec.rb

@@ -0,0 +1,66 @@
+# -*- coding: utf-8 -*-
+require File.join(File.dirname(__FILE__), './spec_helper')
+
+describe RobustExcelOle::Cell do
+  before do
+    @dir = create_tmpdir
+  end
+
+  after do
+    rm_tmp(@dir)
+  end
+
+  context "open simple.xls" do
+    before do
+      @book = RobustExcelOle::Book.open(@dir + '/simple.xls')
+      @sheet = @book[1]
+      @cell = @sheet[0, 0]
+    end
+
+    after do
+      @book.close
+    end
+
+    describe "#value" do
+      it "get cell's value" do
+        @cell.value.should eq 'simple'
+      end
+    end
+
+    describe "#value=" do
+      it "change cell data to 'fooooo'" do
+        @cell.value = 'fooooo'
+        @cell.value.should eq 'fooooo'
+      end
+    end
+
+    describe "#method_missing" do
+      context "unknown method" do
+        it { expect { @cell.hogehogefoo }.to raise_error }
+      end
+    end
+
+  end
+
+  context "open merge_cells.xls" do
+    before do
+      @book = RobustExcelOle::Book.open(@dir + '/merge_cells.xls')
+      @sheet = @book[0]
+    end
+
+    after do
+      @book.close
+    end
+
+    it "merged cell get same value" do
+      @sheet[0, 0].value.should be_nil
+      @sheet[1, 0].value.should eq 'first merged'
+    end
+
+    it "set merged cell" do
+      @sheet[1, 0].value = "set merge cell"
+      @sheet[1, 0].value.should eq "set merge cell"
+      @sheet[1, 1].value.should eq "set merge cell"
+    end
+  end
+end

data/spec/cygwin_spec.rb

@@ -0,0 +1,42 @@
+# -*- coding: utf-8 -*-
+require File.join(File.dirname(__FILE__), './spec_helper')
+
+describe "on cygwin",  :if => RUBY_PLATFORM =~ /cygwin/ do
+  describe ".cygpath" do
+    context "cygwin path is '/cygdrive/c/Users'" do
+      context "with '-w' options" do
+        it { RobustExcelOle::Cygwin.cygpath('-w', '/cygdrive/c/Users').should eq 'C:\\Users' }
+      end
+
+      context "with '-wa' options" do
+        it { RobustExcelOle::Cygwin.cygpath('-wa', '/cygdrive/c/Users').should eq 'C:\\Users' }
+      end
+
+      context "with '-ws' options" do
+        it { RobustExcelOle::Cygwin.cygpath('-ws', '/cygdrive/c/Users').should eq 'C:\\Users' }
+      end
+    end
+
+    context "windows path is 'C:\\Users'" do
+      context "with '-u option" do
+        it { RobustExcelOle::Cygwin.cygpath('-u', 'C:\\Users').should eq '/cygdrive/c/Users'}
+      end
+    end
+
+    context "cygwin path is './'" do
+      context "with '-u' options" do
+        it { RobustExcelOle::Cygwin.cygpath('-u', './').should eq './' }
+      end
+
+      context "with '-ua' options" do
+        it { RobustExcelOle::Cygwin.cygpath('-ua', './').should eq File.expand_path('./') + '/' }
+      end
+
+      context "with '-us' options" do
+        it { RobustExcelOle::Cygwin.cygpath('-us', './').should eq './' }
+      end
+    end
+
+  end
+
+end

data/spec/excel_app_spec.rb

@@ -0,0 +1,168 @@
+# -*- coding: utf-8 -*-
+
+require File.join(File.dirname(__FILE__), './spec_helper')
+
+$VERBOSE = nil
+
+module RobustExcelOle
+
+  describe ExcelApp do
+    before do
+      @dir = create_tmpdir
+      @simple_file = @dir + '/simple.xls'
+    end
+
+    after do
+      rm_tmp(@dir)
+    end
+
+    save_path = "C:" + "/" + "simple_save.xls"
+
+    context "app creation" do
+      after do
+        ExcelApp.close_all
+      end
+
+      def creation_ok?
+        @app.alive?.should == true
+        @app.Visible.should == false
+        @app.DisplayAlerts.should == false
+        @app.Name.should == "Microsoft Excel"
+      end
+
+      it "should work with 'new' " do
+        @app = ExcelApp.new
+        creation_ok?
+      end
+
+      it "should work with 'new' " do
+        @app = ExcelApp.new(:reuse => false)
+        creation_ok?
+      end
+
+      it "should work with 'create' " do
+        @app = ExcelApp.create
+        creation_ok?
+      end
+
+    end
+
+
+
+    context "with existing app" do
+
+      before do
+        ExcelApp.close_all
+        @app1 = ExcelApp.create
+      end
+
+      after do
+        ExcelApp.close_all
+      end
+
+      it "should create different app" do
+        app2 = ExcelApp.create
+        #puts "@app1 #{@app1.Hwnd}"
+        #puts "app2  #{app2.Hwnd}"
+        app2.Hwnd.should_not == @app1.Hwnd
+      end
+
+      it "should reuse existing app" do
+        app2 = ExcelApp.reuse_if_possible
+        #puts "@app1 #{@app1.Hwnd}"
+        #puts "app2  #{app2.Hwnd}"
+        app2.Hwnd.should == @app1.Hwnd
+      end
+
+      it "should reuse existing app with default options for 'new'" do
+        app2 = ExcelApp.new
+        #puts "@app1 #{@app1.Hwnd}"
+        #puts "app2  #{app2.Hwnd}"
+        app2.Hwnd.should == @app1.Hwnd
+      end
+
+    end
+
+    context "close excel instances" do
+      def direct_excel_creation_helper
+        expect { WIN32OLE.connect("Excel.Application") }.to raise_error
+        sleep 0.1
+        exl1 = WIN32OLE.new("Excel.Application")
+        exl1.Workbooks.Add
+        exl2 = WIN32OLE.new("Excel.Application")
+        exl2.Workbooks.Add
+        expect { WIN32OLE.connect("Excel.Application") }.to_not raise_error
+      end
+
+      it "simple file with default" do
+        RobustExcelOle::ExcelApp.close_all
+        direct_excel_creation_helper
+        RobustExcelOle::ExcelApp.close_all
+        sleep 0.1
+        expect { WIN32OLE.connect("Excel.Application") }.to raise_error
+      end
+    end
+
+    describe "==" do
+      before do
+        ExcelApp.close_all
+        @app1 = ExcelApp.create
+      end
+
+      after do
+        ExcelApp.close_all
+      end
+
+      it "should be true with two identical excel applications" do
+        app2 = ExcelApp.reuse_if_possible
+        app2.should == @app1
+      end
+
+      it "should be false with two different excel applications" do
+        app2 = ExcelApp.create
+        app2.should_not == @app1
+      end
+
+      it "should be false with non-ExcelApp objects" do
+        @app1.should_not == "hallo"
+        @app1.should_not == 7
+        @app1.should_not == nil
+      end
+
+    end
+
+    context "with Visible and DisplayAlerts" do
+
+      before do
+        ExcelApp.close_all
+      end
+
+      after (:each) do
+        ExcelApp.close_all
+      end
+
+      it "should be visible" do
+        app = ExcelApp.new(:visible => true)
+        app.Visible.should == true
+        app.DisplayAlerts.should == false
+      end
+
+      it "should displayalerts" do        
+        app = ExcelApp.new(:displayalerts => true)
+        app.DisplayAlerts.should == true
+        app.Visible.should == false
+      end
+
+      it "should visible and displayalerts" do
+        app = ExcelApp.new(:visible => true)
+        app.Visible.should == true
+        app.DisplayAlerts.should == false
+        app2 = ExcelApp.new(:displayalerts => true)
+        app2.Visible.should == true
+        app2.DisplayAlerts.should == true
+      end
+
+    end
+
+  end
+end

data/spec/helpers/key_sender.rb

@@ -0,0 +1,68 @@
+
+require 'win32ole'
+
+class KeySender
+  def initialize(window_name, options={})
+    @window_name = window_name
+    @wsh = WIN32OLE.new('Wscript.Shell')
+    @initial_wait = options[:initial_wait] || 0.2
+  end
+
+  # options:
+  #     :timeout, :initial_wait, :if_target_missing, :silent,
+  def send(key_seq, options={})
+    initial_wait = options[:initial_wait] || @initial_wait
+    timeout = options[:timeout] || 5
+    start_time = Time.now
+    sleep initial_wait
+
+    ready_to_send = if @window_name
+      loop do
+        akt = @wsh.AppActivate(@window_name)
+        break akt if akt
+        break false if Time.now - start_time > timeout
+        sleep 0.3
+        print "-" unless options[:silent]
+      end
+    else
+      true # Keine Window_name, immer senden'
+    end
+
+    if ready_to_send
+      @wsh.SendKeys(key_seq) if key_seq
+      yield if block_given?
+    else
+      else_aktion = options[:if_target_missing]
+      case else_aktion
+      when Proc
+        else_aktion.call
+      when nil
+      else
+        raise else_aktion
+      end
+    end
+    ready_to_send
+  end
+
+  def wait_for_window(windowname, timeout=30)
+    break_time = Time.now + timeout
+    loop do
+      windowname.each do |window_name|
+        ready_to_send = @wsh.AppActivate(window_name)
+        return window_name if ready_to_send
+      end
+      break false if Time.now > break_time
+
+      print " (noch #{'%.1f'%(break_time - Time.now)}s) " unless options[:silent]
+      sleep 0.813
+    end
+  end
+end
+
+if __FILE__ == $0
+  key_sender = KeySender.new(ARGV[1])
+  while not $stdin.eof? do
+    key_sequence = $stdin.gets.chomp
+    key_sender.send key_sequence
+  end
+end

data/spec/range_spec.rb

@@ -0,0 +1,120 @@
+# -*- coding: utf-8 -*-
+require File.join(File.dirname(__FILE__), './spec_helper')
+
+describe RobustExcelOle::Range do
+  before do
+    @dir = create_tmpdir
+    @book = RobustExcelOle::Book.open(@dir + '/simple.xls')
+    @sheet = @book[1]
+    @range = RobustExcelOle::Range.new(@sheet.sheet.UsedRange.Rows(1))
+  end
+
+  after do
+    @book.close
+    rm_tmp(@dir)
+  end
+
+  describe "#each" do
+    it "items is RobustExcelOle::Cell" do
+      @range.each do |cell|
+        cell.should be_kind_of RobustExcelOle::Cell
+      end
+    end
+  end
+
+  describe "#values" do
+    context "with (0..2)" do
+      it { @range.values(0..2).should eq ['simple', 'file', 'sheet2'] }
+    end
+
+    context "with (1..2)" do
+      it { @range.values(1..2).should eq ['file', 'sheet2'] }
+    end
+
+    context "with (2..2)" do
+      it { @range.values(2..2).should eq ['sheet2'] }
+    end
+
+    context "with no arguments" do
+      it { @range.values.should eq ['simple', 'file', 'sheet2'] }
+    end
+
+    context "when instance is column range" do
+      before do
+        @sheet = @book[0]
+        @range = RobustExcelOle::Range.new(@sheet.sheet.UsedRange.Columns(1))
+      end
+      it { @range.values.should eq ['simple', 'foo', 'matz'] }
+    end
+
+    context "read 'merge_cells.xls'" do
+      before do
+        @merge_cells_book = RobustExcelOle::Book.open("#{@dir}/merge_cells.xls")
+        @merge_cells_sheet = @merge_cells_book[0]
+      end
+
+      after do
+        @merge_cells_book.close
+      end
+
+      context "only merged_cell" do
+        before do
+          @only_merged_range = @merge_cells_sheet.row_range(3)
+        end
+
+        context "without argument" do
+          it { @only_merged_range.values.should eq ['merged', 'merged', 'merged', 'merged'] }
+        end
+
+        context "with (1..2)" do
+          it { @only_merged_range.values(1..2).should eq ['merged', 'merged'] }
+        end
+
+      end
+
+      context "mix merged cell and no merge cell" do
+        before do
+          @mix_merged_no_merged_range = @merge_cells_sheet.row_range(1)
+        end
+
+        context "without argument" do
+          it { @mix_merged_no_merged_range.values.should eq ['first merged', 'first merged', 'first merged', nil] }
+        end
+
+        context "with (2..3)" do
+          it { @mix_merged_no_merged_range.values(2..3).should eq ['first merged', nil] }
+        end
+
+      end
+    end
+  end
+
+  describe "#[]" do
+    context "access [0]" do
+      it { @range[0].should be_kind_of RobustExcelOle::Cell }
+      it { @range[0].value.should eq 'simple' }
+    end
+
+    context "access [2]" do
+      it { @range[2].value.should eq 'sheet2' }
+    end
+
+    context "access [0] and [1] and [2]" do
+      it "should get every values" do
+        @range[0].value.should eq 'simple'
+        @range[1].value.should eq 'file'
+        @range[2].value.should eq 'sheet2'
+      end
+    end
+  end
+
+  describe "#method_missing" do
+    it "can access COM method" do
+      @range.Range(@range.Cells.Item(1), @range.Cells.Item(3)).value.should eq [@range.values(0..2)]
+    end
+
+    context "unknown method" do
+      it { expect { @range.hogehogefoo}.to raise_error }
+    end
+  end
+end