robust_excel_ole 1.13 → 1.14

data/spec/workbook_spec.rb

@@ -669,7 +669,7 @@ describe Workbook do
     end
   end
 
-  describe "uplifting" do
+  describe "promoting" do
 
     context "with standard" do
 
@@ -681,7 +681,7 @@ describe Workbook do
         @book.close
       end
 
-      it "should uplift a workbook to a book with an open book" do
+      it "should promote a win32ole workbook object to a workbook object with an open workbook" do
         workbook = @book.ole_workbook
         book1 = Workbook.new(workbook)
         book1.should be_a Workbook

data/spec/workbook_specs/workbook_open_spec.rb

@@ -428,9 +428,32 @@ describe Workbook do
         @book.close
       end
 
-      it "should yield identical Workbook objects for identical Excel books after uplifting" do
+      it "should yield identical Workbook objects referring to identical WIN32OLE objects" do
+        book2 = Workbook.new(@book.ole_workbook)
+        book2.equal?(@book).should be true
+      end
+
+      it "should yield identical Workbook objects referring to identical WIN32OLE objects with open" do
+        book2 = Workbook.open(@book.ole_workbook)
+        book2.equal?(@book).should be true
+      end
+
+      it "should yield identical Workbook objects created with help of their filenames" do
+        book2 = Workbook.open(@simple_file1)
+        book2.equal?(@book).should be true
+      end
+
+      it "should yield identical Workbook objects created with help of their WIN32OLE objects" do
+        book2 = Workbook.new(@book.ole_workbook)
+        book3 = Workbook.open(@book.ole_workbook)
+        book3.equal?(book2).should be true
+      end
+
+
+      it "should yield identical Workbook objects for identical Excel books after prmoting" do
         book2 = Workbook.new(@ole_book)
         book2.should === @book
+        book2.equal?(@book).should be true
         book2.close
       end
 
@@ -440,6 +463,7 @@ describe Workbook do
         ole_book2 = WIN32OLE.connect(abs_filename2)
         book2 = Workbook.new(ole_book2)
         book2.should_not === @book
+        book2.equal?(@book).should be false
         book2.close
         book3.close
       end
@@ -486,31 +510,34 @@ describe Workbook do
       book2.excel.should_not == book.excel
     end
 
-    it "should uplift an open known workbook" do
+    it "should promote an open known workbook" do
       book = Workbook.open(@simple_file)
       ole_workbook = book.ole_workbook
       new_book = Workbook.new(ole_workbook)
       new_book.should == book
+      new_book.equal?(book).should be true
       new_book.Fullname.should == book.Fullname
       new_book.excel.should == book.excel
     end
 
-    it "should uplift an open known workbook and let it be visible" do
+    it "should promote an open known workbook and let it be visible" do
       book = Workbook.open(@simple_file, :visible => true)
       ole_workbook = book.ole_workbook
       new_book = Workbook.new(ole_workbook)
       new_book.should == book
+      new_book.equal?(book).should be true
       new_book.Fullname.should == book.Fullname
       new_book.excel.should == book.excel
       new_book.excel.Visible.should == true
       new_book.Windows(new_book.ole_workbook.Name).Visible.should == true
     end
 
-    it "should uplift an open known workbook and let it be visible and readonly" do
+    it "should promote an open known workbook and let it be visible and readonly" do
       book = Workbook.open(@simple_file, :visible => true, :read_only => true)
       ole_workbook = book.ole_workbook
       new_book = Workbook.new(ole_workbook)
       new_book.should == book
+      new_book.equal?(book).should be true
       new_book.Fullname.should == book.Fullname
       new_book.excel.should == book.excel
       new_book.excel.Visible.should == true
@@ -518,18 +545,19 @@ describe Workbook do
       new_book.ReadOnly.should == true
     end
 
-    it "should uplift an open known workbook and make it visible" do
+    it "should promote an open known workbook and make it visible" do
       book = Workbook.open(@simple_file)
       ole_workbook = book.ole_workbook
       new_book = Workbook.new(ole_workbook, :visible => true)
       new_book.should == book
+      new_book.equal?(book).should be true
       new_book.Fullname.should == book.Fullname
       new_book.excel.should == book.excel
       new_book.excel.Visible.should == true
       new_book.Windows(new_book.ole_workbook.Name).Visible.should == true
     end
 
-    it "should uplift an open unknown workbook" do
+    it "should promote an open unknown workbook" do
       ole_excel = WIN32OLE.new('Excel.Application')
       ws = ole_excel.Workbooks
       abs_filename = General.absolute_path(@simple_file1)
@@ -539,7 +567,7 @@ describe Workbook do
       new_book.excel.Hwnd.should == ole_excel.Hwnd
     end
 
-    it "should uplift an open unknown workbook and make it visible" do
+    it "should promote an open unknown workbook and make it visible" do
       ole_excel = WIN32OLE.new('Excel.Application')
       ws = ole_excel.Workbooks
       abs_filename = General.absolute_path(@simple_file1)
@@ -551,7 +579,7 @@ describe Workbook do
       new_book.Windows(new_book.ole_workbook.Name).Visible.should == true
     end
 
-    it "should uplift an open unknown workbook and make it visible and readonly" do
+    it "should promote an open unknown workbook and make it visible and readonly" do
       ole_excel = WIN32OLE.new('Excel.Application')
       ws = ole_excel.Workbooks
       abs_filename = General.absolute_path(@simple_file1)

data/spec/workbook_specs/workbook_unobtr_spec.rb

@@ -80,6 +80,335 @@ describe Workbook do
 
     end
 
+    describe "unknown workbooks" do
+
+      context "with one invisible saved writable workbook" do
+
+        before do
+          @ole_e1 = WIN32OLE.new('Excel.Application')
+          ws = @ole_e1.Workbooks
+          @abs_filename = General.absolute_path(@simple_file1)
+          @ole_wb = ws.Open(abs_filename)
+          @old_value = @ole_wb.Worksheets.Item(1).Cells.Item(1,1).Value
+        end
+
+        it "should connect" do
+          Workbooks.unobtrusively(@simple_file1) do |book|
+            book.excel.Workbook.Count.should == 1
+            Excel.excels_number.should == 1
+            book.FullName.should == General.absolute_path(@simple_file1)
+            book.saved.should be true
+            book.visible.should be false
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be false
+          ole_wb.ReadOnly.should be false
+        end
+
+        it "should set visible => true and remain invisiblity" do
+          Workbooks.unobtrusively(@simple_file1, :visible => true) do |book|
+            book.saved.should be true
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be false
+          ole_wb.ReadOnly.should be false
+        end
+
+        it "should set read_only => true and remain writability" do
+          Workbooks.unobtrusively(@simple_file1, :read_only => true) do |book|
+            book.saved.should be true
+            book.visible.should be false
+            book.writable.should be false
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be false
+          ole_wb.ReadOnly.should be false
+        end
+
+        it "should set visible => true, read_only => true" do
+          Workbooks.unobtrusively(@simple_file1, :visible => true, :read_only => true) do |book|
+            book.saved.should be true
+            book.visible.should be true
+            book.writable.should be false
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be false
+          ole_wb.ReadOnly.should be false
+        end
+
+        it "should modify and remain saved-status" do
+          Workbooks.unobtrusively(@simple_file1) do |book|
+            book.saved.should be true
+            book.visible.should be false
+            book.writable.should be true
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].value
+            book.Saved.should be false
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be false
+          ole_wb.ReadOnly.should be false
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].value.should_not == @old_value
+          book2.sheet(1)[1,1].value.should == @new_value
+        end
+
+        it "should modify and remain saved-status and not save the new value when writable => false" do
+          Workbooks.unobtrusively(@simple_file1, :writable => false) do |book|
+            book.saved.should be true
+            book.visible.should be false
+            book.writable.should be true
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].value
+            book.Saved.should be false
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be false
+          ole_wb.ReadOnly.should be false
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].value.should == @old_value
+          book2.sheet(1)[1,1].value.should_not == @new_value
+        end
+
+      end
+
+      context "with one visible saved writable workbook" do
+
+        before do
+          @ole_e1 = WIN32OLE.new('Excel.Application')
+          ws = @ole_e1.Workbooks
+          @abs_filename = General.absolute_path(@simple_file1)
+          @ole_wb = ws.Open(abs_filename)
+          @ole_e1.Visible = true
+          @ole_wb.Windows(@ole_wb.Name).Visible = true
+        end
+
+        it "should remain visibility" do
+          Workbooks.unobtrusively(@simple_file1) do |book|
+            book.saved.should be true
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be false
+        end
+
+        it "should set visible => false and remain visibility" do
+          Workbooks.unobtrusively(@simple_file1, :visible => false) do |book|
+            book.saved.should be true
+            book.visible.should be false
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be false
+        end
+
+      end
+
+      context "with one unsaved writable workbook" do
+
+        before do
+          @ole_e1 = WIN32OLE.new('Excel.Application')
+          ws = @ole_e1.Workbooks
+          @abs_filename = General.absolute_path(@simple_file1)
+          @ole_wb = ws.Open(abs_filename)
+          @ole_e1.Visible = true
+          @ole_wb.Windows(@ole_wb.Name).Visible = true
+          @old_value = @ole_wb.Worksheets.Item(1).Cells.Item(1,1).Value
+          @ole_wb.Worksheets.Item(name).Cells.Item(1,1).Value = @old_value == "foo" ? "bar" : "foo"
+          @new_value = @ole_wb.Worksheets.Item(1).Cells.Item(1,1).Value
+          @ole_wb.Saved.should be false
+        end
+
+        it "should connect and remain unsaved" do
+          Workbooks.unobtrusively(@simple_file1) do |book|
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be false
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be false
+        end
+
+        it "should remain writable" do
+          Workbooks.unobtrusively(@simple_file1, :read_only => true) do |book|
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be false
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be false
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be false
+        end
+
+        it "should remain unsaved when modifying" do
+          Workbooks.unobtrusively(@simple_file1) do |book|
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be false
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be false
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].value.should_not == @old_value
+          book2.sheet(1)[1,1].value.should == @new_value
+        end
+
+        it "should not write with :writable => false" do
+          Workbooks.unobtrusively(@simple_file1, :writable => false) do |book|
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be false
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be false
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].value.should == @old_value
+          book2.sheet(1)[1,1].value.should_not == @new_value
+        end
+
+      end
+
+      context "with one read-only workbook" do
+
+        before do
+          @ole_e1 = WIN32OLE.new('Excel.Application')
+          ws = @ole_e1.Workbooks
+          @abs_filename = General.absolute_path(@simple_file1)
+          @ole_wb = ws.Open(abs_filename, RobustExcelOle::XlUpdateLinksNever, true)
+          @ole_e1.Visible = true
+          @ole_wb.Windows(@ole_wb.Name).Visible = true
+          @ole_wb.ReadOnly.should be true
+        end
+
+        it "should connect and remain read-only" do
+          Workbooks.unobtrusively(@simple_file1) do |book|
+            book.saved.should be true
+            book.visible.should be true
+            book.writable.should be false
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be true
+        end
+
+        it "should remain read-only" do
+          Workbooks.unobtrusively(@simple_file1, :read_only => false) do |book|
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be true
+        end
+
+        it "should remain read-only when modifying" do
+          Workbooks.unobtrusively(@simple_file1) do |book|
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be true
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].value.should_not == @old_value
+          book2.sheet(1)[1,1].value.should == @new_value
+        end
+
+        it "should remain read-only when modifying" do
+          Workbooks.unobtrusively(@simple_file1, :read_only => false, :writable => true) do |book|
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be true
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].value.should_not == @old_value
+          book2.sheet(1)[1,1].value.should == @new_value
+        end
+
+        it "should remain read-only when modifying and not save changes, when :writable => false" do
+          Workbooks.unobtrusively(@simple_file1, :writable => false) do |book|
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be true
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].value.should == @old_value
+          book2.sheet(1)[1,1].value.should_not == @new_value
+        end
+
+        it "should remain read-only when modifying and not save changes, when :writable => false" do
+          Workbooks.unobtrusively(@simple_file1, :read_only => false, :writable => false) do |book|
+            book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1].Value
+            book.saved.should be false
+            book.visible.should be true
+            book.writable.should be true
+          end
+          ole_wb = WIN32OLE.connect(@abs_filename)
+          ole_wb.Saved.should be true
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be true
+          ole_wb.Close
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].value.should == @old_value
+          book2.sheet(1)[1,1].value.should_not == @new_value
+        end
+
+      end
+
+    end
+
     describe "excels number" do
 
       it "should open one excel instance and workbook should be closed" do
@@ -188,7 +517,7 @@ describe Workbook do
 
         it "should open not writable" do
           Workbook.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            
@@ -330,6 +659,7 @@ describe Workbook do
             book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
             book.sheet(1)[1,1].Value.should_not == @old_value
           end
+          @book.ReadOnly.should be true
           @book.close
           Workbook.unobtrusively(@simple_file1, :writable => false) do |book|
             book.sheet(1)[1,1].Value.should == @old_value
@@ -347,6 +677,7 @@ describe Workbook do
             book.excel.should == @book.excel
             book.sheet(1)[1,1] = book.sheet(1)[1,1].Value == "foo" ? "bar" : "foo"
           end
+          @book.ReadOnly.should be true
           @book.close
           book2 = Workbook.open(@simple_file1)
           book2.sheet(1)[1,1].Value.should == @old_value
@@ -367,7 +698,7 @@ describe Workbook do
 
         it "should open as read-write" do
           Workbook.unobtrusively(@simple_file1, :read_only => false, :writable => false) do |book|
-            book.Readonly.should be true
+            book.Readonly.should be false
             book.should == @book
             book.filename.should == @book.filename
             book.excel.should == @book.excel
@@ -404,6 +735,7 @@ describe Workbook do
           book2.sheet(1)[1,1].Value.should_not == @old_value
         end
 
+=begin
         it "should force to read-write" do
           e1 = Excel.create
           Workbook.unobtrusively(@simple_file1, :writable => true, :rw_change_excel => e1) do |book|
@@ -441,6 +773,7 @@ describe Workbook do
           book2 = Workbook.open(@simple_file1)
           book2.sheet(1)[1,1].Value.should_not == @old_value
         end
+=end
 
         it "should force to read-write" do
           Workbook.unobtrusively(@simple_file1, :writable => true, :read_only => false) do |book|
@@ -563,16 +896,22 @@ describe Workbook do
           @book.sheet(1)[1,1].Value.should_not == @old_value
         end
 
-        it "should force to read-only (not implemented)" do
-          expect{
-            Workbook.unobtrusively(@simple_file1, :read_only => true) 
-          }.to raise_error(NotImplementedREOError)
+        it "should force to read-only" do
+          Workbook.unobtrusively(@simple_file1, :read_only => true) do |book|
+            book.ReadOnly.should be true
+          end
+          @book.Saved.should be false
+          @book.ReadOnly.should be false
+          @book.sheet(1)[1,1].Value.should == @old_value
         end
 
-        it "should force to read-only (not implemented)" do
-          expect{
-            Workbook.unobtrusively(@simple_file1, :read_only => true, :writable => false) 
-          }.to raise_error(NotImplementedREOError)
+        it "should force to read-only with writable false" do
+          Workbook.unobtrusively(@simple_file1, :read_only => true, :writable => false) do |book|
+            book.ReadOnly.should be true
+          end
+          @book.Saved.should be false
+          @book.ReadOnly.should be false
+          @book.sheet(1)[1,1].Value.should == @old_value
         end
 
         it "should open not writable" do
@@ -617,7 +956,7 @@ describe Workbook do
 
         it "should open as read-only" do
           Workbook.unobtrusively(@simple_file1, :read_only => false) do |book|
-            book.Readonly.should be true
+            book.Readonly.should be false
             book.should == @book
             book.filename.should == @book.filename
             book.excel.should == @book.excel
@@ -633,7 +972,7 @@ describe Workbook do
 
         it "should open as read-only" do
           Workbook.unobtrusively(@simple_file1, :read_only => false, :writable => false) do |book|
-            book.Readonly.should be true
+            book.Readonly.should be false
             book.should == @book
             book.filename.should == @book.filename
             book.excel.should == @book.excel
@@ -760,7 +1099,6 @@ describe Workbook do
         end
 
         it "should write in the outer and not in the inner block" do
-          expect{
           Workbook.unobtrusively(@simple_file1) do |book|
             @old_value = book.sheet(1)[1,1].Value
             book.ReadOnly.should be false
@@ -770,7 +1108,7 @@ describe Workbook do
             Workbook.unobtrusively(@simple_file1, :read_only => true) do |book2|
               book2.should == book
               book2.ReadOnly.should be true
-              #book2.Saved.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
@@ -781,7 +1119,6 @@ describe Workbook do
           end
           book = Workbook.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
@@ -890,7 +1227,7 @@ describe Workbook do
           book1 = Workbook.open(@simple_file1, :read_only => true)
           old_value = book1.sheet(1)[1,1].Value
           Workbook.unobtrusively(@simple_file1, :writable => true) do |book|
-            book.ReadOnly.should be false
+            book.ReadOnly.should be true
             sheet = book.sheet(1)
             sheet[1,1] = sheet[1,1].Value == "foo" ? "bar" : "foo"
             book.excel.should == book1.excel
@@ -1419,6 +1756,7 @@ describe Workbook do
         book3.close
       end
 
+=begin
       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)
@@ -1475,6 +1813,7 @@ describe Workbook do
         new_sheet[1,1].Value.should_not == cell_value
         book3.close
       end
+=end
 
       it "should open unobtrusively the book in the Excel where it was opened most recently" do
         book2 = Workbook.open(@simple_file1, :force_excel => :new, :read_only => true)
@@ -1672,6 +2011,30 @@ describe Workbook do
     end
   end
 
+  describe "promoting" do
+
+    context "with standard" do
+
+      before do
+        @book = Workbook.open(@simple_file1)
+        @ole_workbook = @book.ole_workbook 
+      end
+
+      after do
+        @book.close
+      end
+
+      it "should promote" do
+        Workbook.unobtrusively(@ole_workbook) do |book|
+          book.should === @book
+          book.equal?(@book).should be true
+        end
+      end
+    
+    end
+
+  end
+
   describe "for_reading, for_modifying" do
 
     context "open unobtrusively for reading and modifying" do