sapnwrfc 0.23-i686-linux → 0.24-i686-linux

data/test/test_functions.rb

@@ -0,0 +1,67 @@
+#!/usr/bin/ruby
+$:.unshift(File.dirname(__FILE__) + '/lib')
+$:.unshift(File.dirname(__FILE__) + '/ext/nwsaprfc')
+$:.unshift(File.dirname(__FILE__) + '/../lib')
+$:.unshift(File.dirname(__FILE__) + '/../ext/nwsaprfc')
+
+require 'sapnwrfc'
+
+$ITER = 50
+$TEST_FILE = ENV.has_key?('SAP_YML') ? ENV['SAP_YML'] : 'sap.yml'
+
+require 'test/unit'
+require 'test/unit/assertions'
+
+class SAPFunctionsTest < Test::Unit::TestCase
+	def setup
+	  #SAP_LOGGER.warn "Current DIR: #{Dir.pwd}\n"
+	  if FileTest.exists?($TEST_FILE)
+  	  SAPNW::Base.config_location = $TEST_FILE
+		else
+  	  SAPNW::Base.config_location = 'test/' + $TEST_FILE
+		end
+	  SAPNW::Base.load_config
+    #SAP_LOGGER.warn "program: #{$0}\n"
+	end
+	
+	def test_BASIC_00010_Function_LookUp
+	  $ITER.to_i.times do
+			begin 
+	      assert(conn = SAPNW::Base.rfc_connect)
+		    attrib = conn.connection_attributes
+		    #SAP_LOGGER.warn "Connection Attributes: #{attrib.inspect}\n"
+		    fd = conn.discover("RFC_READ_TABLE")
+		    assert(fd.name == "RFC_READ_TABLE")
+        f = fd.new_function_call
+			  #SAP_LOGGER.warn "FunctionDescriptor: #{fd.inspect}\n"
+			  #SAP_LOGGER.warn "FunctionDescriptor parameters: #{fd.parameters.inspect}\n"
+		    assert(fd.parameters.has_key?("QUERY_TABLE"))
+		    assert(f.name == "RFC_READ_TABLE")
+			  #SAP_LOGGER.warn "FunctionCall: #{f.inspect}\n"
+		    assert(conn.close)
+			rescue SAPNW::RFC::ConnectionException => e
+			  SAP_LOGGER.warn "ConnectionException ERROR: #{e.inspect} - #{e.error.inspect}\n"
+			end
+		end
+	  GC.start
+	end
+	
+	def test_BASIC_00020_Function_LookUp_Volume
+	  $ITER.to_i.times do
+	    assert(conn = SAPNW::Base.rfc_connect)
+	    ["STFC_CHANGING", "STFC_XSTRING", "RFC_READ_TABLE", "RFC_READ_REPORT", "RPY_PROGRAM_READ", "RFC_PING", "RFC_SYSTEM_INFO"].each do |f|
+		    fd = conn.discover(f)
+		    assert(fd.name == f)
+				#SAP_LOGGER.warn "FunctionDescriptor: #{fd.inspect}\n"
+			  #SAP_LOGGER.warn "FunctionDescriptor parameters: #{fd.parameters.inspect}\n"
+        c = fd.new_function_call
+		    #SAP_LOGGER.warn "Function Name: #{c.name}\n"
+		    assert(c.name == f)
+	  	end
+	  	GC.start
+		end
+	end
+
+	def teardown
+	end
+end

data/test/test_logger.rb

@@ -0,0 +1,65 @@
+$:.unshift(File.dirname(__FILE__) + '/lib')
+$:.unshift(File.dirname(__FILE__) + '/ext/nwsaprfc')
+$:.unshift(File.dirname(__FILE__) + '/../lib')
+$:.unshift(File.dirname(__FILE__) + '/../ext/nwsaprfc')
+
+require 'sapnwrfc'
+
+$TEST_FILE = 'test_sap_logger.log'
+require 'fileutils'
+
+require 'test/unit'
+require 'test/unit/assertions'
+
+class SAPLoggerTest < Test::Unit::TestCase
+
+	
+	def setup
+	  SAP_LOGGER.set_logdev($TEST_FILE)
+    #SAP_LOGGER.warn "program: #{$0}\n"
+	end
+	
+#  The different ways of connecting to SAP
+  def get_log
+    log = File.open($TEST_FILE) { |f| f.gets(nil) }
+		#SAP_LOGGER.warn log
+		return log
+  end
+
+  def log_lines
+	  lines = get_log.split(/\n/)
+		#SAP_LOGGER.warn lines.inspect
+		return lines
+	end
+
+	def test_BASIC_00010_All_Messages
+		assert( SAP_LOGGER.info("an info") )
+		assert( SAP_LOGGER.warn("a warning") )
+		assert( SAP_LOGGER.error("an error") )
+		assert( SAP_LOGGER.fatal("a fatal") )
+		assert( SAP_LOGGER.unknown("an unknown") )
+		assert( FileTest.exists?($TEST_FILE) )
+		#$stderr.print "lines: #{log_lines.length}\n"
+    assert( log_lines.length >= 5 ) # one for each log entry and a header
+	end
+
+	def test_BASIC_00020_Above_Warn
+	  SAP_LOGGER.level = Logger::WARN
+		assert( SAP_LOGGER.info("an info") )
+		assert( SAP_LOGGER.warn("a warning") )
+		assert( SAP_LOGGER.error("an error") )
+		assert( SAP_LOGGER.fatal("a fatal") )
+		assert( SAP_LOGGER.unknown("an unknown") )
+		assert( FileTest.exists?($TEST_FILE) )
+		#$stderr.print "lines: #{log_lines.length}\n"
+    assert( log_lines.length >= 5 ) # one for each log entry >= WARN and a header
+	end
+
+	def teardown
+    if FileTest.exists?($TEST_FILE)
+      SAP_LOGGER.set_logdev(STDERR) # Unlock the log file before deletion
+      GC.start                      # Ensure garbage colletion is run (unlock)
+      File.delete($TEST_FILE)
+    end
+	end
+end

data/test/test_sflight.rb

@@ -0,0 +1,71 @@
+#!/usr/bin/ruby
+$KCODE = 'u'
+$:.unshift(File.dirname(__FILE__) + '/lib')
+$:.unshift(File.dirname(__FILE__) + '/ext/nwsaprfc')
+$:.unshift(File.dirname(__FILE__) + '/../lib')
+$:.unshift(File.dirname(__FILE__) + '/../ext/nwsaprfc')
+
+require 'sapnwrfc'
+
+$TEST_FILE = ENV.has_key?('SAP_YML') ? ENV['SAP_YML'] : 'sap.yml'
+
+require 'test/unit'
+require 'test/unit/assertions'
+
+class SAPSFlightTest < Test::Unit::TestCase
+	def setup
+	  #SAP_LOGGER.warn "Current DIR: #{Dir.pwd}\n"
+	  if FileTest.exists?($TEST_FILE)
+  	  SAPNW::Base.config_location = $TEST_FILE
+		else
+  	  SAPNW::Base.config_location = 'test/' + $TEST_FILE
+		end
+	  SAPNW::Base.load_config
+    #SAP_LOGGER.warn "program: #{$0}\n"
+	end
+	
+	def test_BASIC_00010_Test_Data
+	  assert(conn = SAPNW::Base.rfc_connect)
+	  attrib = conn.connection_attributes
+	  #SAP_LOGGER.warn "Connection Attributes: #{attrib.inspect}\n"
+		fld = conn.discover("BAPI_FLIGHT_GETLIST")
+		flgd = conn.discover("BAPI_FLIGHT_GETDETAIL")
+    fl = fld.new_function_call
+		fl.AIRLINE = "AA "
+		fl.invoke
+		fl.FLIGHT_LIST.each do |row|
+		  SAP_LOGGER.debug "row: #{row.inspect}\n"
+      flg = flgd.new_function_call
+		  flg.AIRLINEID = row['AIRLINEID']
+		  flg.CONNECTIONID = row['CONNECTID']
+		  flg.FLIGHTDATE = row['FLIGHTDATE']
+		  flg.invoke
+		  SAP_LOGGER.debug "\tflight data: #{flg.FLIGHT_DATA.inspect}\n"
+		  SAP_LOGGER.debug "\tadditional info: #{flg.ADDITIONAL_INFO.inspect}\n"
+		  SAP_LOGGER.debug "\tavailability: #{flg.AVAILIBILITY.inspect}\n"
+		end
+		fd = conn.discover("BAPI_FLBOOKING_CREATEFROMDATA")
+		assert(fd.name == "BAPI_FLBOOKING_CREATEFROMDATA")
+    f = fd.new_function_call
+		assert(f.name == "BAPI_FLBOOKING_CREATEFROMDATA")
+    f.BOOKING_DATA = { 'AIRLINEID' => "AA ", 'CONNECTID' => "0001", 'FLIGHTDATE' => "20070130", 'CLASS' => "F", 'CUSTOMERID' => "00000001", 'AGENCYNUM' => '00000093' }
+		begin
+		  f.invoke
+		rescue SAPNW::RFC::FunctionCallException => e
+		  SAP_LOGGER.warn "FunctionCallException: #{e.error.inspect}\n"
+		  raise "gone"
+		end
+		f.RETURN.each do |row|
+		  SAP_LOGGER.debug "row: #{row.inspect}\n"
+		end
+		SAP_LOGGER.debug "PRICE: #{f.TICKET_PRICE.inspect}\n"
+		cd = conn.discover("BAPI_TRANSACTION_COMMIT")
+    c = cd.new_function_call
+		c.WAIT = "X"
+		c.invoke
+		assert(conn.close)
+	end
+
+	def teardown
+	end
+end

data/test/testregister.rb

@@ -0,0 +1,87 @@
+#!/usr/bin/ruby
+$KCODE = 'u'
+$:.unshift(File.dirname(__FILE__) + '/lib')
+$:.unshift(File.dirname(__FILE__) + '/ext/nwsaprfc')
+$:.unshift(File.dirname(__FILE__) + '/../lib')
+$:.unshift(File.dirname(__FILE__) + '/../ext/nwsaprfc')
+
+require 'sapnwrfc'
+
+$TEST_FILE = ENV.has_key?('SAP_YML') ? ENV['SAP_YML'] : 'sap.yml'
+$WAIT = 10
+
+require 'test/unit'
+require 'test/unit/assertions'
+
+class SAPRegisterTest < Test::Unit::TestCase
+	def setup
+	  #SAP_LOGGER.warn "Current DIR: #{Dir.pwd}\n"
+	  if FileTest.exists?($TEST_FILE)
+  	  SAPNW::Base.config_location = $TEST_FILE
+		else
+  	  SAPNW::Base.config_location = 'test/' + $TEST_FILE
+		end
+	  SAPNW::Base.load_config
+    #SAP_LOGGER.warn "program: #{$0}\n"
+	end
+	
+	def test_BASIC_00010_Test_Register
+		begin 
+	    func = SAPNW::RFC::FunctionDescriptor.new("RFC_REMOTE_PIPE")
+			pipedata = SAPNW::RFC::Type.new({:name => 'DATA', 
+			                                 :type => SAPNW::RFC::TABLE,
+																			 :fields => [{:name => 'LINE',
+																			              :type => SAPNW::RFC::CHAR, 
+																			              :len => 80}
+																									]
+																			})
+		  func.addParameter(SAPNW::RFC::Export.new(:name => "COMMAND", :len => 80, :type => SAPNW::RFC::CHAR))
+		  func.addParameter(SAPNW::RFC::Table.new(:name => "PIPEDATA", :len => 80, :type => pipedata))
+		  $stderr.print "Built up FunctionDescriptor: #{func.inspect}/#{func.parameters.inspect}\n"
+			pass = 0
+	    func.callback = Proc.new do |fc|
+		    $stderr.print "#{fc.name} got called with #{fc.COMMAND}\n"
+				if /^blah/.match(fc.COMMAND)
+				  raise SAPNW::RFC::ServerException.new({'error' => "Got Blah", 'code' => 111, 'key' => "RUBY_RUNTIME", 'message' => "Got a blah message" })
+				end
+				call = `#{fc.COMMAND}`
+				fc.PIPEDATA = []
+				call.split(/\n/).each do |val|
+				  fc.PIPEDATA.push({'LINE' => val})
+				end
+				pass += 1
+				$stderr.print "pass: #{pass}\n"
+        # dont ever "return" inside a callback - or it just exits 
+				#   make the last value true or nil depending on whether 
+				#   you successfully handled callback or not
+				true
+		  end
+		  $stderr.print "Register...\n"
+	    assert(server = SAPNW::Base.rfc_register)
+	    attrib = server.connection_attributes
+	    SAP_LOGGER.warn "Connection Attributes: #{attrib.inspect}\n"
+		  $stderr.print "Install...\n"
+	    assert(server.installFunction(func))
+	    globalCallBack = Proc.new do |attrib|
+	  	  $stderr.print "global got called: #{attrib.inspect}\n"
+				if pass < 150
+	  		  true
+				else
+				  # will tell the accept() loop to exit
+				  false
+				end
+	  	end
+		  $stderr.print "Accept...\n"
+	  	server.accept($WAIT, globalCallBack)
+	  rescue SAPNW::RFC::ServerException => e
+	    SAP_LOGGER.warn "ServerException ERROR: #{e.inspect} - #{e.error.inspect}\n"
+	  rescue SAPNW::RFC::FunctionCallException => e
+	    SAP_LOGGER.warn "FunctionCallException ERROR: #{e.inspect} - #{e.error.inspect}\n"
+	  rescue SAPNW::RFC::ConnectionException => e
+	    SAP_LOGGER.warn "ConnectionException ERROR: #{e.inspect} - #{e.error.inspect}\n"
+	  end
+	end
+	
+	def teardown
+	end
+end

data/test/testregister2.rb

@@ -0,0 +1,88 @@
+#!/usr/bin/ruby
+$KCODE = 'u'
+$:.unshift(File.dirname(__FILE__) + '/lib')
+$:.unshift(File.dirname(__FILE__) + '/ext/nwsaprfc')
+$:.unshift(File.dirname(__FILE__) + '/../lib')
+$:.unshift(File.dirname(__FILE__) + '/../ext/nwsaprfc')
+
+require 'sapnwrfc'
+
+$TEST_FILE = ENV.has_key?('SAP_YML') ? ENV['SAP_YML'] : 'sap.yml'
+$WAIT = 10
+
+require 'test/unit'
+require 'test/unit/assertions'
+
+class SAPRegisterTest < Test::Unit::TestCase
+    def setup
+      #SAP_LOGGER.warn "Current DIR: #{Dir.pwd}\n"
+      if FileTest.exists?($TEST_FILE)
+        SAPNW::Base.config_location = $TEST_FILE
+        else
+        SAPNW::Base.config_location = 'test/' + $TEST_FILE
+        end
+      SAPNW::Base.load_config
+    #SAP_LOGGER.warn "program: #{$0}\n"
+    end
+    
+    def test_BASIC_00010_Test_Register
+        begin 
+        func = SAPNW::RFC::FunctionDescriptor.new("RFC_REMOTE_PIPE")
+            pipedata = SAPNW::RFC::Type.new({:name => 'DATA', 
+                                             :type => SAPNW::RFC::TABLE,
+                                                                             :fields => [{:name => 'LINE',
+                                                                                          :type => SAPNW::RFC::CHAR, 
+                                                                                          :len => 80}
+                                                                                                    ]
+                                                                            })
+          func.addParameter(SAPNW::RFC::Export.new(:name => "COMMAND", :len => 80, :type => SAPNW::RFC::CHAR))
+          func.addParameter(SAPNW::RFC::Table.new(:name => "PIPEDATA", :len => 80, :type => pipedata))
+          $stderr.print "Built up FunctionDescriptor: #{func.inspect}/#{func.parameters.inspect}\n"
+            pass = 0
+        func.callback = Proc.new do |fc|
+            $stderr.print "#{fc.name} got called with #{fc.COMMAND}\n"
+                if /^blah/.match(fc.COMMAND)
+                  raise SAPNW::RFC::ServerException.new({'error' => "Got Blah", 'code' => 111, 'key' => "RUBY_RUNTIME", 'message' => "Got a blah message" })
+                end
+                call = `#{fc.COMMAND}`
+                fc.PIPEDATA = []
+                call.split(/\n/).each do |val|
+                  fc.PIPEDATA.push({'LINE' => val})
+                end
+                pass += 1
+                $stderr.print "pass: #{pass}\n"
+        # dont ever "return" inside a callback - or it just exits 
+                #   make the last value true or nil depending on whether 
+                #   you successfully handled callback or not
+                true
+          end
+          $stderr.print "Register...\n"
+        assert(server = SAPNW::Base.rfc_register)
+        attrib = server.connection_attributes
+        SAP_LOGGER.warn "Connection Attributes: #{attrib.inspect}\n"
+          $stderr.print "Install...\n"
+        assert(server.installFunction(func))
+        globalCallBack = Proc.new do |attrib|
+          end
+          $stderr.print "Process loop...\n"
+          while rc = server.process($WAIT)
+            $stderr.print "in process loop: #{rc}\n"
+                case rc
+                  when SAPNW::RFC::RFC_OK, SAPNW::RFC::RFC_RETRY
+                    else
+                    break
+                end
+                break unless pass < 10
+            end
+      rescue SAPNW::RFC::ServerException => e
+        SAP_LOGGER.warn "ServerException ERROR: #{e.inspect} - #{e.error.inspect}\n"
+      rescue SAPNW::RFC::FunctionCallException => e
+        SAP_LOGGER.warn "FunctionCallException ERROR: #{e.inspect} - #{e.error.inspect}\n"
+      rescue SAPNW::RFC::ConnectionException => e
+        SAP_LOGGER.warn "ConnectionException ERROR: #{e.inspect} - #{e.error.inspect}\n"
+      end
+    end
+    
+    def teardown
+    end
+end

data/test/testsuite.rb

@@ -0,0 +1,33 @@
+$:.unshift('./test')
+
+require 'test/unit/testsuite'
+require 'test/unit/ui/console/testrunner'
+
+require 'test_logger'
+require 'test_config'
+require 'test_connect'
+require 'test_attributes'
+require 'test_functions'
+require 'test_call'
+require 'test_changing'
+require 'test_data'
+require 'test_deep'
+require 'test_sflight'
+
+class TS_MyTests
+   def self.suite
+     suite = Test::Unit::TestSuite.new
+     suite = SAPLoggerTest.suite
+     suite << SAPConfigTest.suite
+     suite << SAPConnectTest.suite
+     suite << SAPConnectionAttributeTest.suite
+     suite << SAPFunctionsTest.suite
+     suite << SAPCallTest.suite
+     suite << SAPChangingTest.suite
+     suite << SAPDataTest.suite
+     suite << SAPDeepTest.suite
+     suite << SAPSFlightTest.suite
+     return suite
+   end
+end
+Test::Unit::UI::Console::TestRunner.run(TS_MyTests)

metadata

@@ -1,35 +1,51 @@
 --- !ruby/object:Gem::Specification
 name: sapnwrfc
 version: !ruby/object:Gem::Version
-  version: '0.23'
+  version: '0.24'
   prerelease: 
 platform: i686-linux
 authors:
 - Piers Harding
-autorequire:
-- sapnwrfc
+- Michele Franzin
+autorequire: 
 bindir: bin
 cert_chain: []
-date: 2011-07-27 00:00:00.000000000 +02:00
-default_executable: 
+date: 2012-04-10 00:00:00.000000000Z
 dependencies: []
 description: ! "    sapnwrfc is a ruby module for performing RFC functions and BAPI
   calls on\n    an SAP Netweaver system NW2004+\n"
-email: piers@ompka.net
+email:
+- piers@ompka.netmichele@franzin.net
 executables: []
 extensions: []
 extra_rdoc_files: []
 files:
 - lib/sapnwrfc/config.rb
+- lib/sapnwrfc/version.rb
 - lib/sapnwrfc/base.rb
 - lib/sapnwrfc/connection.rb
 - lib/sapnwrfc/functions.rb
 - lib/sapnwrfc/server.rb
 - lib/sapnwrfc/parameters.rb
 - lib/sapnwrfc.rb
+- README.rdoc
+- ChangeLog
 - ext/nwsaprfc/nwsaprfc.so
-has_rdoc: true
-homepage: http://www.piersharding.com
+- test/test_changing.rb
+- test/test_attributes.rb
+- test/sap.yml
+- test/testregister2.rb
+- test/test_data.rb
+- test/test_call.rb
+- test/test_deep.rb
+- test/testsuite.rb
+- test/testregister.rb
+- test/test_config.rb
+- test/test_functions.rb
+- test/test_connect.rb
+- test/test_logger.rb
+- test/test_sflight.rb
+homepage: http://github.com/fuzziness/sapnwrfc
 licenses: []
 post_install_message: 
 rdoc_options: []
@@ -50,8 +66,22 @@ required_rubygems_version: !ruby/object:Gem::Requirement
       version: '0'
 requirements: []
 rubyforge_project: 
-rubygems_version: 1.6.2
+rubygems_version: 1.8.10
 signing_key: 
 specification_version: 3
 summary: SAP Netweaver RFC connector for Ruby
-test_files: []
+test_files:
+- test/test_changing.rb
+- test/test_attributes.rb
+- test/sap.yml
+- test/testregister2.rb
+- test/test_data.rb
+- test/test_call.rb
+- test/test_deep.rb
+- test/testsuite.rb
+- test/testregister.rb
+- test/test_config.rb
+- test/test_functions.rb
+- test/test_connect.rb
+- test/test_logger.rb
+- test/test_sflight.rb