robust_excel_ole 1.35 → 1.36

data/spec/workbook_specs/workbook_unobtr_spec.rb

@@ -5,6 +5,8 @@ require_relative '../spec_helper'
 
 $VERBOSE = nil
 
+using ToReoRefinement
+
 include RobustExcelOle
 include General
 
@@ -30,6 +32,7 @@ describe Workbook do
     @sub_file = @dir + '/workbook_linked_sub.xlsm'
     @simple_file_xlsm = @dir + '/workbook.xlsm'
     @simple_file_xlsx = @dir + '/workbook.xlsx'
+    @unsaved_file = @dir + '/workbook_unsaved.xlsm'
     @simple_file1 = @simple_file
   end
 
@@ -457,6 +460,10 @@ describe Workbook do
       it "should unobtrusively open, modify, and not save the changes" do
         @book.unobtrusively(:writable => false) do |book|
           book.sheet(1)[1,1] = "bla"
+          book.ReadOnly.should be false
+          book.visible.should be true
+          book.writable.should be true
+          book.saved.should be false
         end
         @book.saved.should be false
         @book.visible.should be true
@@ -482,6 +489,76 @@ describe Workbook do
 
     end
 
+    context "with an writable and from the very beginning on unsaved workbook" do
+
+      before do
+        @ole_e1 = WIN32OLE.new('Excel.Application')
+        ws = @ole_e1.Workbooks
+        @abs_filename = General.absolute_path(@unsaved_file)
+        @ole_wb = ws.Open(@abs_filename)
+        @ole_e1.Visible = true
+        @ole_wb.Windows(@ole_wb.Name).Visible = true
+        @ole_wb.Saved.should be false
+        @old_value = @ole_wb.Worksheets.Item(1).Cells.Item(1,1).Value
+        #@ole_wb.Worksheets.Item(1).Cells.Item(1,1).Value = @old_value = "foo" #== "foo" ? "bar" : "foo"
+        #@new_value = @ole_wb.Worksheets.Item(1).Cells.Item(1,1)
+        @ole_wb.Saved.should be false
+        @book = @ole_wb.to_reo
+      end
+
+      after do
+        @book.close(:if_unsaved => :forget) if @book && @book.alive?
+      end
+
+      it "should unobtrusively open, modify, and retain the status" do
+        @book.unobtrusively do |book|
+          book.saved.should be false
+          book.visible.should be true
+          book.writable.should be true
+          book.sheet(1)[1,1] = book.sheet(1)[1,1] == "foo" ? "bar" : "foo"
+        end
+        @book.saved.should be false
+        @book.visible.should be true
+        @book.writable.should be true
+        @book.sheet(1)[1,1].should_not == @old_value
+        @book.close(:if_unsaved => :forget)
+        @new_book = Workbook.open(@unsaved_file)
+        @new_book.sheet(1)[1,1].should_not == @old_value
+      end
+
+      it "should unobtrusively open, modify, and not save the changes" do
+        @book.unobtrusively(:writable => false) do |book|
+          book.sheet(1)[1,1] = "bla"
+          book.ReadOnly.should be false
+          book.visible.should be true
+          book.writable.should be true
+          book.saved.should be false
+        end
+        @book.saved.should be false
+        @book.visible.should be true
+        @book.writable.should be true
+        @book.sheet(1)[1,1].should == "bla"
+        @book.close(:if_unsaved => :forget)
+        new_book = Workbook.open(@unsaved_file)
+        new_book.sheet(1)[1,1].should == @old_value
+      end
+
+      it "should unobtrusively open, modify, and save the changes" do
+        @book.unobtrusively(:writable => true) do |book|
+          book.sheet(1)[1,1] = book.sheet(1)[1,1] == "foo" ? "bar" : "foo"
+        end
+        @book.saved.should be false
+        @book.visible.should be true
+        @book.writable.should be true
+        @book.sheet(1)[1,1].should_not == @old_value
+        @book.close(:if_unsaved => :forget)
+        new_book = Workbook.open(@unsaved_file)
+        new_book.sheet(1)[1,1].should_not == @old_value
+      end
+
+    end    
+
+
     context "with a closed workbook" do
 
       before do
@@ -732,6 +809,18 @@ describe Workbook do
           @ole_wb.Saved.should be false
         end
 
+        it "should keep the read-only status" do
+          Workbook.unobtrusively(@simple_file1, :writable => 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 false
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be false
+        end
+
         it "should connect and remain unsaved" do
           Workbook.unobtrusively(@simple_file1) do |book|
             book.saved.should be false
@@ -807,6 +896,111 @@ describe Workbook do
 
       end
 
+      context "with one from beginning on unsaved writable workbook" do
+
+        before do
+          @ole_e1 = WIN32OLE.new('Excel.Application')
+          ws = @ole_e1.Workbooks
+          @abs_filename = General.absolute_path(@unsaved_file)
+          @ole_wb = ws.Open(@abs_filename)
+          @ole_e1.Visible = true
+          @ole_wb.Windows(@ole_wb.Name).Visible = true
+          @ole_wb.Saved.should be false
+          @old_value = @ole_wb.Worksheets.Item(1).Cells.Item(1,1)
+          @ole_wb.Worksheets.Item(1).Cells.Item(1,1).Value = @old_value = "foo" #== "foo" ? "bar" : "foo"
+          @new_value = @ole_wb.Worksheets.Item(1).Cells.Item(1,1)
+          @ole_wb.Saved.should be false
+        end
+
+        it "should keep the read-only status" do
+          Workbook.unobtrusively(@unsaved_file, :writable => 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 false
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be false
+        end
+
+        it "should connect and remain unsaved" do
+          Workbook.unobtrusively(@unsaved_file) 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 raise error" do
+          expect{
+            Workbook.unobtrusively(@unsaved_file, :read_only => true) do |book|
+              book.saved.should be false
+              book.visible.should be true
+              book.writable.should be false
+            end
+          }.to raise_error(WorkbookNotSaved)
+        end
+
+=begin
+        it "should remain writable" do
+          Workbook.unobtrusively(@unsaved_file, :read_only => true, :if_unsaved => :save) 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 false
+          @ole_e1.Visible.should be true
+          ole_wb.ReadOnly.should be false
+        end
+=end
+
+        it "should remain unsaved when modifying" do
+          Workbook.unobtrusively(@unsaved_file) do |book|
+            book.sheet(1)[1,1] = "bar" #book.sheet(1)[1,1] == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1]
+            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
+          Excel.kill_all
+          book2 = Workbook.open(@unsaved_file)
+          book2.sheet(1)[1,1].should_not == @old_value
+          book2.sheet(1)[1,1].should == @new_value
+        end
+
+        it "should not write with :writable => false" do
+          @ole_wb.Worksheets.Item(1).Cells.Item(1,1).Value = @old_value = "foo" 
+          @ole_wb.Save
+          @ole_wb.Worksheets.Item(1).Cells.Item(1,1).Value = @old_value = "foo" 
+          Workbook.unobtrusively(@unsaved_file, :writable => false) do |book|
+            book.sheet(1)[1,1] = "bar" #book.sheet(1)[1,1] == "foo" ? "bar" : "foo"
+            @new_value = book.sheet(1)[1,1]
+            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
+          Excel.kill_all
+          book2 = Workbook.open(@simple_file1)
+          book2.sheet(1)[1,1].should == @old_value
+          book2.sheet(1)[1,1].should_not == @new_value
+        end
+
+      end
+
       context "with one read-only workbook" do
 
         before do
@@ -1322,46 +1516,6 @@ describe Workbook do
           book2.sheet(1)[1,1].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|
-            book.Readonly.should be false
-            book.filename.should == @book.filename
-            book.excel.should == e1
-            book.sheet(1)[1,1] = book.sheet(1)[1,1] == "foo" ? "bar" : "foo"
-          end
-          @book.close
-          book2 = Workbook.open(@simple_file1)
-          book2.sheet(1)[1,1].should_not == @old_value
-        end
-
-        it "should force to read-write" do
-          Workbook.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] == "foo" ? "bar" : "foo"
-          end
-          @book.close
-          book2 = Workbook.open(@simple_file1)
-          book2.sheet(1)[1,1].should_not == @old_value
-        end
-
-        it "should force to read-write" do
-          Workbook.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] == "foo" ? "bar" : "foo"
-          end
-          @book.close
-          book2 = Workbook.open(@simple_file1)
-          book2.sheet(1)[1,1].should_not == @old_value
-        end
-=end
-
         it "should force to read-write" do
           Workbook.unobtrusively(@simple_file1, :writable => true, :read_only => false) do |book|
             book.Readonly.should be false
@@ -1957,7 +2111,7 @@ describe Workbook do
 
       it "should let an open Workbook open if it has been closed and opened again" do
         @book.close
-        @book.reopen
+        @book.open
         Workbook.unobtrusively(@simple_file1) do |book|
           book.should be_a Workbook
           book.should be_alive
@@ -1971,7 +2125,7 @@ describe Workbook do
         book2 = Workbook.open(@different_file, :force_excel => :new)
         @book.close
         book2.close
-        @book.reopen
+        @book.open
         Workbook.unobtrusively(@simple_file1) do |book|
           book.should be_a Workbook
           book.should be_alive

metadata

@@ -1,29 +1,15 @@
 --- !ruby/object:Gem::Specification
 name: robust_excel_ole
 version: !ruby/object:Gem::Version
-  version: '1.35'
+  version: '1.36'
 platform: ruby
 authors:
 - traths
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-06-25 00:00:00.000000000 Z
+date: 2021-10-29 00:00:00.000000000 Z
 dependencies:
-- !ruby/object:Gem::Dependency
-  name: win32api
-  requirement: !ruby/object:Gem::Requirement
-    requirements:
-    - - "~>"
-      - !ruby/object:Gem::Version
-        version: '0.1'
-  type: :runtime
-  prerelease: false
-  version_requirements: !ruby/object:Gem::Requirement
-    requirements:
-    - - "~>"
-      - !ruby/object:Gem::Version
-        version: '0.1'
 - !ruby/object:Gem::Dependency
   name: pry
   requirement: !ruby/object:Gem::Requirement
@@ -202,8 +188,10 @@ files:
 - spec/data/workbook.xlsx
 - spec/data/workbook_connected.xlsm
 - spec/data/workbook_linked.xlsm
+- spec/data/workbook_linked3.xlsm
 - spec/data/workbook_linked_sub.xlsm
 - spec/data/workbook_listobjects.xlsx
+- spec/data/workbook_unsaved.xlsm
 - spec/excel_spec.rb
 - spec/general_spec.rb
 - spec/helpers/create_temporary_dir.rb