robust_excel_ole 1.1.4 → 1.1.5

data/spec/ruby1.8.6_rspec2.14/book_specs/book_all_spec.rb

@@ -0,0 +1,22 @@
+# -*- coding: utf-8 -*-
+
+require File.join(File.dirname(__FILE__), './../spec_helper')
+
+
+$VERBOSE = nil
+
+include General
+
+unless Object.method_defined?(:require_relative)
+  def require_relative path
+    require File.expand_path(path, File.dirname(__FILE__))  
+  end
+end
+
+require_relative "book_open_spec"
+require_relative "book_close_spec"
+require_relative "book_save_spec"
+require_relative "book_misc_spec"
+require_relative "book_sheet_spec"
+require_relative "book_unobtr_spec"
+require_relative "book_subclass_spec"

data/spec/ruby1.8.6_rspec2.14/book_specs/book_close_spec.rb

@@ -0,0 +1,252 @@
+# -*- coding: utf-8 -*-
+
+require File.join(File.dirname(__FILE__), './../spec_helper')
+
+
+$VERBOSE = nil
+
+include RobustExcelOle
+include General
+
+describe Book 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
+    @simple_file = @dir + '/workbook.xls'
+    @simple_save_file = @dir + '/workbook_save.xls'
+    @different_file = @dir + '/different_workbook.xls'
+    @simple_file_other_path = @dir + '/more_data/workbook.xls'
+    @another_simple_file = @dir + '/another_workbook.xls'
+    @linked_file = @dir + '/workbook_linked.xlsm'
+    @simple_file_xlsm = @dir + '/workbook.xls'
+    @simple_file_xlsx = @dir + '/workbook.xlsx'
+    @simple_file1 = @simple_file
+  end
+
+  after do
+    Excel.kill_all
+    rm_tmp(@dir)
+  end
+
+  describe "close" do
+
+    context "with saved book" do
+      before do
+        @book = Book.open(@simple_file)
+      end
+
+      it "should close book" do
+        expect{
+          @book.close
+        }.to_not raise_error
+        @book.should_not be_alive
+      end
+    end
+
+    context "with unsaved read_only book" do
+      before do
+        @book = Book.open(@simple_file1, :read_only => true)
+        @sheet_count = @book.ole_workbook.Worksheets.Count
+        @book.add_sheet(@sheet, :as => 'a_name')
+      end
+
+      it "should close the unsaved book without error and without saving" do
+        expect{
+          @book.close
+          }.to_not raise_error
+        new_book = Book.open(@simple_file1)
+        new_book.ole_workbook.Worksheets.Count.should ==  @sheet_count
+        new_book.close
+      end
+    end
+
+    context "with unsaved book" do
+      before do
+        @book = Book.open(@simple_file1)
+        @sheet_count = @book.ole_workbook.Worksheets.Count
+        @book.add_sheet(@sheet, :as => 'a_name')
+        @sheet = @book.sheet(1)
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget) rescue nil
+      end
+
+      it "should raise error with option :raise" do
+        expect{
+          @book.close(:if_unsaved => :raise)
+        }.to raise_error(WorkbookNotSaved, /workbook is unsaved: "workbook.xls"/)
+      end
+
+      it "should raise error by default" do
+        expect{
+          @book.close(:if_unsaved => :raise)
+        }.to raise_error(WorkbookNotSaved, /workbook is unsaved: "workbook.xls"/)
+      end
+
+      it "should keep the book open" do
+        ole_workbook = @book.ole_workbook
+        excel = @book.excel
+        excel.Workbooks.Count.should == 1
+        @book.close(:if_unsaved => :keep_open)
+        excel.Workbooks.Count.should == 1
+        @book.should be_alive
+      end
+
+      it "should close the book and leave its file untouched with option :forget" do
+        ole_workbook = @book.ole_workbook
+        excel = @book.excel
+        excel.Workbooks.Count.should == 1
+        @book.close(:if_unsaved => :forget)
+        excel.Workbooks.Count.should == 0
+        @book.ole_workbook.should == nil
+        @book.should_not be_alive
+        expect{
+          ole_workbook.Name}.to raise_error(WIN32OLERuntimeError)
+        new_book = Book.open(@simple_file1)
+        begin
+          new_book.ole_workbook.Worksheets.Count.should ==  @sheet_count
+        ensure
+          new_book.close
+        end
+      end
+
+      it "should close the book and leave its file untouched with option :forget even with displayalerts true" do
+        ole_workbook = @book.ole_workbook
+        excel = @book.excel
+        excel.displayalerts = true
+        excel.Workbooks.Count.should == 1
+        @book.close(:if_unsaved => :forget)
+        excel.Workbooks.Count.should == 0
+        @book.ole_workbook.should == nil
+        @book.should_not be_alive
+        expect{
+          ole_workbook.Name}.to raise_error(WIN32OLERuntimeError)
+        new_book = Book.open(@simple_file1)
+        begin
+          new_book.ole_workbook.Worksheets.Count.should ==  @sheet_count
+        ensure
+          new_book.close
+        end
+      end
+
+      it "should raise an error for invalid option" do
+        expect {
+          @book.close(:if_unsaved => :invalid_option)
+        }.to raise_error(OptionInvalid, ":if_unsaved: invalid option: :invalid_option") 
+      end
+
+
+      it "should save the book before close with option :save" do
+        ole_workbook = @book.ole_workbook
+        excel = @book.excel
+        excel.Workbooks.Count.should == 1
+        @book.close(:if_unsaved => :save)
+        excel.Workbooks.Count.should == 0
+        @book.ole_workbook.should == nil
+        @book.should_not be_alive
+        expect{
+          ole_workbook.Name}.to raise_error(WIN32OLERuntimeError)
+        new_book = Book.open(@simple_file1)
+        begin
+          new_book.ole_workbook.Worksheets.Count.should == @sheet_count + 1
+        ensure
+          new_book.close
+        end
+      end
+
+      context "with :if_unsaved => :alert" do
+        before do
+          @key_sender = IO.popen  'ruby "' + File.join(File.dirname(__FILE__), '../helpers/key_sender.rb') + '" "Microsoft Excel" '  , "w"
+        end
+
+        after do
+          @key_sender.close
+        end
+
+        possible_answers = [:yes, :no, :cancel]
+        possible_answers.each_with_index do |answer, position|
+          it "should" + (answer == :yes ? "" : " not") + " the unsaved book and" + (answer == :cancel ? " not" : "") + " close it" + "if user answers '#{answer}'" do
+            # "Yes" is the  default. "No" is right of "Yes", "Cancel" is right of "No" --> language independent
+            @key_sender.puts  "{right}" * position + "{enter}"
+            ole_workbook = @book.ole_workbook
+            excel = @book.excel
+            displayalert_value = @book.excel.DisplayAlerts
+            if answer == :cancel then
+              expect {
+              @book.close(:if_unsaved => :alert)
+              }.to_not raise_error
+              @book.ole_workbook.Saved.should be_false
+              @book.ole_workbook.should_not == nil
+              @book.should be_alive
+            else
+              @book.excel.Workbooks.Count.should == 1
+              @book.close(:if_unsaved => :alert)
+              @book.excel.Workbooks.Count.should == 0
+              @book.ole_workbook.should == nil
+              @book.should_not be_alive
+              expect{ole_workbook.Name}.to raise_error(WIN32OLERuntimeError)
+            end
+            new_book = Book.open(@simple_file1, :if_unsaved => :forget)
+            begin
+              new_book.ole_workbook.Worksheets.Count.should == @sheet_count + (answer==:yes ? 1 : 0)
+              new_book.excel.DisplayAlerts.should == displayalert_value
+            ensure
+              new_book.close
+            end
+          end
+        end
+      end
+
+      context "with :if_unsaved => :excel" do
+        before do
+          @key_sender = IO.popen  'ruby "' + File.join(File.dirname(__FILE__), '../helpers/key_sender.rb') + '" "Microsoft Excel" '  , "w"
+        end
+
+        after do
+          @key_sender.close
+        end
+
+        possible_answers = [:yes, :no, :cancel]
+        possible_answers.each_with_index do |answer, position|
+          it "should" + (answer == :yes ? "" : " not") + " the unsaved book and" + (answer == :cancel ? " not" : "") + " close it" + "if user answers '#{answer}'" do
+            # "Yes" is the  default. "No" is right of "Yes", "Cancel" is right of "No" --> language independent
+            @key_sender.puts  "{right}" * position + "{enter}"
+            ole_workbook = @book.ole_workbook
+            excel = @book.excel
+            displayalert_value = @book.excel.DisplayAlerts
+            if answer == :cancel then
+              expect {
+              @book.close(:if_unsaved => :excel)
+              }.to_not raise_error
+              @book.ole_workbook.Saved.should be_false
+              @book.ole_workbook.should_not == nil
+              @book.should be_alive
+            else
+              @book.excel.Workbooks.Count.should == 1
+              @book.close(:if_unsaved => :excel)
+              @book.excel.Workbooks.Count.should == 0
+              @book.ole_workbook.should == nil
+              @book.should_not be_alive
+              expect{ole_workbook.Name}.to raise_error(WIN32OLERuntimeError)
+            end
+            new_book = Book.open(@simple_file1, :if_unsaved => :forget)
+            begin
+              new_book.ole_workbook.Worksheets.Count.should == @sheet_count + (answer==:yes ? 1 : 0)
+              new_book.excel.DisplayAlerts.should == displayalert_value
+            ensure
+              new_book.close
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/spec/ruby1.8.6_rspec2.14/book_specs/book_misc_spec.rb

@@ -0,0 +1,1070 @@
+# -*- coding: utf-8 -*-
+
+require File.join(File.dirname(__FILE__), './../spec_helper')
+
+
+$VERBOSE = nil
+
+include RobustExcelOle
+include General
+
+describe Book 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
+    @simple_file = @dir + '/workbook.xls'
+    @simple_save_file = @dir + '/workbook_save.xls'
+    @different_file = @dir + '/different_workbook.xls'
+    @simple_file_other_path = @dir + '/more_data/workbook.xls'
+    @another_simple_file = @dir + '/another_workbook.xls'
+    @linked_file = @dir + '/workbook_linked.xlsm'
+    @simple_file_xlsm = @dir + '/workbook.xls'
+    @simple_file_xlsx = @dir + '/workbook.xlsx'
+    @simple_file1 = @simple_file
+  end
+
+  after do
+    Excel.kill_all
+    #rm_tmp(@dir)
+  end
+
+  describe "create file" do
+    context "with standard" do
+      it "open an existing file" do
+        expect {
+          @book = Book.new(@simple_file)
+        }.to_not raise_error
+        @book.should be_a Book
+        @book.close
+      end
+    end
+  end
+
+  describe "for_this_workbook" do
+
+    before do
+      @book = Book.open(@simple_file)
+    end
+
+    it "should set options" do
+      @book.for_this_workbook(:visible => true)
+      @book.excel.Visible.should be_true
+      @book.Windows(@book.Name).Visible.should be_true
+      @book.visible.should be_true
+      @book.ReadOnly.should be_false
+      @book.CheckCompatibility.should be_false
+      @book.for_this_workbook(:visible => false)
+      @book.excel.Visible.should be_true
+      @book.Windows(@book.Name).Visible.should be_false
+      @book.visible.should be_false
+      @book.ReadOnly.should be_false
+      @book.CheckCompatibility.should be_false
+      @book.for_this_workbook(:read_only => true)
+      @book.excel.Visible.should be_true
+      @book.Windows(@book.Name).Visible.should be_false
+      @book.visible.should be_false
+      @book.ReadOnly.should be_true
+      @book.CheckCompatibility.should be_false
+      @book.for_this_workbook(:visible => true)
+      @book.excel.Visible.should be_true
+      @book.Windows(@book.Name).Visible.should be_true
+      @book.visible.should be_true
+      @book.ReadOnly.should be_true
+      @book.CheckCompatibility.should be_false
+      @book.for_this_workbook(:check_compatibility => true)
+      @book.excel.Visible.should be_true
+      @book.Windows(@book.Name).Visible.should be_true
+      @book.visible.should be_true
+      @book.ReadOnly.should be_true
+      @book.CheckCompatibility.should be_true
+      @book.for_this_workbook(:visible => false, :check_compatibility => false)
+      @book.excel.Visible.should be_true
+      @book.Windows(@book.Name).Visible.should be_false
+      @book.visible.should be_false
+      @book.ReadOnly.should be_true
+      @book.CheckCompatibility.should be_false
+      @book.for_this_workbook(:calculation => true)
+      @book.excel.Visible.should be_true
+      @book.Windows(@book.Name).Visible.should be_false
+      @book.visible.should be_false
+      @book.ReadOnly.should be_true
+      @book.CheckCompatibility.should be_false
+      @book.excel.calculation.should be_true    
+    end
+
+    it "should set options" do
+      @book.for_this_workbook(:read_only => true, :check_compatibility => true)
+      @book.CheckCompatibility.should be_true
+    end
+
+  end
+
+  describe "excel_of" do
+
+    before do
+      @book = Book.open(@simple_file)
+    end
+
+    after do
+      @book.close
+    end
+
+    it "should access the excel" do
+      workbook = @book.ole_workbook
+      excel = Book.excel_of(workbook)
+      excel.should be_a Excel
+      excel.should == @book.excel
+    end
+
+    it "should access the Excel of the ole_excel" do
+      excel = Book.excel_of(@book.excel.ole_excel)
+      excel.should be_a Excel
+      excel.should == @book.excel
+    end
+
+    it "should access the Excel of a Book" do
+      excel = Book.excel_of(@book)
+      excel.should be_a Excel
+      excel.should == @book.excel
+    end
+
+  end
+
+  describe "with retain_saved" do
+
+    before do
+      @book = Book.open(@simple_file)
+    end
+
+    after do
+      @book.close(:if_unsaved => :forget)
+    end
+
+    it "should keep the save state 'saved' with empty assignments" do
+      @book.Saved.should be_true
+      @book.retain_saved do
+      end
+      @book.Saved.should be_true
+    end
+
+    it "should keep the save state 'saved' with non-affecting assignments" do
+      @book.Saved.should be_true
+      @book.retain_saved do
+        sheet = @book.sheet(1)
+        a = sheet[1,1]
+        b = @book.visible
+      end
+      @book.Saved.should be_true
+    end
+
+    it "should keep the save state 'unsaved'" do
+      sheet = @book.sheet(1)
+      sheet[1,1] = sheet[1,1].value == "foo" ? "bar" : "foo"
+      @book.Saved.should be_false
+      @book.retain_saved do
+        sheet = @book.sheet(1)
+        a = sheet[1,1]
+        b = @book.visible
+      end
+      @book.Saved.should be_false
+    end
+
+    it "should keep the save state 'saved'" do
+      @book.Saved.should be_true
+      @book.retain_saved do
+        sheet = @book.sheet(1)
+        sheet[1,1] = sheet[1,1].value == "foo" ? "bar" : "foo"
+        @book.Saved.should be_false
+      end
+      @book.Saved.should be_true
+    end
+
+    it "should keep the save state 'unsaved' even when the workbook was saved before" do
+      sheet = @book.sheet(1)
+      sheet[1,1] = sheet[1,1].value == "foo" ? "bar" : "foo"
+      @book.Saved.should be_false
+      @book.retain_saved do
+        @book.save
+        @book.Saved.should be_true
+      end
+      @book.Saved.should be_false
+    end
+  end
+
+  describe "default-visible" do
+
+    it "should keep the visibility of the open workbook" do
+      book1 = Book.open(@simple_file1)
+      book1.excel.Visible.should be_false
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_false
+      book2 = Book.open(@simple_file1, :default => {:visible => true})
+      book2.visible.should be_false      
+      book2.excel.Visible.should be_false
+      book2.Windows(book2.Name).Visible.should be_true
+      book1.visible.should be_false
+      book2 = Book.open(@simple_file1, :default => {:visible => false})
+      book2.visible.should be_false      
+      book2.excel.Visible.should be_false
+      book2.Windows(book2.Name).Visible.should be_true
+      book1.visible.should be_false      
+    end
+
+    it "should keep the visibility of the open workbook per default" do
+      book1 = Book.open(@simple_file1)
+      book1.excel.Visible.should be_false
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_false
+      book2 = Book.open(@simple_file1)
+      book2.visible.should be_false      
+      book2.excel.Visible.should be_false
+      book2.Windows(book2.Name).Visible.should be_true
+      book1.visible.should be_false
+    end
+
+    it "should keep the found Excel instance invisible" do
+      book1 = Book.open(@simple_file1)
+      excel1 = book1.excel
+      excel1.Visible.should be_false
+      book1.close
+      book2 = Book.open(@simple_file1, :default => {:visible => true})
+      excel2 = book2.excel
+      excel2.should == excel1
+      excel2.Visible.should be_false
+      book2.Windows(book2.Name).Visible.should be_true
+    end
+
+    it "should keep the found Excel instance invisible with default invisible" do
+      book1 = Book.open(@simple_file1)
+      excel1 = book1.excel
+      excel1.Visible.should be_false
+      book1.close
+      book2 = Book.open(@simple_file1, :default => {:visible => false})
+      excel2 = book1.excel
+      excel2.should == excel1
+      excel2.Visible.should be_false
+      book2.Windows(book2.Name).Visible.should be_false
+    end
+
+    it "should keep the found Excel instance visible" do
+      book1 = Book.open(@simple_file1, :visible => true)
+      excel1 = book1.excel
+      book1.Windows(book1.Name).Visible.should be_true
+      excel1.Visible.should be_true
+      book1.close
+      book2 = Book.open(@simple_file1, :default => {:visible => false})
+      excel2 = book1.excel
+      excel2.should == excel1
+      excel2.Visible.should be_true
+      book2.Windows(book2.Name).Visible.should be_false
+    end
+
+    it "should keep the found Excel instance visible with default visible true" do
+      book1 = Book.open(@simple_file1, :visible => true)
+      excel1 = book1.excel
+      book1.Windows(book1.Name).Visible.should be_true
+      excel1.Visible.should be_true
+      book1.close
+      book2 = Book.open(@simple_file1, :default => {:visible => true})
+      excel2 = book1.excel
+      excel2.should == excel1
+      excel2.Visible.should be_true
+      book2.Windows(book2.Name).Visible.should be_true
+    end
+
+    it "should keep the found Excel instance invisible per default" do
+      book1 = Book.open(@simple_file1)
+      excel1 = book1.excel
+      excel1.Visible.should be_false
+      book1.close
+      book2 = Book.open(@simple_file1)
+      excel2 = book1.excel
+      excel2.should == excel1
+      excel2.Visible.should be_false
+      book2.Windows(book2.Name).Visible.should be_true
+    end
+
+    it "should open the workbook visible if the workbook is new" do
+      book1 = Book.open(@simple_file1, :default => {:visible => true})
+      book1.visible.should be_true
+      book1.excel.Visible.should be_true
+      book1.Windows(book1.Name).Visible.should be_true
+    end
+
+    it "should open the workbook invisible if the workbook is new" do
+      book1 = Book.open(@simple_file1, :default => {:visible => false})
+      book1.visible.should be_false
+      book1.excel.Visible.should be_false
+      book1.Windows(book1.Name).Visible.should be_false
+    end
+
+    it "should open the workbook invisible per default if the workbook is new" do
+      book1 = Book.open(@simple_file1)
+      book1.visible.should be_false
+      book1.excel.Visible.should be_false
+      book1.Windows(book1.Name).Visible.should be_true
+    end
+
+    it "should open the workbook visible if the old Excel is closed" do
+      book1 = Book.open(@simple_file1)
+      book1.visible.should be_false
+      excel1 = book1.excel
+      excel1.Visible.should be_false
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.close
+      excel1.close
+      book2 = Book.open(@simple_file1, :default => {:visible => true})
+      excel2 = book2.excel
+      book2.visible.should be_true
+      excel2.Visible.should be_true
+      book1.Windows(book1.Name).Visible.should be_true
+    end
+
+    it "should open the workbook invisible if the old Excel is closed" do
+      book1 = Book.open(@simple_file1, :default => {:visible => true})
+      book1.visible.should be_true
+      excel1 = book1.excel
+      excel1.Visible.should be_true
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.close
+      excel1.close
+      book2 = Book.open(@simple_file1, :default => {:visible => false})
+      excel2 = book2.excel
+      book2.visible.should be_false
+      excel2.Visible.should be_false
+      book1.Windows(book1.Name).Visible.should be_false
+    end
+
+  end
+
+  describe "force-visible" do
+
+    it "should change the visibility of the workbooks" do
+      book1 = Book.open(@simple_file)
+      book1.excel.Visible.should be_false
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_false
+      book2 = Book.open(@simple_file, :visible => true)
+      book2.visible.should be_true      
+      book2.excel.Visible.should be_true
+      book2.Windows(book2.Name).Visible.should be_true
+      book1.visible.should be_true
+      book2 = Book.open(@simple_file, :visible => false)
+      book2.visible.should be_false      
+      book2.excel.Visible.should be_true
+      book2.Windows(book2.Name).Visible.should be_false
+      book1.visible.should be_false 
+      book1.Windows(book2.Name).Visible.should be_false     
+    end
+  end
+
+  describe "with visible" do
+
+    it "should adapt its default value at the visible value of the Excel" do
+      excel1 = Excel.create
+      excel1.visible = true
+      book1 = Book.open(@simple_file)
+      excel1.Visible.should be_true
+      excel1.visible.should be_true
+      book1.visible.should be_true
+    end
+
+    it "should preserve :visible if it is not set" do
+      book1 = Book.open(@simple_file)
+      book1.excel.Visible.should be_false
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_false
+    end
+
+    it "should set :visible to false" do
+      book1 = Book.open(@simple_file, :visible => false)
+      book1.excel.Visible.should be_false
+      book1.Windows(book1.Name).Visible.should be_false
+      book1.visible.should be_false
+    end
+
+    it "should set :visible to true" do
+      book1 = Book.open(@simple_file, :visible => true)
+      book1.excel.Visible.should be_true
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_true
+    end
+
+    it "should preserve :visible if they are set to visible" do
+      excel1 = Excel.create(:visible => true)
+      book1 = Book.open(@simple_file)
+      book1.excel.Visible.should be_true
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_true
+    end
+
+    it "should preserve :visible" do
+      excel1 = Excel.create
+      book1 = Book.open(@simple_file)
+      book1.excel.Visible.should be_false
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_false
+    end
+
+
+    it "should preserve :visible if it is set to false" do
+      excel1 = Excel.create
+      book1 = Book.open(@simple_file, :visible => false)
+      book1.excel.Visible.should be_false
+      book1.Windows(book1.Name).Visible.should be_false
+      book1.visible.should be_false
+    end
+
+    it "should preserve :visible if it is not set" do
+      excel1 = Excel.create
+      book1 = Book.open(@simple_file)
+      book1.excel.Visible.should be_false
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_false
+    end
+
+    it "should overwrite :visible to false" do
+      excel1 = Excel.create(:visible => true)
+      book1 = Book.open(@simple_file, :visible => false)
+      book1.excel.Visible.should be_true
+      book1.Windows(book1.Name).Visible.should be_false
+      book1.visible.should be_false
+    end
+
+    it "should overwrite :visible to true" do
+      excel1 = Excel.create(:visible => false)
+      book1 = Book.open(@simple_file, :visible => true)
+      book1.excel.Visible.should be_true
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_true
+    end
+
+    it "should preserve :visible if it is not set with default_excel" do
+      excel1 = Excel.create(:visible => true)
+      book1 = Book.open(@simple_file)
+      book2 = Book.open(@different_file, :default_excel => :new)
+      book2.excel.Visible.should be_false
+      book2.Windows(book2.Name).Visible.should be_true
+      book2.visible.should be_false
+    end
+
+    it "should set :visible to true with default_excel" do
+      excel1 = Excel.create(:visible => true)
+      book1 = Book.open(@simple_file)
+      book2 = Book.open(@different_file, :default_excel => :new, :visible => true)
+      book2.excel.Visible.should be_true
+      book2.Windows(book2.Name).Visible.should be_true
+      book2.visible.should be_true
+    end
+
+    it "should set :visible to false with default_excel" do
+      excel1 = Excel.create(:visible => true)
+      book1 = Book.open(@simple_file)
+      book2 = Book.open(@different_file, :default_excel => :new, :visible => false)
+      book2.excel.Visible.should be_false
+      book2.Windows(book2.Name).Visible.should be_false
+      book2.visible.should be_false
+    end
+
+    it "should preserve :visible if it is set to true with default_excel" do
+      excel1 = Excel.create(:visible => true)
+      excel2 = Excel.create(:visible => true)
+      book1 = Book.open(@different_file, :default_excel => excel2)
+      book1.excel.Visible.should be_true
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_true
+    end
+
+    it "should overwrite :visible to false with default_excel" do
+      excel1 = Excel.create(:visible => true)
+      excel2 = Excel.create(:visible => true)
+      book1 = Book.open(@different_file, :default_excel => excel2, :visible => false)
+      book1.excel.Visible.should be_true
+      book1.Windows(book1.Name).Visible.should be_false
+      book1.visible.should be_false
+    end
+
+    it "should preserve :visible if it is not set with force_excel => new" do
+      excel1 = Excel.create(:visible => true)
+      book1 = Book.open(@different_file, :force_excel => :new)
+      book1.excel.Visible.should be_false
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_false
+    end
+
+    it "should set :visible to true with force_excel" do
+      excel1 = Excel.create(:visible => true)
+      book1 = Book.open(@different_file, :force_excel => :new, :visible => true)
+      book1.excel.Visible.should be_true
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_true
+    end
+
+    it "should preserve :visible if it is not set with force_excel => excel" do
+      excel1 = Excel.create(:visible => true)
+      excel2 = Excel.create(:visible => true)
+      book1 = Book.open(@different_file, :force_excel => excel2)
+      book1.excel.Visible.should be_true
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_true
+    end
+
+    it "should set visible to false with force_excel => excel" do
+      excel1 = Excel.create(:visible => true)
+      excel2 = Excel.create(:visible => true)
+      book1 = Book.open(@different_file, :force_excel => excel2, :visible => false)
+      book1.excel.Visible.should be_true
+      book1.Windows(book1.Name).Visible.should be_false
+      book1.visible.should be_false
+    end
+
+    it "should set visible to true with force_excel => excel" do
+      excel1 = Excel.create(:visible => true)
+      excel2 = Excel.create(:visible => true)
+      book1 = Book.open(@different_file, :force_excel => excel2, :visible => true)
+      book1.excel.Visible.should be_true
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_true
+    end
+
+    it "should preserve :visible if it is set to true with force_excel => current" do
+      excel1 = Excel.create(:visible => true)
+      book1 = Book.open(@different_file, :force_excel => :current)      
+      book1.excel.Visible.should be_true
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_true
+    end
+
+    it "should set :visible to false with force_excel => current" do
+      excel1 = Excel.create(:visible => true)
+      book1 = Book.open(@different_file, :force_excel => :current, :visible => false)
+      book1.excel.Visible.should be_true
+      book1.Windows(book1.Name).Visible.should be_false
+      book1.visible.should be_false
+    end
+
+    it "should preserve :visible if it is set to false with force_excel => current" do
+      excel1 = Excel.create(:visible => false)
+      book1 = Book.open(@simple_file, :force_excel => :current)
+      book1.excel.Visible.should be_false
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_false
+    end
+
+    it "should set :visible to false with force_excel => current" do
+      excel1 = Excel.create(:visible => false)
+      book1 = Book.open(@simple_file, :force_excel => :current, :visible => true)
+      book1.excel.Visible.should be_true
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_true
+    end
+
+    it "should let an open Book open" do
+      @book = Book.open(@simple_file1, :visible => true)
+      Book.unobtrusively(@simple_file1) do |book|
+        book.should be_a Book
+        book.should be_alive
+        book.excel.should == @book.excel
+        book.excel.Visible.should be_true
+      end        
+      @book.should be_alive
+      @book.should be_a Book
+      @book.excel.Visible.should be_true
+      @book.close(:if_unsaved => :forget)
+      @book2.close(:if_unsaved => :forget) rescue nil
+    end
+
+    it "should set visible and displayalerts if displayalerts => :if_visible" do
+      book1 = Book.open(@simple_file)
+      book1.excel.Visible.should be_false
+      book1.excel.displayalerts.should == :if_visible
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_false
+      book2 = Book.open(@different_file)
+      book2.excel.Visible.should be_false
+      book2.Windows(book2.Name).Visible.should be_true
+      book2.visible.should be_false
+      book2.excel.visible.should be_false
+      book2.excel.displayalerts.should == :if_visible
+      book2.excel.DisplayAlerts.should be_false
+    end
+
+    it "should set visible and displayalerts if displayalerts => :if_visible" do
+      book1 = Book.open(@simple_file)
+      book1.excel.Visible.should be_false
+      book1.excel.displayalerts.should == :if_visible
+      book1.Windows(book1.Name).Visible.should be_true
+      book1.visible.should be_false
+      book2 = Book.open(@different_file, :visible => true)
+      book2.excel.Visible.should be_true
+      book2.Windows(book2.Name).Visible.should be_true
+      book2.visible.should be_true
+      book2.excel.visible.should be_true
+      book2.excel.displayalerts.should == :if_visible
+      book2.excel.DisplayAlerts.should be_true
+    end
+  end
+
+  describe "send methods to workbook" do
+
+    context "with standard" do
+      before do
+        @book = Book.open(@simple_file)
+      end
+
+      after do
+        @book.close
+      end
+
+      it "should send Saved to workbook" do
+        @book.Saved.should be_true
+      end
+
+      it "should send Fullname to workbook" do
+        @book.Fullname.tr('\\','/').should == @simple_file
+      end
+
+      it "should raise an error for unknown methods or properties" do
+        expect{
+          @book.Foo
+        }.to raise_error(VBAMethodMissingError, /unknown VBA property or method :Foo/)
+      end
+
+      it "should report that workbook is not alive" do
+        @book.close
+        expect{ @book.Nonexisting_method }.to raise_error(ObjectNotAlive, "method missing: workbook not alive")
+      end
+    end
+
+  end
+
+  describe "hidden_excel" do
+    
+    context "with some open book" do
+
+      before do
+        @book = Book.open(@simple_file1)
+      end
+
+      after do
+        @book.close
+      end
+
+      it "should create and use a hidden Excel instance" do
+        book2 = Book.open(@simple_file1, :force_excel => @book.bookstore.hidden_excel)
+        book2.excel.should_not == @book.excel
+        book2.excel.visible.should be_false
+        book2.excel.displayalerts.should == :if_visible
+        book2.close 
+      end
+    end
+  end
+
+  describe "nameval, set_nameval, [], []=" do
+  
+    before do
+      @book1 = Book.open(@another_simple_file)
+    end
+
+    after do
+      @book1.close(:if_unsaved => :forget)
+    end   
+
+    it "should return value of a range" do
+      @book1.nameval("new").should == "foo"
+      @book1.nameval("one").should == 1
+      @book1.nameval("firstrow").should == [[1,2]]        
+      @book1.nameval("four").should == [[1,2],[3,4]]
+      @book1.nameval("firstrow").should_not == "12"
+      @book1.nameval("firstcell").should == "foo"        
+    end
+
+    it "should return value of a range via []" do
+      @book1["new"].should == "foo"
+      @book1["one"].should == 1
+      @book1["firstrow"] == [[1,2]]        
+      @book1["four"].should == [[1,2],[3,4]]
+      @book1["firstrow"].should_not == "12"
+      @book1["firstcell"].should == "foo"        
+    end
+
+    it "should set value of a range" do
+      @book1.set_nameval("new", "bar")
+      @book1.nameval("new").should == "bar"
+    end
+
+    it "should set value of a range via []=" do
+      @book1["new"] = "bar"
+      @book1.nameval("new").should == "bar"
+    end
+
+    #it "should evaluate a formula" do
+    #  @book1.nameval("named_formula").should == 4      
+    #end
+
+    #it "should evaluate a formula via []" do
+    #  @book1["named_formula"].should == 4      
+    #end
+
+    it "should raise an error if name not defined and default value is not provided" do
+      expect {
+        @book1.nameval("foo", :default => nil)
+      }.to_not raise_error
+      expect {
+        @book1.nameval("foo", :default => :__not_provided)
+      }.to raise_error(NameNotFound, /name "foo" not in #<Book: another_workbook/)
+      expect {
+        @book1.nameval("foo")
+      }.to raise_error(NameNotFound, /name "foo" not in #<Book: another_workbook/)
+      @book1.nameval("foo", :default => nil).should be_nil
+      @book1.nameval("foo", :default => 1).should == 1
+      expect {
+          @book1.set_nameval("foo","bar")
+      }.to raise_error(NameNotFound, /name "foo" not in #<Book: another_workbook/)
+      expect {
+          @book1["foo"] = "bar"
+      }.to raise_error(NameNotFound, /name "foo" not in #<Book: another_workbook/)
+      @book1.nameval("empty", :default => 1).should be_nil
+    end    
+
+    it "should raise an error if name was defined but contents is calcuated" do
+      expect {
+        @book1.set_nameval("named_formula","bar")
+      }.to raise_error(RangeNotEvaluatable, /cannot assign value to range named "named_formula" in #<Book: another_workbook/)
+      expect {
+        @book1["named_formula"] = "bar"
+      }.to raise_error(RangeNotEvaluatable, /cannot assign value to range named "named_formula" in #<Book: another_workbook/)
+    end
+
+    # Excel Bug: for local names without uqifier: takes the first sheet as default even if another sheet is activated
+    it "should take the first sheet as default even if the second sheet is activated" do
+      @book1.nameval("Sheet1!localname").should == "bar"
+      @book1.nameval("Sheet2!localname").should == "simple"
+      @book1.nameval("localname").should == "bar"
+      @book1.Worksheets.Item(2).Activate
+      @book1.nameval("localname").should == "bar"
+      @book1.Worksheets.Item(1).Delete
+      @book1.nameval("localname").should == "simple"
+    end
+  end
+
+  describe "rename_range" do
+    
+    before do
+      @book1 = Book.open(@another_simple_file)
+    end
+
+    after do
+      @book1.close(:if_unsaved => :forget)
+    end
+
+    it "should rename a range" do
+      @book1.rename_range("four","five")
+      @book1.nameval("five").should == [[1,2],[3,4]]
+      expect {
+        @book1.rename_range("four","five")
+      }.to raise_error(NameNotFound, /name "four" not in "another_workbook.xls"/)
+    end
+  end
+
+  describe "alive?, filename, ==, visible, focus, saved, check_compatibility" do
+
+    context "with alive?" do
+
+      before do
+        @book = Book.open(@simple_file)
+      end
+
+      after do
+        @book.close
+      end
+
+      it "should return true, if book is alive" do
+        @book.should be_alive
+      end
+
+      it "should return false, if book is dead" do
+        @book.close
+        @book.should_not be_alive
+      end
+
+    end
+
+    context "with filename" do
+
+      before do
+        @book = Book.open(@simple_file)
+      end
+
+      after do
+        @book.close
+      end
+
+      it "should return full file name" do
+        @book.filename.should == @simple_file
+      end
+
+      it "should return nil for dead book" do
+        @book.close
+        @book.filename.should == nil
+      end
+
+    end
+
+    context "with ==" do
+
+      before do
+        @book = Book.open(@simple_file1)
+      end
+
+      after do
+        @book.close
+        @new_book.close rescue nil
+      end
+
+      it "should be true with two identical books" do
+        @new_book = Book.open(@simple_file1)
+        @new_book.should == @book
+      end
+
+      it "should be false with two different books" do
+        @new_book = Book.new(@different_file)
+        @new_book.should_not == @book
+      end
+
+      it "should be false with same book names but different paths" do       
+        @new_book = Book.new(@simple_file_other_path, :force_excel => :new)
+        @new_book.should_not == @book
+      end
+
+      it "should be false with same book names but different excel instances" do
+        @new_book = Book.new(@simple_file, :force_excel => :new)
+        @new_book.should_not == @book
+      end
+
+      it "should be false with non-Books" do
+        @book.should_not == "hallo"
+        @book.should_not == 7
+        @book.should_not == nil
+      end
+    end
+
+    context "with saved" do
+
+      before do
+        @book = Book.open(@simple_file)
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget)
+      end
+
+      it "should yield true for a saved book" do
+        @book.saved.should be_true
+      end
+
+      it "should yield false for an unsaved book" do
+        sheet = @book.sheet(1)
+        sheet[1,1] = sheet[1,1].value == "foo" ? "bar" : "foo"
+        @book.saved.should be_false
+      end
+    end
+
+
+    context "with :visible => " do
+
+      it "should leave the excel invisible when opening with default option" do
+        excel1 = Excel.new(:reuse => false, :visible => false)
+        book1 = Book.open(@simple_file)
+        excel1.Visible.should be_false
+        book1.Windows(book1.Name).Visible.should be_true
+        book1.visible.should be_false
+      end
+
+      it "should leave the excel invisible when opening with :visible => false" do
+        excel1 = Excel.new(:reuse => false, :visible => false)
+        book1 = Book.open(@simple_file, :visible => false)
+        excel1.Visible.should be_false
+        book1.Windows(book1.Name).Visible.should be_false
+        book1.visible.should be_false
+      end
+
+      it "should leave the excel visible" do
+        excel1 = Excel.new(:reuse => false, :visible => false)
+        book1 = Book.open(@simple_file, :visible => true)
+        excel1.Visible.should be_true
+        book1.Windows(book1.Name).Visible.should be_true
+        book1.visible.should be_true
+        book2 = Book.open(@another_simple_file)
+        excel1.Visible.should be_true
+        book2.Windows(book2.Name).Visible.should be_true
+        book2.visible.should be_true
+        book3 = Book.open(@different_file, :visible => false)
+        excel1.Visible.should be_true
+        book3.Windows(book3.Name).Visible.should be_false
+        book3.visible.should be_false
+      end
+
+      it "should leave the excel visible when opening with default option" do
+        excel1 = Excel.new(:reuse => false, :visible => true)
+        book1 = Book.open(@simple_file)
+        excel1.Visible.should be_true
+        book1.Windows(book1.Name).Visible.should be_true
+        book1.visible.should be_true
+      end
+
+      it "should leave the excel visible when opening with :visible => false" do
+        excel1 = Excel.new(:reuse => false, :visible => true)
+        book1 = Book.open(@simple_file, :visible => false)
+        excel1.Visible.should be_true
+        book1.Windows(book1.Name).Visible.should be_false
+        book1.visible.should be_false
+        book2 = Book.open(@another_simple_file)
+        excel1.Visible.should be_true
+        book2.Windows(book2.Name).Visible.should be_true
+        book2.visible.should be_true
+      end
+
+      it "should leave the excel visible" do
+        excel1 = Excel.new(:reuse => false, :visible => true)
+        book1 = Book.open(@simple_file, :visible => true)
+        excel1.Visible.should be_true
+        book1.Windows(book1.Name).Visible.should be_true
+        book1.visible.should be_true
+        book2 = Book.open(@different_file, :visible => false)
+        excel1.Visible.should be_true
+        book2.Windows(book2.Name).Visible.should be_false
+        book2.visible.should be_false
+      end
+
+      it "should leave the visibility of Excel" do
+        excel1 = Excel.new(:reuse => false, :visible => false)
+        book1 = Book.open(@simple_file, :visible => true)
+        excel1.Visible.should be_true
+        book1.Windows(book1.Name).Visible.should be_true
+        book1.visible.should be_true
+        excel1.visible = false
+        book2 = Book.open(@different_file)
+        excel1.Visible.should be_false
+        book2.Windows(book2.Name).Visible.should be_true
+        book2.visible.should be_false
+      end
+
+      it "should leave the visibility of Excel" do
+        excel1 = Excel.new(:reuse => false, :visible => false)
+        book1 = Book.open(@simple_file, :visible => false)
+        excel1.Visible.should be_false
+        book1.Windows(book1.Name).Visible.should be_false
+        book1.visible.should be_false
+        excel1.visible = true
+        book2 = Book.open(@different_file)
+        excel1.Visible.should be_true
+        book2.Windows(book2.Name).Visible.should be_true
+        book2.visible.should be_true
+      end
+    end
+
+    context "with visible, visible=" do
+
+      before do
+        @book1 = Book.open(@simple_file)
+        @book2 = Book.open(@different_file, :force_excel => :new, :visible => true)
+      end
+
+      after do
+        @book1.close
+        @book2.close
+      end
+
+      it "should make the invisible workbook visible and invisible" do
+        @book1.excel.Visible.should be_false
+        @book1.Windows(@book1.Name).Visible.should be_true
+        @book1.visible.should be_false
+        @book1.visible = true
+        @book1.Saved.should be_true
+        @book1.excel.Visible.should be_true
+        @book1.Windows(@book1.Name).Visible.should be_true
+        @book1.visible.should be_true
+        @book1.visible = false
+        @book1.Saved.should be_true
+        @book1.excel.should be_true
+        @book1.Windows(@book1.Name).Visible.should be_false
+        @book1.visible.should be_false
+        @book2.excel.Visible.should be_true
+      end
+
+      it "should make the visible workbook and the invisible workbook invisible" do
+        @book2.Windows(@book2.Name).Visible.should be_true
+        @book2.visible.should be_true
+        @book2.visible = true
+        @book2.Saved.should be_true
+        @book2.excel.Visible.should be_true
+        @book2.Windows(@book2.Name).Visible.should be_true
+        @book2.excel.visible = false
+        @book2.visible = false
+        @book2.Saved.should be_true
+        @book2.excel.Visible.should be_false
+        @book2.Windows(@book2.Name).Visible.should be_false
+        @book2.visible.should be_false
+      end
+
+    end
+
+    context "with focus" do
+
+      before do
+        @key_sender = IO.popen  'ruby "' + File.join(File.dirname(__FILE__), '../helpers/key_sender.rb') + '" "Microsoft Office Excel" '  , "w"        
+        @book = Book.open(@simple_file, :visible => true)
+        @book.excel.displayalerts = false
+        @book2 = Book.open(@another_simple_file, :visible => true)
+        @book2.excel.displayalerts = false
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget)
+        @book2.close(:if_unsaved => :forget)
+        @key_sender.close
+      end
+
+      it "should bring a book to focus" do
+        sheet = @book.sheet(2)
+        sheet.Activate
+        sheet[2,3].Activate
+        sheet2 = @book2.sheet(2)
+        sheet2.Activate
+        sheet2[3,2].Activate
+        Excel.current.should == @book.excel
+        @book2.focus
+        @key_sender.puts "{a}{enter}"
+        sleep 1
+        sheet2[3,2].Value.should == "a"
+        #Excel.current.should == @book2.excel
+        @book.focus
+        @key_sender.puts "{a}{enter}"
+        sleep 1
+        sheet[2,3].Value.should == "a"
+        Excel.current.should == @book.excel
+      end
+    end
+
+    context "with compatibility" do      
+
+      it "should open with checking compatibility" do
+        book = Book.open(@simple_file, :visible => true, :check_compatibility => true)
+        book.CheckCompatibility.should be_true
+      end
+
+      it "should open without checking compatibility" do
+        book = Book.open(@simple_file, :visible => true, :check_compatibility => false)
+        book.CheckCompatibility.should be_false
+      end
+    end
+  end
+end