dde 0.2.2 → 0.2.8

data/spec/dde/client_spec.rb

@@ -1,13 +1,39 @@
 require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+require File.expand_path(File.dirname(__FILE__) + '/app_shared')
 
 module DDETest
 
+  def start_callback_recorder
+    @client_calls = []
+    @server_calls = []
+    @client = DDE::Client.new {|*args| @client_calls << extract_values(*args); 1}
+    @server = DDE::Server.new do |*args|
+      @server_calls << extract_values(*args)
+      #puts "#{Time.now.strftime('%T.%6N')} #{extract_values(*args)}"
+      DDE_FACK
+    end
+    @server.start_service('service')
+  end
+
+  def stop_callback_recorder
+    @client.stop_conversation if @client.conversation_active?
+    #@client.stop_dde if @client.dde_active?
+    @server.stop_service if @server.service_active?
+    @server.stop_dde if @server.dde_active?
+  end
+
+  def extract_values(type, format, conv, hsz1, hsz2, data, data1, data2)
+    [Win::DDE::TYPES[type], format, conv,
+     dde_query_string(@client.id, hsz1),
+     dde_query_string(@client.id, hsz2),
+     data, data1, data2]
+  end
+
   describe DDE::Client do
-#    before(:all){@monitor = DDE::Monitor.new}
-#    after(:all){@monitor.stop_dde}
+    before(:each){ @client = DDE::Client.new }
+    after(:each){ @client.stop_dde if @client.dde_active?}
 
-    before(:each ){ @client = DDE::Client.new }
-#    after(:each ){ @client.stop_dde}
+    it_should_behave_like "DDE App"
 
     it 'new without parameters creates Client but does not activate DDEML' do
       @client.id.should == nil
@@ -19,14 +45,14 @@ module DDETest
     end
 
     it 'new with attached callback block creates Client and activates DDEML' do
-      client = DDE::Client.new {|*args|}
-      client.id.should be_an Integer
-      client.id.should_not == 0
-      client.dde_active?.should == true
-      client.conversation.should == nil
-      client.conversation_active?.should == false
-      client.service.should == nil
-      client.topic.should == nil
+      @client = DDE::Client.new {|*args|}
+      @client.id.should be_an Integer
+      @client.id.should_not == 0
+      @client.dde_active?.should == true
+      @client.conversation.should == nil
+      @client.conversation_active?.should == false
+      @client.service.should == nil
+      @client.topic.should == nil
     end
 
     describe '#start_conversation' do
@@ -43,14 +69,13 @@ module DDETest
                   should raise_error /DDE is not initialized/
           @client.conversation_active?.should == false
         end
-      end
+      end  # context 'with inactive (uninitialized) DDE:'
 
       context 'with active (initialized) DDE AND existing DDE server supporting "service" topic' do
-        before(:each )do
-          @client_calls = []
-          @server_calls = []
-          @client = DDE::Client.new {|*args| @client_calls << args; 1}
-          @server = DDE::Server.new {|*args| @server_calls << args; 1}.start_service('service')
+        before(:each ){start_callback_recorder}
+        after(:each )do
+          stop_callback_recorder
+          #p @server_calls, @client_calls    # ?????????? No XTYP_DISCONNECT ? Why ?
         end
 
         it 'starts new conversation if DDE is already activated' do
@@ -78,23 +103,24 @@ module DDETest
         it 'initiates XTYP_CONNECT transaction to service`s callback' do
           @client.start_conversation 'service', 'topic'
 
-          @server_calls.first[0].should == XTYP_CONNECT
-          @server_calls.first[3].should == @client.topic.handle
-          @server_calls.first[4].should == @client.service.handle
+          @server_calls.first[0].should == 'XTYP_CONNECT'
+          @server_calls.first[3].should == @client.topic
+          @server_calls.first[4].should == @client.service
         end
 
         it 'if server confirms connect, XTYP_CONNECT_CONFIRM transaction to service`s callback follows' do
           @client.start_conversation 'service', 'topic'
 
-          @server_calls[1][0].should == XTYP_CONNECT_CONFIRM
-          @server_calls[1][3].should == @client.topic.handle
-          @server_calls[1][4].should == @client.service.handle
+          # p @server_calls, @client_calls    # ?????????? No XTYP_DISCONNECT ? Why ?
+          @server_calls[1][0].should == 'XTYP_CONNECT_CONFIRM'
+          @server_calls[1][3].should == @client.topic
+          @server_calls[1][4].should == @client.service
         end
 
         it 'client`s callback receives no transactions' do
           @client.start_conversation 'service', 'topic'
 
-          p @server_calls, @client.service.handle, @client.topic.handle, @client.conversation
+          #p @server_calls, @client.service.handle, @client.topic.handle, @client.conversation
           @client_calls.should == []
         end
 
@@ -109,10 +135,14 @@ module DDETest
           lambda{@client.start_conversation('not_a_service', 'topic')}.
                   should raise_error /A client`s attempt to establish a conversation has failed/
           @client.conversation_active?.should == false
+
+          #ensure
+          dde_free_string_handle(@client.id, @client.topic.handle)
+          dde_free_string_handle(@client.id, @client.service.handle)
         end
 
-      end
-    end
+      end # context 'with active (initialized) DDE AND existing DDE server supporting "service" topic' do
+    end # describe '#start_conversation'
 
     describe '#stop_conversation' do
 
@@ -123,15 +153,12 @@ module DDETest
           @client.conversation_active?.should == false
         end
 
-      end
+      end # context 'with inactive (uninitialized) DDE:'
 
       context 'with active (initialized) DDE AND existing DDE server supporting "service" topic' do
-        before(:each )do
-          @client_calls = []
-          @server_calls = []
-          @client = DDE::Client.new {|*args| @client_calls << args; 1}
-          @server = DDE::Server.new {|*args| @server_calls << args; 1}
-          @server.start_service('service')
+        before(:each ){start_callback_recorder}
+        after(:each )do
+          stop_callback_recorder
         end
 
         it 'fails to stop conversation' do
@@ -141,7 +168,8 @@ module DDETest
         end
 
         context 'conversation already started' do
-          before(:each ){@client.start_conversation 'service', 'topic'}
+          before(:each){ @client.start_conversation 'service', 'topic' }
+          after(:each){ @client.stop_conversation if @client.conversation_active?}
 
           it 'stops conversation' do
             res = @client.stop_conversation
@@ -165,12 +193,12 @@ module DDETest
             pending
             @client.stop_conversation
             p @server_calls, @client_calls    # ?????????? No XTYP_DISCONNECT ? Why ?
-            @server_calls.last[0].should == XTYP_DISCONNECT
+            @server_calls.last[0].should == 'XTYP_DISCONNECT'
           end
 
-        end
+        end # context 'conversation already started'
 
-      end
-    end
-  end
+      end # context 'with active (initialized) DDE AND existing DDE server supporting "service" topic'
+    end # describe '#stop_conversation'
+  end # describe DDE::Client
 end

data/spec/dde/monitor_spec.rb

@@ -1,16 +1,29 @@
 require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+require File.expand_path(File.dirname(__FILE__) + '/app_shared')
 
 module DDETest
 
   describe DDE::Monitor do
-    after(:each){@monitor.stop_dde}
-    
+    before(:each){ @monitor = DDE::Monitor.new }
+    after(:each){ @monitor.stop_dde }
+
+    it_should_behave_like "DDE App"
+
     it 'starts without constructor parameters' do
       @monitor = DDE::Monitor.new
 
       @monitor.id.should be_an Integer
       @monitor.id.should_not == 0
       @monitor.dde_active?.should == true
+
+      @monitor.init_flags.should == APPCLASS_MONITOR |  # this is monitor
+      MF_CALLBACKS     |  # monitor callback functions
+      MF_CONV          |  # monitor conversation data
+      MF_ERRORS        |  # monitor DDEML errors
+      MF_HSZ_INFO      |  # monitor data handle activity
+      MF_LINKS         |  # monitor advise loops
+      MF_POSTMSGS      |  # monitor posted DDE messages
+      MF_SENDMSGS         # monitor sent DDE messages
     end
 
 #    context 'with existing DDE clients and server supporting "service" topic' do

data/spec/dde/server_shared.rb

@@ -1,5 +1,10 @@
+require File.expand_path(File.dirname(__FILE__) + '/app_shared')
+
 module DDETest
   shared_examples_for "DDE Server" do
+
+    it_should_behave_like "DDE App"
+
     it 'new without parameters creates Server but does not activate DDEML or start service' do
       @server.id.should == nil
       @server.service.should == nil
@@ -8,12 +13,12 @@ module DDETest
     end
 
     it 'new with attached callback block creates Server and activates DDEML, but does not start service' do
-      server = described_class.new {|*args|}
-      server.id.should be_an Integer
-      server.id.should_not == 0
-      server.dde_active?.should == true
-      server.service.should == nil
-      server.service_active?.should == false
+      @server = described_class.new {|*args|}
+      @server.id.should be_an Integer
+      @server.id.should_not == 0
+      @server.dde_active?.should == true
+      @server.service.should == nil
+      @server.service_active?.should == false
     end
 
     describe '#start_service' do
@@ -35,11 +40,6 @@ module DDETest
           res.should == @server
         end
 
-        it 'fails to start new service without callback block' do
-          lambda{@server.start_service('myservice')}.should raise_error DDE::Errors::ServiceError
-          @server.service_active?.should == false
-        end
-
       end
 
       context 'with active (initialized) DDE:' do
@@ -77,6 +77,7 @@ module DDETest
 
         context 'with already registered DDE service: "myservice"' do
           before(:each){ @server.start_service('myservice')}
+          after(:each){ @server.stop_service if @server.service_active?}
 
           it 'stops previously registered service' do
             @server.stop_service.should be_true

data/spec/dde/server_spec.rb

@@ -5,6 +5,10 @@ module DDETest
 
   describe DDE::Server do
     before(:each ){ @server = DDE::Server.new }
+    after(:each) do
+      @server.stop_service if @server.service_active?
+      @server.stop_dde if @server.dde_active?
+    end
 
     it_should_behave_like "DDE Server"
 
@@ -14,8 +18,13 @@ module DDETest
         expect{@server.start_dde{|*args|}.start_service}.to raise_error ArgumentError, /0 for 1/
         expect{@server.start_service {|*args|}}.to raise_error ArgumentError, /0 for 1/
       end
-    end
 
+      it 'callback block should be given explicitly' do
+        lambda{@server.start_service('myservice')}.should raise_error DDE::Errors::ServiceError
+        @server.service_active?.should == false
+      end
+
+    end
 
   end
 end

data/spec/dde/xl_server_spec.rb

@@ -5,6 +5,10 @@ module DDETest
 
   describe DDE::XlServer do
     before(:each ){ @server = DDE::XlServer.new }
+    after(:each) do
+      @server.stop_service if @server.service_active?
+      @server.stop_dde if @server.dde_active?
+    end
 
     it_should_behave_like "DDE Server"
 
@@ -31,7 +35,14 @@ module DDETest
           @server.service.handle.should_not == 0
           @server.service_active?.should == true
         end
+
+        it 'starts new service with default callback block' do
+          @server.start_service('myservice1')
+          @server.service_active?.should == true
+          @server.service.name.should == 'myservice1'
+        end
       end
+
       context 'with active (initialized) DDE:' do
         before(:each ){ @server = DDE::XlServer.new {|*args|}}
 

data/spec/dde/xl_table_spec.rb

@@ -6,7 +6,7 @@ module DDETest
     it 'starts out empty and without item/topic' do
       table = DDE::XlTable.new
       table.should be_empty
-      table.buf.should == nil
+      table.topic.should == nil
     end
   end
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: dde
 version: !ruby/object:Gem::Version 
-  version: 0.2.2
+  version: 0.2.8
 platform: ruby
 authors: 
 - arvicco
@@ -9,18 +9,18 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-02-26 00:00:00 +03:00
+date: 2010-03-17 00:00:00 +03:00
 default_executable: dde_main
 dependencies: 
 - !ruby/object:Gem::Dependency 
-  name: win_gui
+  name: win
   type: :runtime
   version_requirement: 
   version_requirements: !ruby/object:Gem::Requirement 
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
-        version: 0.1.0
+        version: 0.1.26
     version: 
 - !ruby/object:Gem::Dependency 
   name: rspec
@@ -64,8 +64,11 @@ files:
 - doc/dde_formats.doc
 - doc/ddeml.d.txt
 - doc/types.txt
-- doc/~$Table_format.doc
-- doc/~$e_formats.doc
+- exp/exp_client.rb
+- exp/exp_dde_monitor.rb
+- exp/exp_dde_server.rb
+- exp/exp_lib.rb
+- exp/exp_server.rb
 - features/dde.feature
 - features/step_definitions/dde_steps.rb
 - features/support/env.rb
@@ -77,6 +80,7 @@ files:
 - lib/dde/server.rb
 - lib/dde/xl_server.rb
 - lib/dde/xl_table.rb
+- spec/dde/app_shared.rb
 - spec/dde/app_spec.rb
 - spec/dde/client_spec.rb
 - spec/dde/dde_string_spec.rb
@@ -116,6 +120,7 @@ signing_key:
 specification_version: 3
 summary: DDE server for Ruby
 test_files: 
+- spec/dde/app_shared.rb
 - spec/dde/app_spec.rb
 - spec/dde/client_spec.rb
 - spec/dde/dde_string_spec.rb