robust_excel_ole 1.1.4 → 1.1.5

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

@@ -0,0 +1,395 @@
+# -*- 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'
+  end
+
+  after do
+    Excel.kill_all
+    #rm_tmp(@dir)
+  end
+
+  describe 'access sheet' do
+    before do
+      @book = Book.open(@simple_file)
+    end
+
+    after do
+      @book.close
+    end
+
+    it 'with sheet name' do
+      @book.sheet("Sheet1").should be_kind_of Sheet
+      @book.sheet("Sheet1").name.should == "Sheet1"
+    end
+
+    it 'with integer' do
+      @book.sheet(1).should be_kind_of Sheet
+      @book.sheet(1).name.should == "Sheet1"
+    end
+
+    it 'with block' do
+      @book.each do |sheet|
+        sheet.should be_kind_of Sheet
+      end
+    end
+
+    context 'open with block' do
+      it {
+        Book.open(@simple_file) do |book|
+          @book.sheet("Sheet1").should be_a Sheet
+          @book.sheet("Sheet1").name.should == "Sheet1"
+        end
+      }
+    end
+  end
+
+  describe 'access first and last sheet' do
+    before do
+      @book = Book.open(@simple_file)
+    end
+
+    it "should access the first sheet" do
+      first_sheet = @book.first_sheet
+      first_sheet.name.should == Sheet.new(@book.Worksheets.Item(1)).Name
+      first_sheet.name.should == @book.sheet(1).Name
+    end
+
+    it "should access the last sheet" do
+      last_sheet = @book.last_sheet
+      last_sheet.name.should == Sheet.new(@book.Worksheets.Item(3)).Name
+      last_sheet.name.should == @book.sheet(3).Name
+    end
+  end
+
+  describe "add_sheet" do
+    
+    context "with no given sheet" do
+
+      before do
+        @book = Book.open(@simple_file)
+        @sheet = @book.sheet(1)
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget)
+      end
+
+      it "should add empty sheet" do
+        @book.ole_workbook.Worksheets.Count.should == 3
+        @book.add_sheet
+        @book.ole_workbook.Worksheets.Count.should == 4
+      end
+
+      it "should add an empty sheet and return this added sheet" do
+        sheet = @book.add_sheet
+        copyed_sheet = @book.ole_workbook.Worksheets.Item(@book.ole_workbook.Worksheets.Count)
+        sheet.name.should eq copyed_sheet.name
+      end
+
+      it "should return new sheet" do
+        @book.add_sheet(:as => 'new sheet').name.should eq 'new sheet'
+      end
+
+      it "should add the first sheet" do
+        @book.add_sheet(:before => @sheet).name.should eq @book.sheet(1).name
+      end
+
+      it "should add the second sheet" do
+        @book.add_sheet(:after => @sheet).name.should eq @book.sheet(2).name
+      end
+
+    end
+
+    context "with copying a given sheet" do
+
+      before do
+        @book = Book.open(@simple_file)
+        @sheet = @book.sheet(1)
+        @another_book = Book.open(@another_simple_file)
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget)
+        @another_book.close(:if_unsaved => :forget)
+      end
+
+      it "should copy and append a given sheet" do
+        @book.ole_workbook.Worksheets.Count.should == 3
+        @book.add_sheet @sheet
+        @book.ole_workbook.Worksheets.Count.should == 4
+        @book.ole_workbook.Worksheets(4).Name.should == @sheet.Name + " (2)"
+      end
+
+      it "should copy sheet from another book " do
+        @book.ole_workbook.Worksheets.Count.should == 3
+        @another_book.add_sheet @sheet
+        @another_book.ole_workbook.Worksheets.Count.should == 4
+        @another_book.ole_workbook.Worksheets(4).Name.should == @sheet.Name + " (2)"
+      end
+
+      it "should return copyed sheet" do
+        sheet = @book.add_sheet @sheet
+        copyed_sheet = @book.ole_workbook.Worksheets.Item(@book.ole_workbook.Worksheets.Count)
+        sheet.name.should eq copyed_sheet.name
+      end
+
+      it "should copy a given sheet and name the copyed sheet to 'copyed_name'" do
+        @book.add_sheet(@sheet, :as => 'copyed_name').name.should eq 'copyed_name'
+      end
+    
+      it "should copy the first sheet and insert it before the first sheet" do
+        @book.add_sheet(@sheet, :before => @sheet).name.should eq @book.sheet(1).name
+      end
+   
+      it "should copy the first sheet and insert it after the first sheet" do
+        @book.add_sheet(@sheet, :after => @sheet).name.should eq @book.sheet(2).name
+      end
+    
+      it "should copy the first sheet before the third sheet and give 'before' the highest priority" do
+        @book.add_sheet(@sheet, :after => @sheet, :before => @book.sheet(3))
+        @book.Worksheets.Count.should == 4
+      end
+
+      it "should copy the first sheet before the third sheet and give 'before' the highest priority" do
+        @book.add_sheet(@sheet, :before => @book.sheet(3), :after => @sheet)
+        @book.Worksheets.Count.should == 4
+      end
+        
+      it "should raise error with giving a name that already exists" do
+        @book.add_sheet(@sheet, :as => 'new_sheet')
+        expect{
+          @book.add_sheet(@sheet, :as => 'new_sheet')
+          }.to raise_error(NameAlreadyExists, /sheet name "new_sheet" already exists/)
+      end
+    end
+  end
+
+  describe "add_empty_sheet" do
+    
+    before do
+      @book = Book.open(@simple_file)
+      @sheet = @book.sheet(1)
+    end
+
+    after do
+      @book.close(:if_unsaved => :forget)
+    end
+
+    it "should add empty sheet" do
+      @book.ole_workbook.Worksheets.Count.should == 3
+      @book.add_empty_sheet
+      @book.ole_workbook.Worksheets.Count.should == 4
+    end
+
+    it "should add an empty sheet and return this added sheet" do
+      sheet = @book.add_empty_sheet
+      copyed_sheet = @book.ole_workbook.Worksheets.Item(@book.ole_workbook.Worksheets.Count)
+      sheet.name.should eq copyed_sheet.name
+    end
+
+    it "should return new sheet" do
+      @book.add_empty_sheet(:as => 'new sheet').name.should eq 'new sheet'
+    end
+
+    it "should add the first sheet" do
+      @book.add_empty_sheet(:before => @sheet).name.should eq @book.sheet(1).name
+    end
+
+    it "should add the second sheet" do
+      @book.add_empty_sheet(:after => @sheet).name.should eq @book.sheet(2).name
+    end
+  end  
+
+  describe "copy_sheet" do
+
+    before do
+      @book = Book.open(@simple_file)
+      @sheet = @book.sheet(1)
+      @another_book = Book.open(@another_simple_file)
+    end
+
+    after do
+      @book.close(:if_unsaved => :forget)
+      @another_book.close(:if_unsaved => :forget)
+    end
+
+    it "should copy and append a given sheet" do
+      @book.ole_workbook.Worksheets.Count.should == 3
+      @book.copy_sheet @sheet
+      @book.ole_workbook.Worksheets.Count.should == 4
+      @book.ole_workbook.Worksheets(4).Name.should == @sheet.Name + " (2)"
+    end
+
+    it "should copy sheet from another book " do
+      @book.ole_workbook.Worksheets.Count.should == 3
+      @another_book.copy_sheet @sheet
+      @another_book.ole_workbook.Worksheets.Count.should == 4
+      @another_book.ole_workbook.Worksheets(4).Name.should == @sheet.Name + " (2)"
+    end
+
+    it "should return copyed sheet" do
+      sheet = @book.add_sheet @sheet
+      copyed_sheet = @book.ole_workbook.Worksheets.Item(@book.ole_workbook.Worksheets.Count)
+      sheet.name.should eq copyed_sheet.name
+    end
+
+    it "should copy a given sheet and name the copyed sheet to 'copyed_name'" do
+      @book.copy_sheet(@sheet, :as => 'copyed_name').name.should eq 'copyed_name'
+    end
+  
+    it "should copy the first sheet and insert it before the first sheet" do
+      @book.copy_sheet(@sheet, :before => @sheet).name.should eq @book.sheet(1).name
+    end
+ 
+    it "should copy the first sheet and insert it after the first sheet" do
+      @book.copy_sheet(@sheet, :after => @sheet).name.should eq @book.sheet(2).name
+    end
+  
+    it "should copy the first sheet before the third sheet and give 'before' the highest priority" do
+      @book.copy_sheet(@sheet, :after => @sheet, :before => @book.sheet(3))
+      @book.Worksheets.Count.should == 4
+    end
+
+    it "should copy the first sheet before the third sheet and give 'before' the highest priority" do
+      @book.copy_sheet(@sheet, :before => @book.sheet(3), :after => @sheet)
+      @book.Worksheets.Count.should == 4
+    end
+      
+    it "should raise error with giving a name that already exists" do
+      @book.copy_sheet(@sheet, :as => 'new_sheet')
+      expect{
+        @book.copy_sheet(@sheet, :as => 'new_sheet')
+        }.to raise_error(NameAlreadyExists, /sheet name "new_sheet" already exists/)
+    end
+  end
+
+  describe "add_or_copy_sheet" do
+    
+    context "with no given sheet" do
+
+      before do
+        @book = Book.open(@simple_file)
+        @sheet = @book.sheet(1)
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget)
+      end
+
+      it "should add empty sheet" do
+        @book.ole_workbook.Worksheets.Count.should == 3
+        @book.add_or_copy_sheet
+        @book.ole_workbook.Worksheets.Count.should == 4
+      end
+
+      it "should add an empty sheet and return this added sheet" do
+        sheet = @book.add_or_copy_sheet
+        copyed_sheet = @book.ole_workbook.Worksheets.Item(@book.ole_workbook.Worksheets.Count)
+        sheet.name.should eq copyed_sheet.name
+      end
+
+      it "should return new sheet" do
+        @book.add_or_copy_sheet(:as => 'new sheet').name.should eq 'new sheet'
+      end
+
+      it "should add the first sheet" do
+        @book.add_or_copy_sheet(:before => @sheet).name.should eq @book.sheet(1).name
+      end
+
+      it "should add the second sheet" do
+        @book.add_or_copy_sheet(:after => @sheet).name.should eq @book.sheet(2).name
+      end
+
+    end
+
+    context "with copying a given sheet" do
+
+      before do
+        @book = Book.open(@simple_file)
+        @sheet = @book.sheet(1)
+        @another_book = Book.open(@another_simple_file)
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget)
+        @another_book.close(:if_unsaved => :forget)
+      end
+
+      it "should copy and append a given sheet" do
+        @book.ole_workbook.Worksheets.Count.should == 3
+        @book.add_or_copy_sheet @sheet
+        @book.ole_workbook.Worksheets.Count.should == 4
+        @book.ole_workbook.Worksheets(4).Name.should == @sheet.Name + " (2)"
+      end
+
+      it "should copy sheet from another book " do
+        @book.ole_workbook.Worksheets.Count.should == 3
+        @another_book.add_or_copy_sheet @sheet
+        @another_book.ole_workbook.Worksheets.Count.should == 4
+        @another_book.ole_workbook.Worksheets(4).Name.should == @sheet.Name + " (2)"
+      end
+
+      it "should return copyed sheet" do
+        sheet = @book.add_or_copy_sheet @sheet
+        copyed_sheet = @book.ole_workbook.Worksheets.Item(@book.ole_workbook.Worksheets.Count)
+        sheet.name.should eq copyed_sheet.name
+      end
+
+      it "should copy a given sheet and name the copyed sheet to 'copyed_name'" do
+        @book.add_or_copy_sheet(@sheet, :as => 'copyed_name').name.should eq 'copyed_name'
+      end
+    
+      it "should copy the first sheet and insert it before the first sheet" do
+        @book.add_or_copy_sheet(@sheet, :before => @sheet).name.should eq @book.sheet(1).name
+      end
+   
+      it "should copy the first sheet and insert it after the first sheet" do
+        @book.add_or_copy_sheet(@sheet, :after => @sheet).name.should eq @book.sheet(2).name
+      end
+    
+      it "should copy the first sheet before the third sheet and give 'before' the highest priority" do
+        @book.add_or_copy_sheet(@sheet, :after => @sheet, :before => @book.sheet(3))
+        @book.Worksheets.Count.should == 4
+      end
+
+      it "should copy the first sheet before the third sheet and give 'before' the highest priority" do
+        @book.add_or_copy_sheet(@sheet, :before => @book.sheet(3), :after => @sheet)
+        @book.Worksheets.Count.should == 4
+      end
+        
+      it "should raise error with giving a name that already exists" do
+        @book.add_or_copy_sheet(@sheet, :as => 'new_sheet')
+        expect{
+          @book.add_or_copy_sheet(@sheet, :as => 'new_sheet')
+          }.to raise_error(NameAlreadyExists, /sheet name "new_sheet" already exists/)
+      end
+    end
+  end
+
+end

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

@@ -0,0 +1,51 @@
+# -*- coding: utf-8 -*-
+
+require File.join(File.dirname(__FILE__), './../spec_helper')
+
+
+module My # :nodoc: #
+  class Excel < RobustExcelOle::Excel # :nodoc: #
+  end
+
+  class Book < RobustExcelOle::Book   # :nodoc: #
+  end
+
+end
+
+describe "subclassed Book" do
+
+  before(:all) do
+    excel = RobustExcelOle::Excel.new(:reuse => true)
+    open_books = excel == nil ? 0 : excel.Workbooks.Count
+    puts "*** open books *** : #{open_books}" if open_books > 0
+    RobustExcelOle::Excel.kill_all
+  end
+
+  before do
+    @dir = create_tmpdir
+    @simple_file = @dir + '/workbook.xls'
+  end
+
+  after do
+    RobustExcelOle::Excel.kill_all
+    rm_tmp(@dir)
+  end
+
+  
+  describe "open" do
+
+    it "should use the subclassed Excel" do
+      #REO::Book.open(@simple_file) do |book|
+      My::Book.open(@simple_file) do |book|
+        book.should be_a RobustExcelOle::Book
+        book.should be_a My::Book
+        book.excel.should be_a RobustExcelOle::Excel
+        book.excel.class.should == My::Excel
+        book.excel.should be_a My::Excel
+      end
+    end
+
+  end
+
+  
+end

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

@@ -0,0 +1,1737 @@
+# -*- 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 "unobtrusively" do
+
+    def unobtrusively_ok? # :nodoc: #
+      Book.unobtrusively(@simple_file) do |book|
+        book.should be_a Book
+        sheet = book.sheet(1)
+        sheet[1,1] = sheet[1,1].value == "foo" ? "bar" : "foo"
+        book.should be_alive
+        book.Saved.should be_false
+      end
+    end
+
+    it "should do simple unobtrusively" do
+      expect{unobtrusively_ok?}.to_not raise_error
+    end
+
+    describe "writability" do
+
+      context "with no book" do
+
+        it "should open read-write" do
+          Book.unobtrusively(@simple_file1) do |book|            
+            book.ReadOnly.should be_false
+            @old_value = book.sheet(1)[1,1].Value
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            book.Saved.should be_false
+          end          
+          Excel.current.Workbooks.Count.should == 0
+          b1 = Book.open(@simple_file1)
+          b1.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should open as read-write" do
+          Book.unobtrusively(@simple_file, :read_only => false) do |book|
+            book.ReadOnly.should be_false
+            @old_value = book.sheet(1)[1,1].Value
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            book.Saved.should be_false
+          end
+          Excel.current.Workbooks.Count.should == 0
+          b1 = Book.open(@simple_file1)
+          b1.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should open as read-write" do
+          Book.unobtrusively(@simple_file, :read_only => false, :writable => false) do |book|
+            book.ReadOnly.should be_false
+            @old_value = book.sheet(1)[1,1].Value
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            book.Saved.should be_false
+          end
+          Excel.current.Workbooks.Count.should == 0
+          b1 = Book.open(@simple_file1)
+          b1.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should open as read-write" do
+          Book.unobtrusively(@simple_file, :writable => true) do |book|
+            book.ReadOnly.should be_false
+            @old_value = book.sheet(1)[1,1].Value
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            book.Saved.should be_false
+          end
+          Excel.current.Workbooks.Count.should == 0
+          b1 = Book.open(@simple_file1)
+          b1.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should open as read-write" do
+          Book.unobtrusively(@simple_file, :writable => true, :read_only => false) do |book|
+            book.ReadOnly.should be_false
+            @old_value = book.sheet(1)[1,1].Value
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            book.Saved.should be_false
+          end
+          Excel.current.Workbooks.Count.should == 0
+          b1 = Book.open(@simple_file1)
+          b1.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should open read-only" do
+          Book.unobtrusively(@simple_file, :read_only => true) do |book|            
+            book.ReadOnly.should be_true
+            @old_value = book.sheet(1)[1,1].Value
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            book.Saved.should be_false
+          end
+          Excel.current.Workbooks.Count.should == 0
+          b1 = Book.open(@simple_file1)
+          b1.sheet(1)[1,1].Value.should == @old_value
+        end
+
+        it "should open read-only" do
+          Book.unobtrusively(@simple_file, :read_only => true, :writable => false) do |book|            
+            book.ReadOnly.should be_true
+            @old_value = book.sheet(1)[1,1].Value
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            book.Saved.should be_false
+          end
+          Excel.current.Workbooks.Count.should == 0
+          b1 = Book.open(@simple_file1)
+          b1.sheet(1)[1,1].Value.should == @old_value
+        end
+
+        it "should open not writable" do
+          Book.unobtrusively(@simple_file, :writable => false) do |book|
+            book.ReadOnly.should be_true
+            @old_value = book.sheet(1)[1,1].Value
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            book.Saved.should be_false            
+          end
+          Excel.current.Workbooks.Count.should == 0          
+          b1 = Book.open(@simple_file1)
+          b1.sheet(1)[1,1].Value.should == @old_value
+        end
+
+        it "should raise error if both options are true" do          
+          expect{
+            Book.unobtrusively(@simple_file, :writable => true, :read_only => true) {|book|}
+          }.to raise_error(OptionInvalid, "contradicting options")
+        end
+      end
+  
+      context "with open writable book" do
+
+        before do
+           @book = Book.open(@simple_file1)
+           @old_value = @book.sheet(1)[1,1].Value
+        end
+
+        it "should open as read-write by default" do
+          Book.unobtrusively(@simple_file1) do |book|
+            book.Readonly.should be_false
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should open as read-write" do
+          Book.unobtrusively(@simple_file1, :read_only => false) do |book|
+            book.Readonly.should be_false
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should open as read-write" do
+          Book.unobtrusively(@simple_file1, :read_only => false, :writable => false) do |book|
+            book.Readonly.should be_false
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should open as read-write" do
+          Book.unobtrusively(@simple_file1, :writable => true) do |book|
+            book.Readonly.should be_false
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should open as read-write" do          
+          Book.unobtrusively(@simple_file1, :writable => true, :read_only => false) do |book|
+            book.Readonly.should be_false
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should force to read-only" do
+          Book.unobtrusively(@simple_file1, :read_only => true) do |book|            
+            book.ReadOnly.should be_true
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+        end
+
+        it "should force to read-only" do
+          Book.unobtrusively(@simple_file1, :read_only => true, :writable => false) do |book|            
+            book.ReadOnly.should be_true
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+        end
+
+        it "should open not writable" do
+          Book.unobtrusively(@simple_file1, :writable => false) do |book|
+            book.ReadOnly.should be_false
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+        end
+      end
+
+      context "with open read-only book" do
+
+        before do
+          @book = Book.open(@simple_file1, :read_only => true)
+          @old_value = @book.sheet(1)[1,1].Value 
+        end
+
+        it "should not change the read_only mode" do
+          Book.unobtrusively(@simple_file1) do |book|
+            book.Readonly.should be_true
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+        end
+
+        it "should open as read-write" do
+          Book.unobtrusively(@simple_file1, :read_only => false) do |book|
+            book.Readonly.should be_true
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+        end
+
+        it "should open as read-write" do
+          Book.unobtrusively(@simple_file1, :read_only => false, :writable => false) do |book|
+            book.Readonly.should be_true
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+        end
+
+        it "should force to read-write" do
+          Book.unobtrusively(@simple_file1, :writable => true) do |book|
+            book.Readonly.should be_false
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should force to read-write" do
+          Book.unobtrusively(@simple_file1, :writable => true, :read_only => false) do |book|
+            book.Readonly.should be_false
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should force to read-write" do
+          e1 = Excel.create
+          Book.unobtrusively(@simple_file1, :writable => true, :rw_change_excel => e1) do |book|
+            book.Readonly.should be_false
+            book.filename.should == @book.filename
+            book.excel.should == e1
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should force to read-write" do
+          Book.unobtrusively(@simple_file1, :writable => true, :rw_change_excel => :current) do |book|
+            book.Readonly.should be_false
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should force to read-write" do
+          Book.unobtrusively(@simple_file1, :writable => true, :rw_change_excel => :new) do |book|
+            book.Readonly.should be_false
+            book.filename.should == @book.filename
+            book.excel.should_not == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should force to read-write" do
+          Book.unobtrusively(@simple_file1, :writable => true, :read_only => false) do |book|
+            book.Readonly.should be_false
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should force to read-only" do
+          Book.unobtrusively(@simple_file1, :read_only => true) do |book|            
+            book.ReadOnly.should be_true
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+        end
+
+        it "should force to read-only" do
+          Book.unobtrusively(@simple_file1, :read_only => true, :writable => false) do |book|            
+            book.ReadOnly.should be_true
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+        end
+
+        it "should open not writable" do
+          Book.unobtrusively(@simple_file1, :writable => false) do |book|
+            book.ReadOnly.should be_true
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == @old_value
+        end
+      end
+
+      context "with open unsaved writable book" do
+
+        before do
+           @book = Book.open(@simple_file1)           
+           @book.sheet(1)[1,1] = @book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"           
+           @old_value = @book.sheet(1)[1,1].Value
+        end
+
+        it "should open as read-write by default" do
+          Book.unobtrusively(@simple_file1) do |book|
+            book.Readonly.should be_false
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.Saved.should be_false
+          @book.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should open as read-write" do
+          Book.unobtrusively(@simple_file1, :read_only => false) do |book|
+            book.Readonly.should be_false
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.Saved.should be_false
+          @book.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should open as read-write" do
+          Book.unobtrusively(@simple_file1, :read_only => false, :writable => false) do |book|
+            book.Readonly.should be_false
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.Saved.should be_false
+          @book.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should force to read-write" do
+          Book.unobtrusively(@simple_file1, :writable => true) do |book|
+            book.Readonly.should be_false
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.Saved.should be_false
+          @book.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should open as read-write" do          
+          Book.unobtrusively(@simple_file1, :writable => true, :read_only => false) do |book|
+            book.Readonly.should be_false
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.Saved.should be_false
+          @book.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should force to read-only (not implemented)" do
+          expect{
+            Book.unobtrusively(@simple_file1, :read_only => true) 
+          }.to raise_error(NotImplementedREOError)
+        end
+
+        it "should force to read-only (not implemented)" do
+          expect{
+            Book.unobtrusively(@simple_file1, :read_only => true, :writable => false) 
+          }.to raise_error(NotImplementedREOError)
+        end
+
+        #it "should force to read-only (not implemented)" do
+        #  expect{
+        #    Book.unobtrusively(@simple_file1, :read_only => true) do |book|            
+        #      book.ReadOnly.should be_true
+        #      book.should == @book
+        #      book.filename.should == @book.filename
+        #      book.excel.should == @book.excel
+        #      book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+        #    end
+        #    @book.Saved.should be_false
+        #    @book.sheet(1)[1,1].Value.should == @old_value
+        #  end
+        #  }.to raise_error(NotImplementedREOError)
+        #end
+
+        #it "should force to read-only" do
+        #  expect{
+        #    Book.unobtrusively(@simple_file1, :read_only => true, :writable => false) do |book|            
+        #      book.ReadOnly.should be_true
+        #      book.should == @book
+        #      book.filename.should == @book.filename
+        #      book.excel.should == @book.excel
+        #      book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+        #    end
+        #    @book.Saved.should be_false
+        #    @book.sheet(1)[1,1].Value.should == @old_value
+        #  end
+        #  }.to raise_error(NotImplementedREOError)
+        #end
+
+        it "should open not writable" do
+          Book.unobtrusively(@simple_file1, :writable => false) do |book|
+            book.ReadOnly.should be_false
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.Saved.should be_false
+          @book.sheet(1)[1,1].Value.should_not == @old_value
+          @book.close(:if_unsaved => :forget)
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+      end
+
+      context "with open unsaved read-only book" do
+
+        before do
+          @book = Book.open(@simple_file1, :read_only => true)          
+          @book.sheet(1)[1,1] = @book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          @old_value = @book.sheet(1)[1,1].Value
+        end
+
+        it "should open as read-only by default" do
+          Book.unobtrusively(@simple_file1) do |book|
+            book.Readonly.should be_true
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.Saved.should be_false
+          @book.ReadOnly.should be_true
+          @book.sheet(1)[1,1].Value.should_not == @old_value
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should open as read-only" do
+          Book.unobtrusively(@simple_file1, :read_only => false) do |book|
+            book.Readonly.should be_true
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.Saved.should be_false
+          @book.ReadOnly.should be_true
+          @book.sheet(1)[1,1].Value.should_not == @old_value
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should open as read-only" do
+          Book.unobtrusively(@simple_file1, :read_only => false, :writable => false) do |book|
+            book.Readonly.should be_true
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.Saved.should be_false
+          @book.ReadOnly.should be_true
+          @book.sheet(1)[1,1].Value.should_not == @old_value
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+    
+        it "should raise an error" do
+          expect{
+            Book.unobtrusively(@simple_file1, :writable => true)
+            }.to raise_error(NotImplementedREOError, "unsaved read-only workbook shall be written")
+        end
+
+        it "should raise an error" do
+           expect{
+            Book.unobtrusively(@simple_file1, :writable => true)
+            }.to raise_error(NotImplementedREOError, "unsaved read-only workbook shall be written")
+        end
+
+        it "should force to read-only" do
+          Book.unobtrusively(@simple_file1, :read_only => true) do |book|            
+            book.ReadOnly.should be_true
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+          end
+          @book.Saved.should be_false
+          @book.ReadOnly.should be_true
+          @book.sheet(1)[1,1].Value.should_not == @old_value
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should force to read-only" do
+          Book.unobtrusively(@simple_file1, :read_only => true, :writable => false) do |book|            
+            book.ReadOnly.should be_true
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+          end
+          @book.Saved.should be_false
+          @book.ReadOnly.should be_true
+          @book.sheet(1)[1,1].Value.should_not == @old_value
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+
+        it "should open not writable" do
+          Book.unobtrusively(@simple_file1, :writable => false) do |book|
+            book.ReadOnly.should be_true
+            book.should == @book
+            book.filename.should == @book.filename
+            book.excel.should == @book.excel
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+          end
+          @book.Saved.should be_false
+          @book.ReadOnly.should be_true
+          @book.sheet(1)[1,1].Value.should_not == @old_value
+          @book.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == @old_value
+        end
+      end
+
+    end
+
+    describe "intertweened blocks" do
+
+      context "with no book" do
+      
+        it "should not close the book in the outer block" do
+          Book.unobtrusively(@simple_file1) do |book|
+            Book.unobtrusively(@simple_file1) do |book2|
+              book2.should == book
+            end
+            book.should be_alive
+            Book.unobtrusively(@simple_file1) do |book3|
+              book3.should == book
+            end
+            book.should be_alive
+          end
+        end
+
+        it "should write in the outer and inner block" do
+          Book.unobtrusively(@simple_file1) do |book|
+            @old_value = book.sheet(1)[1,1].Value
+            book.ReadOnly.should be_false
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+            book.Saved.should be_false
+            book.sheet(1)[1,1].Value.should_not == @old_value
+            Book.unobtrusively(@simple_file1) do |book2|
+              book2.should == book
+              book2.ReadOnly.should be_false
+              book2.Saved.should be_false
+              book2.sheet(1)[1,1].Value.should_not == @old_value
+              book2.sheet(1)[1,1] = book2.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+              book2.sheet(1)[1,1].Value.should == @old_value
+            end
+            book.should be_alive
+            book.Saved.should be_false
+            book.sheet(1)[1,1].Value.should == @old_value            
+          end
+          book = Book.open(@simple_file1)
+          book.sheet(1)[1,1].Value.should == @old_value 
+        end
+
+        it "should write in the outer and not in the inner block" do
+          expect{
+          Book.unobtrusively(@simple_file1) do |book|
+            @old_value = book.sheet(1)[1,1].Value
+            book.ReadOnly.should be_false
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+            book.Saved.should be_false
+            book.sheet(1)[1,1].Value.should_not == @old_value
+            Book.unobtrusively(@simple_file1, :read_only => true) do |book2|
+              book2.should == book
+              book2.ReadOnly.should be_true
+              #book2.Saved.should be_false
+              book2.sheet(1)[1,1].Value.should_not == @old_value
+              book2.sheet(1)[1,1] = book2.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+              book2.sheet(1)[1,1].Value.should == @old_value
+            end
+            book.should be_alive
+            book.Saved.should be_false
+            book.sheet(1)[1,1].Value.should_not == @old_value            
+          end
+          book = Book.open(@simple_file1)
+          book.sheet(1)[1,1].Value.should_not == @old_value
+          }.to raise_error(NotImplementedREOError)
+        end
+
+        it "should write in the outer and not in the inner block" do
+          Book.unobtrusively(@simple_file1) do |book|
+            @old_value = book.sheet(1)[1,1].Value
+            book.ReadOnly.should be_false
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+            book.Saved.should be_false
+            book.sheet(1)[1,1].Value.should_not == @old_value
+            Book.unobtrusively(@simple_file1, :writable => false) do |book2|
+              book2.should == book
+              book2.ReadOnly.should be_false
+              book2.Saved.should be_false
+              book2.sheet(1)[1,1].Value.should_not == @old_value
+              book2.sheet(1)[1,1] = book2.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+              book2.sheet(1)[1,1].Value.should == @old_value
+            end
+            book.should be_alive
+            book.Saved.should be_false
+            book.sheet(1)[1,1].Value.should == @old_value            
+          end
+          book = Book.open(@simple_file1)
+          book.sheet(1)[1,1].Value.should == @old_value
+        end
+
+        it "should be read-only in the outer and write in the inner block" do
+          Book.unobtrusively(@simple_file1, :read_only => true) do |book|
+            @old_value = book.sheet(1)[1,1].Value
+            book.ReadOnly.should be_true
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+            book.Saved.should be_false
+            book.sheet(1)[1,1].Value.should_not == @old_value
+            Book.unobtrusively(@simple_file1) do |book2|
+              book2.should == book
+              book2.ReadOnly.should be_true
+              book2.Saved.should be_false
+              book2.sheet(1)[1,1].Value.should_not == @old_value
+              book2.sheet(1)[1,1] = book2.sheet(1)[1,1].Value == "foo" ? "bar" : "foo" 
+              book2.sheet(1)[1,1].Value.should == @old_value
+            end
+            book.should be_alive
+            book.Saved.should be_false
+            book.ReadOnly.should be_true
+            book.sheet(1)[1,1].Value.should == @old_value            
+          end
+          book = Book.open(@simple_file1)
+          book.sheet(1)[1,1].Value.should == @old_value
+        end
+
+      end
+
+    end
+
+    describe "unchanging" do
+
+      context "with openess" do
+
+        it "should remain closed" do
+          Book.unobtrusively(@simple_file) do |book|
+          end
+          Excel.current.Workbooks.Count.should == 0
+        end
+
+        it "should remain open" do
+          book1 = Book.open(@simple_file1)
+          Book.unobtrusively(@simple_file1) do |book|
+            #book.should be_a Book
+            book.should be_alive
+          end
+          #book1.should be_alive
+        end
+
+      end
+
+      context "with writability" do
+
+        it "should remain read_only" do
+          book1 = Book.open(@simple_file1, :read_only => true)
+          Book.unobtrusively(@simple_file1) do |book|
+          end
+          book1.ReadOnly.should be_true
+        end
+
+        it "should remain writable" do
+          book1 = Book.open(@simple_file1, :read_only => false)
+          Book.unobtrusively(@simple_file1) do |book|
+          end
+          book1.ReadOnly.should be_false
+        end
+
+        it "should write and remain read_only and open the workbook in another Excel" do
+          book1 = Book.open(@simple_file1, :read_only => true)
+          old_value = book1.sheet(1)[1,1].Value
+          Book.unobtrusively(@simple_file1) do |book|
+            sheet = book.sheet(1)
+            sheet[1,1] = sheet[1,1].value == "foo" ? "bar" : "foo"
+            book.excel.should == book1.excel
+          end
+          book1.ReadOnly.should be_true
+          book1.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should == old_value
+        end
+
+        it "should write and remain read_only and open the workbook in the same Excel" do
+          book1 = Book.open(@simple_file1, :read_only => true)
+          old_value = book1.sheet(1)[1,1].Value
+          Book.unobtrusively(@simple_file1, :writable => true) do |book|
+            book.ReadOnly.should be_false
+            sheet = book.sheet(1)
+            sheet[1,1] = sheet[1,1].value == "foo" ? "bar" : "foo"
+            book.excel.should == book1.excel
+          end
+          book1.ReadOnly.should be_true
+          book1.close
+          book2 = Book.open(@simple_file1)
+          book2.sheet(1)[1,1].Value.should_not == old_value
+        end
+
+      end
+
+      context "with visibility" do
+
+        it "should remain invisible" do
+          book1 = Book.open(@simple_file1, :visible => false)
+          Book.unobtrusively(@simple_file1) do |book|
+          end
+          book1.excel.Visible.should be_false
+        end
+
+        it "should remain visible" do
+          book1 = Book.open(@simple_file1, :visible => true)
+          Book.unobtrusively(@simple_file1) do |book|
+          end
+          book1.excel.Visible.should be_true
+          book1.Windows(book1.Name).Visible.should be_true
+        end
+
+      end
+
+      context "with check-compatibility" do
+
+        it "should remain check-compatibility false" do
+          book1 = Book.open(@simple_file1, :check_compatibility => false)
+          Book.unobtrusively(@simple_file1) do |book|
+          end
+          book1.CheckCompatibility.should be_false
+        end
+
+        it "should remain check-compatibility true" do
+          book1 = Book.open(@simple_file1, :check_compatibility => true)
+          Book.unobtrusively(@simple_file1) do |book|
+          end
+          book1.CheckCompatibility.should be_true
+        end
+
+      end
+
+      context "with calculation" do
+
+        it "should remain the calculation mode" do
+          book1 = Book.open(@simple_file1)
+          old_calculation = book1.excel.calculation
+          Book.unobtrusively(@simple_file1) do |book|
+          end
+          book1.excel.calculation.should == old_calculation
+        end
+      
+        it "should remain calculation manual" do
+          book1 = Book.open(@simple_file1, :calculation => :manual)
+          Book.unobtrusively(@simple_file1) do |book|
+          end
+          book1.excel.Calculation.should == -4135
+        end
+
+        it "should remain calculation automatic" do
+          book1 = Book.open(@simple_file1, :calculation => :automatic)
+          Book.unobtrusively(@simple_file1) do |book|
+          end
+          book1.excel.Calculation.should == -4105
+        end
+       
+      end
+    end
+
+    context "with no open book" do
+
+      it "should open unobtrusively if no Excel is open" do
+        Excel.close_all
+        Book.unobtrusively(@simple_file) do |book|
+          book.should be_a Book
+          book.excel.Visible.should be_false
+          book.CheckCompatibility.should be_false
+          book.ReadOnly.should be_false
+        end
+      end
+
+      it "should open unobtrusively in a new Excel" do
+        expect{ unobtrusively_ok? }.to_not raise_error
+      end
+    end
+
+    context "with two running excel instances" do
+      
+      before :all do
+        Excel.close_all
+      end
+
+      before do
+        @excel1 = Excel.new(:reuse => false)
+        @excel2 = Excel.new(:reuse => false)
+      end
+
+      after do
+        Excel.kill_all
+      end
+
+      it "should open unobtrusively in the first opened Excel" do
+        Book.unobtrusively(@simple_file) do |book|
+          book.excel.should     == @excel1
+          book.excel.should_not == @excel2
+        end
+      end
+
+      it "should open unobtrusively in a new Excel" do
+        Book.unobtrusively(@simple_file, :if_closed => :new) do |book|
+          book.should be_a Book
+          book.should be_alive
+          book.excel.should_not == @excel1
+          book.excel.should_not == @excel2
+        end
+      end
+
+      it "should open unobtrusively in a given Excel" do
+        Book.unobtrusively(@simple_file, :if_closed => @excel2) do |book|
+          book.should be_a Book
+          book.should be_alive
+          book.excel.should_not == @excel1
+          book.excel.should     == @excel2
+        end
+      end
+
+      it "should open in another Excel instance if the given Excel instance is not alive" do
+        Excel.kill_all
+        sleep 2
+        expect{
+          Book.unobtrusively(@simple_file, :if_closed => @excel2) do |book|
+            book.should be_alive
+          end
+        }.to_not raise_error
+      end
+
+      it "should raise an error if the option is invalid" do
+        expect{
+          Book.unobtrusively(@simple_file, :if_closed => :invalid_option) do |book|
+          end
+        }.to raise_error(TypeREOError, "given object is neither an Excel, a Workbook, nor a Win32ole")
+      end
+
+    end
+
+    context "with an open book" do
+
+      before do
+        @book = Book.open(@simple_file1)
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget)
+        @book2.close(:if_unsaved => :forget) rescue nil
+      end
+
+      it "should let an open Book open if it has been closed and opened again" do
+        @book.close
+        @book.reopen
+        Book.unobtrusively(@simple_file1) do |book|
+          book.should be_a Book
+          book.should be_alive
+          book.excel.should == @book.excel
+        end        
+        @book.should be_alive
+        @book.should be_a Book
+      end
+
+      it "should let an open Book open if two books have been opened and one has been closed and opened again" do
+        book2 = Book.open(@different_file, :force_excel => :new)
+        @book.close
+        book2.close
+        @book.reopen
+        Book.unobtrusively(@simple_file1) do |book|
+          book.should be_a Book
+          book.should be_alive
+          book.excel.should == @book.excel
+        end        
+        @book.should be_alive
+        @book.should be_a Book
+      end
+
+      it "should open in the Excel of the given Book" do
+        #book1 = Book.open(@different_file)
+        @book2 = Book.open(@another_simple_file, :force_excel => :new)
+        Book.unobtrusively(@different_file, :if_closed => @book2) do |book|
+          book.should be_a Book
+          book.should be_alive
+          book.excel.should_not == @book.excel
+          book.excel.should     == @book2.excel
+        end
+      end
+
+      it "should let a saved book saved" do
+        @book.Saved.should be_true
+        @book.should be_alive
+        sheet = @book.sheet(1)
+        old_cell_value = sheet[1,1].value
+        unobtrusively_ok?
+        @book.Saved.should be_true
+        @book.should be_alive
+        sheet = @book.sheet(1)
+        sheet[1,1].value.should_not == old_cell_value
+      end
+
+     it "should let the unsaved book unsaved" do
+        sheet = @book.sheet(1)
+        sheet[1,1] = sheet[1,1].value == "foo" ? "bar" : "foo"
+        old_cell_value = sheet[1,1].value
+        @book.Saved.should be_false
+        unobtrusively_ok?
+        @book.should be_alive
+        @book.Saved.should be_false
+        @book.close(:if_unsaved => :forget)
+        @book2 = Book.open(@simple_file1)
+        sheet2 = @book2.sheet(1)
+        sheet2[1,1].value.should_not == old_cell_value
+      end
+
+      it "should modify unobtrusively the second, writable book" do
+        @book2 = Book.open(@simple_file1, :force_excel => :new)
+        @book.ReadOnly.should be_false
+        @book2.ReadOnly.should be_true
+        sheet = @book2.sheet(1)
+        old_cell_value = sheet[1,1].value
+        sheet[1,1] = sheet[1,1].value == "foo" ? "bar" : "foo"
+        unobtrusively_ok?
+        @book2.should be_alive
+        @book2.Saved.should be_false
+        @book2.close(:if_unsaved => :forget)
+        @book.close
+        new_book = Book.open(@simple_file1)
+        sheet2 = new_book.sheet(1)
+        sheet2[1,1].value.should_not == old_cell_value
+      end    
+    end
+
+
+    context "with a closed book" do
+      
+      before do
+        @book = Book.open(@simple_file)
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget)
+      end
+
+      it "should let the closed book closed by default" do
+        sheet = @book.sheet(1)
+        old_cell_value = sheet[1,1].value
+        @book.close
+        @book.should_not be_alive
+        unobtrusively_ok?
+        @book.should_not be_alive
+        new_book = Book.open(@simple_file1)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should_not == old_cell_value
+      end
+
+      # The bold reanimation of the @book
+      it "should use the excel of the book and keep open the book" do
+        excel = Excel.new(:reuse => false)
+        sheet = @book.sheet(1)
+        old_cell_value = sheet[1,1].value
+        @book.close
+        @book.should_not be_alive
+        Book.unobtrusively(@simple_file, :keep_open => true) do |book|
+          book.should be_a Book
+          book.excel.should == @book.excel
+          book.excel.should_not == excel
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.value == "foo" ? "bar" : "foo"
+          book.Saved.should be_false
+        end
+        @book.should be_alive
+        @book.close
+        new_book = Book.open(@simple_file1)
+        sheet = new_book.sheet(1)
+        sheet[1,1].value.should_not == old_cell_value
+      end
+
+      # book shall be reanimated
+      it "should use the excel of the book and keep open the book" do
+        excel = Excel.new(:reuse => false)
+        sheet = @book.sheet(1)
+        old_cell_value = sheet[1,1].value
+        @book.close
+        @book.should_not be_alive
+        Book.unobtrusively(@simple_file, :if_closed => :new) do |book|
+          book.should be_a Book
+          book.should be_alive
+          book.excel.should_not == @book.excel
+          book.excel.should_not == excel
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.value == "foo" ? "bar" : "foo"
+          book.Saved.should be_false
+        end
+        @book.should_not be_alive
+        new_book = Book.open(@simple_file1)
+        sheet = new_book.sheet(1)
+        sheet[1,1].value.should_not == old_cell_value
+      end
+
+      it "should use another excel if the Excels are closed" do
+        sheet = @book.sheet(1)
+        old_cell_value = sheet[1,1].value
+        @book.close
+        @book.should_not be_alive
+        Book.unobtrusively(@simple_file, :keep_open => true) do |book|
+          book.should be_a Book
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.value == "foo" ? "bar" : "foo"
+          book.Saved.should be_false
+        end
+        @book.should be_alive
+        @book.close
+        new_book = Book.open(@simple_file1)
+        sheet = new_book.sheet(1)
+        sheet[1,1].value.should_not == old_cell_value
+      end
+
+      it "should use another excel if the Excels are closed" do
+        excel = Excel.new(:reuse => false)
+        sheet = @book.sheet(1)
+        old_cell_value = sheet[1,1].value
+        @book.close
+        @book.should_not be_alive
+        Excel.kill_all
+        Book.unobtrusively(@simple_file, :if_closed => :new, :keep_open => true) do |book|
+          book.should be_a Book
+          book.excel.should_not == @book.excel
+          book.excel.should_not == excel
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.value == "foo" ? "bar" : "foo"
+          book.Saved.should be_false
+        end
+        @book.should_not be_alive
+        new_book = Book.open(@simple_file1)
+        sheet = new_book.sheet(1)
+        sheet[1,1].value.should_not == old_cell_value
+      end      
+
+      it "should modify unobtrusively the copied file" do
+        sheet = @book.sheet(1)
+        old_cell_value = sheet[1,1].value
+        File.delete simple_save_file rescue nil
+        @book.save_as(@simple_save_file)
+        @book.close
+        Book.unobtrusively(@simple_save_file) do |book|
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.Value == "foo" ? "bar" : "foo"
+        end
+        old_book = Book.open(@simple_file1)
+        old_sheet = old_book.sheet(1)
+        old_sheet[1,1].Value.should == old_cell_value
+        old_book.close
+        new_book = Book.open(@simple_save_file)
+        new_sheet = new_book.sheet(1)
+        new_sheet[1,1].Value.should_not == old_cell_value
+        new_book.close
+      end
+    end
+
+    context "with a visible book" do
+
+      before do
+        @book = Book.open(@simple_file1, :visible => true)
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget)
+        @book2.close(:if_unsaved => :forget) rescue nil
+      end
+
+      it "should let an open Book open" do
+        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
+      end
+      
+    end
+
+    context "with various options for an Excel instance in which to open a closed book" do
+
+      before do
+        @book = Book.open(@simple_file1)
+        @book.close
+      end
+
+      it "should use a given Excel" do
+        new_excel = Excel.new(:reuse => false)
+        another_excel = Excel.new(:reuse => false)
+        Book.unobtrusively(@simple_file1, :if_closed => another_excel) do |book|
+          book.excel.should_not == @book.excel
+          book.excel.should_not == new_excel
+          book.excel.should == another_excel
+        end
+      end
+
+      it "should use another Excel" do
+        new_excel = Excel.new(:reuse => false)
+        Book.unobtrusively(@simple_file1, :if_closed => :new) do |book|
+          book.excel.should_not == @book.excel
+          book.excel.should_not == new_excel
+          book.excel.visible.should be_false
+          book.excel.displayalerts.should == :if_visible
+          @another_excel = book.excel
+        end
+        Book.unobtrusively(@simple_file1, :if_closed => :reuse) do |book|
+          book.excel.should == @book.excel
+          book.excel.should_not == new_excel
+          book.excel.visible.should be_false
+          book.excel.displayalerts.should == :if_visible
+          book.excel.should_not == @another_excel 
+        end
+      end
+
+      it "should reuse Excel" do
+        new_excel = Excel.new(:reuse => false)
+        Book.unobtrusively(@simple_file1, :if_closed => :reuse) do |book|
+          book.excel.should == @book.excel
+          book.excel.should_not == new_excel
+        end
+      end
+
+      it "should reuse Excel by default" do
+        new_excel = Excel.new(:reuse => false)
+        Book.unobtrusively(@simple_file1) do |book|
+          book.excel.should == @book.excel
+          book.excel.should_not == new_excel
+        end
+      end
+
+    end
+
+    context "with a read_only book" do
+
+      before do
+        @book = Book.open(@simple_file1, :read_only => true)
+      end
+
+      after do
+        @book.close
+      end
+
+      it "should let the saved book saved" do
+        @book.ReadOnly.should be_true
+        @book.Saved.should be_true
+        sheet = @book.sheet(1)
+        old_cell_value = sheet[1,1].value
+        unobtrusively_ok?
+        @book.should be_alive
+        @book.Saved.should be_true
+        @book.ReadOnly.should be_true
+        @book.close
+        book2 = Book.open(@simple_file1)
+        sheet2 = book2.sheet(1)
+        sheet2[1,1].value.should == old_cell_value
+      end
+
+      it "should let the unsaved book unsaved" do
+        @book.ReadOnly.should be_true
+        sheet = @book.sheet(1)
+        sheet[1,1] = sheet[1,1].value == "foo" ? "bar" : "foo" 
+        @book.Saved.should be_false
+        @book.should be_alive
+        Book.unobtrusively(@simple_file1) do |book|
+          book.should be_a Book
+          sheet = book.sheet(1)
+          sheet[1,1] = sheet[1,1].value == "foo" ? "bar" : "foo"
+          @cell_value = sheet[1,1].Value
+          book.should be_alive
+          book.Saved.should be_false
+        end
+        @book.should be_alive
+        @book.Saved.should be_false
+        @book.ReadOnly.should be_true
+        @book.close
+        book2 = Book.open(@simple_file1)
+        sheet2 = book2.sheet(1)
+        # modifies unobtrusively the saved version, not the unsaved version
+        sheet2[1,1].value.should == @cell_value        
+      end
+
+      it "should open unobtrusively by default the writable book" do
+        book2 = Book.open(@simple_file1, :force_excel => :new, :read_only => false)
+        @book.ReadOnly.should be_true
+        book2.Readonly.should be_false
+        sheet = @book.sheet(1)
+        cell_value = sheet[1,1].value
+        Book.unobtrusively(@simple_file1, :if_closed => :new) do |book|
+          book.should be_a Book
+          book.excel.should == book2.excel
+          book.excel.should_not == @book.excel
+          sheet = book.sheet(1)
+          sheet[1,1] = sheet[1,1].value == "foo" ? "bar" : "foo"
+          book.should be_alive
+          book.Saved.should be_false          
+        end  
+        @book.Saved.should be_true
+        @book.ReadOnly.should be_true
+        @book.close
+        book2.close
+        book3 = Book.open(@simple_file1)
+        new_sheet = book3.sheet(1)
+        new_sheet[1,1].value.should_not == cell_value
+        book3.close
+      end
+
+      it "should open unobtrusively the book in a new Excel to open the book writable" do
+        excel1 = Excel.new(:reuse => false)
+        excel2 = Excel.new(:reuse => false)
+        book2 = Book.open(@simple_file1, :force_excel => :new, :read_only => true)
+        @book.ReadOnly.should be_true
+        book2.Readonly.should be_true
+        sheet = @book.sheet(1)
+        cell_value = sheet[1,1].value
+        Book.unobtrusively(@simple_file1, :writable => true, :if_closed => :new, :rw_change_excel => :new) do |book|
+          book.should be_a Book
+          book.ReadOnly.should be_false
+          book.excel.should_not == book2.excel
+          book.excel.should_not == @book.excel
+          book.excel.should_not == excel1
+          book.excel.should_not == excel2
+          sheet = book.sheet(1)
+          sheet[1,1] = sheet[1,1].value == "foo" ? "bar" : "foo"
+          book.should be_alive
+          book.Saved.should be_false          
+        end  
+        @book.Saved.should be_true
+        @book.ReadOnly.should be_true
+        @book.close
+        book2.close
+        book3 = Book.open(@simple_file1)
+        new_sheet = book3.sheet(1)
+        new_sheet[1,1].value.should_not == cell_value
+        book3.close
+      end
+
+      it "should open unobtrusively the book in the same Excel to open the book writable" do
+        excel1 = Excel.new(:reuse => false)
+        excel2 = Excel.new(:reuse => false)
+        book2 = Book.open(@simple_file1, :force_excel => :new, :read_only => true)
+        @book.ReadOnly.should be_true
+        book2.Readonly.should be_true
+        sheet = @book.sheet(1)
+        cell_value = sheet[1,1].value
+        Book.unobtrusively(@simple_file1, :writable => true, :if_closed => :new, :rw_change_excel => :current) do |book|
+          book.should be_a Book
+          book.excel.should == book2.excel
+          book.ReadOnly.should be_false
+          sheet = book.sheet(1)
+          sheet[1,1] = sheet[1,1].value == "foo" ? "bar" : "foo"
+          book.should be_alive
+          book.Saved.should be_false          
+        end  
+        book2.Saved.should be_true
+        book2.ReadOnly.should be_true
+        @book.close
+        book2.close
+        book3 = Book.open(@simple_file1)
+        new_sheet = book3.sheet(1)
+        new_sheet[1,1].value.should_not == cell_value
+        book3.close
+      end
+
+      it "should open unobtrusively the book in the Excel where it was opened most recently" do
+        book2 = Book.open(@simple_file1, :force_excel => :new, :read_only => true)
+        @book.ReadOnly.should be_true
+        book2.Readonly.should be_true
+        sheet = @book.sheet(1)
+        cell_value = sheet[1,1].value
+        Book.unobtrusively(@simple_file1, :if_closed => :new, :read_only => true) do |book|
+          book.should be_a Book
+          book.excel.should == book2.excel
+          book.excel.should_not == @book.excel
+          book.should be_alive
+          book.Saved.should be_true         
+        end  
+        @book.Saved.should be_true
+        @book.ReadOnly.should be_true
+        @book.close
+        book2.close
+      end
+
+    end
+
+    context "with a virgin Book class" do
+      before do
+        class Book
+          @@bookstore = nil
+        end
+      end
+      it "should work" do
+        expect{ unobtrusively_ok? }.to_not raise_error
+      end
+    end
+
+    context "with a book never opened before" do
+      before do
+        class Book
+          @@bookstore = nil
+        end
+        other_book = Book.open(@different_file)
+      end
+      it "should open the book" do
+        expect{ unobtrusively_ok? }.to_not raise_error
+      end
+    end
+
+    context "with a saved book" do
+
+      before do
+        @book1 = Book.open(@simple_file1)
+      end
+
+      after do
+        @book1.close(:if_unsaved => :forget)
+      end
+
+      it "should save if the book was modified during unobtrusively" do
+        m_time = File.mtime(@book1.stored_filename)
+        Book.unobtrusively(@simple_file1, :if_closed => :new) do |book|
+          @book1.Saved.should be_true
+          book.Saved.should be_true  
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.value == "foo" ? "bar" : "foo"
+          @book1.Saved.should be_false
+          book.Saved.should be_false
+          sleep 1
+        end
+        @book1.Saved.should be_true
+        m_time2 = File.mtime(@book1.stored_filename)
+        m_time2.should_not == m_time
+      end      
+
+      it "should not save the book if it was not modified during unobtrusively" do
+        m_time = File.mtime(@book1.stored_filename)
+        Book.unobtrusively(@simple_file1) do |book|
+          @book1.Saved.should be_true
+          book.Saved.should be_true 
+          sleep 1
+        end
+        m_time2 = File.mtime(@book1.stored_filename)
+        m_time2.should == m_time
+      end            
+    end
+
+    context "with block result" do
+      before do
+        @book1 = Book.open(@simple_file1)
+      end
+
+      after do
+        @book1.close(:if_unsaved => :forget)
+      end      
+
+      it "should yield the block result true" do
+        result = 
+          Book.unobtrusively(@simple_file1) do |book| 
+            @book1.Saved.should be_true
+          end
+        result.should == true
+      end
+
+      it "should yield the block result nil" do
+        result = 
+          Book.unobtrusively(@simple_file1) do |book| 
+          end
+        result.should == nil
+      end
+
+      it "should yield the block result with an unmodified book" do
+        sheet1 = @book1.sheet(1)
+        cell1 = sheet1[1,1].value
+        result = 
+          Book.unobtrusively(@simple_file1) do |book| 
+            sheet = book.sheet(1)
+            cell = sheet[1,1].value
+          end
+        result.should == cell1
+      end
+
+      it "should yield the block result even if the book gets saved" do
+        sheet1 = @book1.sheet(1)
+        @book1.save
+        result = 
+          Book.unobtrusively(@simple_file1) do |book| 
+            sheet = book.sheet(1)
+            sheet[1,1] = 22
+            @book1.Saved.should be_false
+            42
+          end
+        result.should == 42
+        @book1.Saved.should be_true
+      end
+    end
+
+    context "with several Excel instances" do
+
+      before do
+        @book1 = Book.open(@simple_file1)
+        @book2 = Book.open(@simple_file1, :force_excel => :new)
+        @book1.Readonly.should == false
+        @book2.Readonly.should == true
+        old_sheet = @book1.sheet(1)
+        @old_cell_value = old_sheet[1,1].value
+        @book1.close
+        @book2.close
+        @book1.should_not be_alive
+        @book2.should_not be_alive
+      end
+
+      it "should open unobtrusively the closed book in the most recent Excel where it was open before" do      
+        Book.unobtrusively(@simple_file1) do |book| 
+          book.excel.should_not == @book2.excel
+          book.excel.should == @book1.excel
+          book.ReadOnly.should == false
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.value == "foo" ? "bar" : "foo"
+          book.Saved.should be_false
+        end
+        new_book = Book.open(@simple_file1)
+        sheet = new_book.sheet(1)
+        sheet[1,1].value.should_not == @old_cell_value
+      end
+
+      it "should open unobtrusively the closed book in the new Excel" do
+        Book.unobtrusively(@simple_file1, :if_closed => :new) do |book| 
+          book.excel.should_not == @book2.excel
+          book.excel.should_not == @book1.excel
+          book.ReadOnly.should == false
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.value == "foo" ? "bar" : "foo"
+          book.Saved.should be_false
+        end
+        new_book = Book.open(@simple_file1)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should_not == @old_cell_value
+      end
+
+      it "should open unobtrusively the closed book in a new Excel if the Excel is not alive anymore" do
+        Excel.kill_all
+        Book.unobtrusively(@simple_file1, :if_closed => :new) do |book| 
+          book.ReadOnly.should == false
+          book.excel.should_not == @book1.excel
+          book.excel.should_not == @book2.excel
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.value == "foo" ? "bar" : "foo"
+          book.Saved.should be_false
+        end
+        new_book = Book.open(@simple_file1)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should_not == @old_cell_value
+      end
+    end
+  end
+
+  describe "for_reading, for_modifying" do
+
+    context "open unobtrusively for reading and modifying" do
+
+      before do
+        @book = Book.open(@simple_file1)
+        sheet = @book.sheet(1)
+        @old_cell_value = sheet[1,1].value
+        @book.close
+      end
+
+      it "should not change the value" do
+        Book.for_reading(@simple_file1) do |book|
+          book.should be_a Book
+          book.should be_alive
+          book.Saved.should be_true  
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.value == "foo" ? "bar" : "foo"
+          book.Saved.should be_false
+          book.excel.should == @book.excel
+        end
+        new_book = Book.open(@simple_file1, :visible => true)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should == @old_cell_value
+      end
+
+      it "should not change the value and use a given Excel" do
+        new_excel = Excel.new(:reuse => false)
+        another_excel = Excel.new(:reuse => false)
+        Book.for_reading(@simple_file1, :if_closed => another_excel) do |book|
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.value == "foo" ? "bar" : "foo"
+          book.excel.should == another_excel
+        end
+        new_book = Book.open(@simple_file1, :visible => true)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should == @old_cell_value
+      end
+
+      it "should not change the value and use the new Excel instance" do
+        new_excel = Excel.new(:reuse => false)
+        Book.for_reading(@simple_file1, :if_closed => :new) do |book|
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.value == "foo" ? "bar" : "foo"
+          book.excel.should_not == @book.excel
+          book.excel.should_not == new_excel
+          book.excel.visible.should be_false
+          book.excel.displayalerts.should == :if_visible
+        end
+        new_book = Book.open(@simple_file1, :visible => true)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should == @old_cell_value
+      end
+
+      it "should change the value" do
+        Book.for_modifying(@simple_file1) do |book|
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.value == "foo" ? "bar" : "foo"
+          book.excel.should == @book.excel
+        end
+        new_book = Book.open(@simple_file, :visible => true)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should_not == @old_cell_value
+      end
+
+      it "should change the value and use a given Excel" do
+        new_excel = Excel.new(:reuse => false)
+        another_excel = Excel.new(:reuse => false)
+        Book.for_modifying(@simple_file1, :if_closed => another_excel) do |book|
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.value == "foo" ? "bar" : "foo"
+          book.excel.should == another_excel
+        end
+        new_book = Book.open(@simple_file1, :visible => true)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should_not == @old_cell_value
+      end
+
+      it "should change the value and use the new Excel instance" do
+        new_excel = Excel.new(:reuse => false)
+        Book.for_modifying(@simple_file1, :if_closed => :new) do |book|
+          sheet = book.sheet(1)
+          cell = sheet[1,1]
+          sheet[1,1] = cell.value == "foo" ? "bar" : "foo"
+          book.excel.should_not == @book.excel
+          book.excel.should_not == new_excel
+          book.excel.visible.should be_false
+          book.excel.displayalerts.should == :if_visible
+        end
+        new_book = Book.open(@simple_file1, :visible => true)
+        sheet = new_book.sheet(1)
+        sheet[1,1].Value.should_not == @old_cell_value
+      end
+    end
+  end
+  
+end
+