xmlservice 1.3.0

data/test/test_80000_toolkit_dsl/test_80110_DSLCallSrvPgmZZARRAY.rb

@@ -0,0 +1,150 @@
+# File: test_80110_DSLCallSrvPgmZZARRAY.rb
+require "../test_authorization/auth"
+require "../test_data/rowcol"
+
+#     D ARRAYMAX        c                   const(999)
+#     D dcRec_t         ds                  qualified based(Template)
+#     D  dcMyName                     10A
+#     D  dcMyJob                    4096A
+#     D  dcMyRank                     10i 0
+#     D  dcMyPay                      12p 2
+#      *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+#      * zzarray: check return array aggregate 
+#      *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+#     P zzarray         B                   export
+#     D zzarray         PI                  likeds(dcRec_t) dim(ARRAYMAX)
+#     D  myName                       10A
+#     D  myMax                        10i 0
+#     D  myCount                      10i 0
+class Test_80110_DSLCallSrvPgmZZARRAY < RowColUnitTest
+  # -------------------------------
+  # test functions (start with prefix test_)
+  # rake test -- Unit run alpha sort order
+  # run #1) test_0000_connect
+  # run #2) test_nnnn_xxx
+  # :
+  # run #n) test_9999_close
+  # -------------------------------
+
+  def test_0050_zzarray
+    count = 5
+    zzwho = 'Ranger'
+    zzarray = XMLService::I_SRVPGM.new("ZZSRV","ZZARRAY",$toolkit_test_lib,{'error'=>'on'})
+    zzarray.input_parms do
+     char "myName", 10
+     long "myMax"
+     long_enddo "myCount"
+    end
+    zzarray.return_parms do
+     struct_dou "dcRec_t", 999, "myCount" do
+       char "dcMyName", 10
+       char "dcMyJob", 4096
+       long "dcMyRank"
+       dec "dcMyPay", 12, 2
+     end
+    end
+
+    # set input variables for call
+    zzarray.input.PARM0.myName = 'Skippy'
+    zzarray.input.PARM1.myMax  = 9
+    zzarray.input.PARM2.myCount= 0
+    puts "\n+++++++++ input normal ++++++++++++++++"
+    puts zzarray.to_xml
+    # verify
+    self.match_value(__method__,__LINE__,'myName'     ,'Skippy'    ,zzarray.input.PARM0.myName)
+    self.match_value(__method__,__LINE__,'myMax'      ,9           ,zzarray.input.PARM1.myMax)
+    self.match_value(__method__,__LINE__,'myCount'    ,0           ,zzarray.input.PARM2.myCount)
+
+
+    # set input variables for call
+    zzarray.input.myName = zzwho
+    zzarray.input.myMax  = count
+    zzarray.input.myCount= 0
+    puts "\n+++++++++ input fewer ++++++++++++++++"
+    puts zzarray.to_xml
+    # verify
+    self.match_value(__method__,__LINE__,'myName'     ,zzwho    ,zzarray.input.PARM0.myName)
+    self.match_value(__method__,__LINE__,'myMax'      ,count    ,zzarray.input.PARM1.myMax)
+    self.match_value(__method__,__LINE__,'myCount'    ,0        ,zzarray.input.PARM2.myCount)
+
+    # call IBM i
+    zzarray.call
+
+    # puts zzarray.inspect
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts zzarray.dump_inspect
+
+	  # xmlservice error occurred?
+    rc = zzarray.xmlservice_error
+    if rc
+      puts zzcall.dump_error
+      self.match_value(__method__,__LINE__,'error' ,false,rc)
+    end
+
+    # output xml
+    puts "\n+++++++++ output xml ++++++++++++++++"
+    puts zzarray.out_xml
+
+
+    # output
+    puts "\n+++++++++ output ++++++++++++++++"
+    puts "#{zzarray.name}.#{zzarray.func}:\n"
+    puts " myName....#{zzarray.response.myName}\n"
+    puts " myMax.....#{zzarray.response.myMax}\n"
+    puts " myCount...#{zzarray.response.myCount}\n"
+    i = 0
+    zzarray.returndata.dcRec_t.each do |dcRec_t|
+      i += 1
+      puts "dcRec_t[#{i}]"
+      puts "  Name...#{dcRec_t.dcMyName}"
+      puts "  Job....#{dcRec_t.dcMyJob}"
+      puts "  Rank...#{dcRec_t.dcMyRank}"
+      puts "  Pay....#{dcRec_t.dcMyPay}"
+    end
+    # verify
+    self.match_value(__method__,__LINE__,'myName'     ,zzwho    ,zzarray.response.myName)
+    self.match_value(__method__,__LINE__,'myMax'      ,count    ,zzarray.response.myMax)
+    self.match_value(__method__,__LINE__,'myCount'    ,count    ,zzarray.response.myCount)
+    for i in 0..zzarray.returndata.dcRec_t.count-1
+      dcMyName = zzarray.response.myName.to_s + (i+1).to_s
+      dcMyJob = "Test " + (100 + i + 1).to_s
+      dcMyRank = 10 + i + 1
+      dcMyPay = 13.42 * (i+1)
+      self.match_value(__method__,__LINE__,'dcMyName' ,dcMyName ,zzarray.returndata.dcRec_t[i].dcMyName)
+      self.match_value(__method__,__LINE__,'dcMyJob'  ,dcMyJob  ,zzarray.returndata.dcRec_t[i].dcMyJob)
+      self.match_value(__method__,__LINE__,'dcMyRank' ,dcMyRank ,zzarray.returndata.dcRec_t[i].dcMyRank)
+      self.match_value(__method__,__LINE__,'dcMyPay'  ,dcMyPay  ,zzarray.returndata.dcRec_t[i].dcMyPay)
+    end
+
+    # output
+    puts "\n+++++++++ output long ++++++++++++++++"
+    puts "#{zzarray.name}.#{zzarray.func}:\n"
+    puts " myName....#{zzarray.response.PARM0.myName}\n"
+    puts " myMax.....#{zzarray.response.PARM1.myMax}\n"
+    puts " myCount...#{zzarray.response.PARM2.myCount}\n"
+    i = 0
+    zzarray.returndata.douaggr.dcRec_t.each do |dcRec_t|
+      i += 1
+      puts "dcRec_t[#{i}]"
+      puts "  Name...#{dcRec_t.dcMyName}"
+      puts "  Job....#{dcRec_t.dcMyJob}"
+      puts "  Rank...#{dcRec_t.dcMyRank}"
+      puts "  Pay....#{dcRec_t.dcMyPay}"
+    end
+    # verify
+    self.match_value(__method__,__LINE__,'myName'     ,zzwho    ,zzarray.response.PARM0.myName)
+    self.match_value(__method__,__LINE__,'myMax'      ,count    ,zzarray.response.PARM1.myMax)
+    self.match_value(__method__,__LINE__,'myCount'    ,count    ,zzarray.response.PARM2.myCount)
+    for i in 0..zzarray.returndata.douaggr.dcRec_t.count-1
+      dcMyName = zzarray.response.PARM0.myName.to_s + (i+1).to_s
+      dcMyJob = "Test " + (100 + i + 1).to_s
+      dcMyRank = 10 + i + 1
+      dcMyPay = 13.42 * (i+1)
+      self.match_value(__method__,__LINE__,'dcMyName' ,dcMyName ,zzarray.returndata.douaggr.dcRec_t[i].dcMyName)
+      self.match_value(__method__,__LINE__,'dcMyJob'  ,dcMyJob  ,zzarray.returndata.douaggr.dcRec_t[i].dcMyJob)
+      self.match_value(__method__,__LINE__,'dcMyRank' ,dcMyRank ,zzarray.returndata.douaggr.dcRec_t[i].dcMyRank)
+      self.match_value(__method__,__LINE__,'dcMyPay'  ,dcMyPay  ,zzarray.returndata.douaggr.dcRec_t[i].dcMyPay)
+    end
+  end
+
+end

data/test/test_authorization/README_IBM_i

@@ -0,0 +1,15 @@
+===================
+Encrypted passwords
+=================== 
+cd xmlservice/test
+> genpassword.rb
+  Syntax:
+   ruby genpassword.rb db user password [key]
+     db       - *LOCAL (see WRKRDBDIRE)
+     user     - user profile id
+     password - user profile password
+   Optional:"
+     key      - pass key (generate if missing)
+              - /path/key.yml                 
+              - YIPS4321AAAAAAAAAAAAAAA132424245 (actual key)
+

data/test/test_authorization/auth.rb

@@ -0,0 +1,101 @@
+require 'xmlservice'
+
+# =================
+# IBM i tests (see xmlservice/README_IBM_i)
+# =================
+$test_url        = ENV['TEST_URL']
+$test_db         = ENV['TEST_DATABASE']
+$test_user       = ENV['TEST_USER']
+$test_pwd        = ENV['TEST_PWD']
+$test_ctl        = ENV['TEST_CTL']
+$test_ipc        = ENV['TEST_IPC']
+$test_xmlservice = ENV['TEST_XMLSERVICE']
+$test_lib        = ENV['TEST_LIB']
+if $test_url == nil
+  $test_url = "http://174.79.32.155/cgi-bin/xmlcgi.pgm"
+end
+if $test_db == nil
+  $test_db = "*LOCAL"
+end
+if $test_user == nil
+  $test_user = "*NONE"
+end
+if $test_pwd == nil
+  $test_pwd = "*NONE"
+end
+if $test_ctl == nil
+  $test_ctl = "*here"
+end
+if $test_ipc == nil
+  $test_ipc = "*na"
+end
+if $test_xmlservice == nil
+  $test_xmlservice = "XMLSERVICE"
+end
+if $test_lib == nil
+  $test_lib = "DB2"
+end
+
+# =================
+# developer only yaml 
+# encrypt password tests
+# =================
+# $test_url = "yaml"
+$test_env = ENV['TEST_ENV']
+$test_yaml = ENV['TEST_YAML']
+if $test_yaml == nil
+  $test_yaml = "../test_authorization/xmlservice.yml"
+end
+if $test_env == nil
+  $test_env = "db2public"
+end
+
+
+case $test_url
+when "ibm_db"
+  # =================
+  # establish connection (DB2)
+  # =================
+  ActiveXMLService::Base.establish_connection(
+  :adapter => "ibm_db",
+  :connection => "ActiveRecord",
+  :database => $test_db,
+  :username => $test_user,
+  :password  => $test_pwd,
+  :ctl => $test_ctl,
+  :ipc => $test_ipc,
+  :size => 15000000,
+  :head => "<?xml version='1.0'?>",
+  :test_i_lib => $test_xmlservice,  # custom attributes (not xmlservice required)
+  :test_i_db2_lib => $test_lib      # custom attributes (not xmlservice required)
+  )
+when "yaml"
+  # =================
+  # establish connection (based on yaml)
+  # =================
+  ActiveXMLService::Base.establish_connection(
+  :test_yaml => $test_yaml,
+  :test_env  => $test_env
+  )
+else
+  # =================
+  # establish connection (REST)
+  # =================
+  ActiveXMLService::Base.establish_connection(
+  :connection => $test_url,
+  :database => $test_db,
+  :username => $test_user,
+  :password  => $test_pwd,
+  :ctl => $test_ctl,
+  :ipc => $test_ipc,
+  :size => 15000000,
+  :head => "<?xml version='1.0'?>",
+  :test_i_lib => $test_xmlservice,  # custom attributes (not xmlservice required)
+  :test_i_db2_lib => $test_lib      # custom attributes (not xmlservice required)
+  )
+end
+
+# custom attributes (not xmlservice required)
+$toolkit_test_lib = ActiveXMLService::Base.configurations[:test_i_lib];
+$toolkit_test_db2_lib = ActiveXMLService::Base.configurations[:test_i_db2_lib];
+

data/test/test_authorization/key.yml

@@ -0,0 +1,2 @@
+pwd_key: "YIPS4321AAAAAAAAAAAAAAA132424245"
+

data/test/test_authorization/password.yml

@@ -0,0 +1,3 @@
+DB2: 
+  pwd_enc: "YiYNfodSh5MGZVX7TXktEPSrnVlrAPjoyzzn48SdC/k=%0A"
+

data/test/test_authorization/xmlservice.yml

@@ -0,0 +1,69 @@
+# Profile DB2 (xmlcgi.pgm or ibm_db)   
+db2profile: &db2profile
+  # database: "LP0364D"
+  database: "*LOCAL"
+  username: DB2
+  #password: MYPWD
+  pwd_yaml: ../test_authorization/password.yml
+
+# REST client to XMLSERVICE 
+xmlrest: &xmlrest
+  connection: "http://174.79.32.155/cgi-bin/xmlcgi.pgm"
+
+# DB2 client to XMLSERVICE
+xmldb2: &xmldb2
+  connection: "ActiveRecord"
+  adapter: ibm_db
+
+# xmlservice common
+xmlservicecommon: &xmlservicecommon
+  install: XMLSERVICE
+  size: 15000000
+  head: "<?xml version='1.0'?>"
+  test_i_lib: XMLSERVICE
+  test_i_db2_lib: DB2
+
+# xmlservice state full private connection (yes XTOOLKIT job)
+xmlserviceprivate: &xmlserviceprivate
+  ctl: "*sbmjob"
+  ipc: /tmp/ruby042
+
+# xmlservice stateless public connection (no XTOOLKIT job)
+xmlservicepublic: &xmlservicepublic
+  ctl: "*here"
+  ipc: "/none"
+
+# ---------------------------------
+# xmlservice using ibm_db
+# ActiveXMLService::Base.establish_connection(
+#  :test_yaml => '/path/xmlservice.yml',
+#  :test_env  => 'sqlpublic'
+#)
+db2private:
+  <<: *xmldb2
+  <<: *db2profile
+  <<: *xmlservicecommon
+  <<: *xmlserviceprivate
+db2public:
+  <<: *xmldb2
+  <<: *db2profile
+  <<: *xmlservicecommon
+  <<: *xmlservicepublic
+
+# ---------------------------------
+# xmlservice using REST (xmlcgi.pgm)
+# ActiveXMLService::Base.establish_connection(
+#  :test_yaml => '/path/xmlservice.yml',
+#  :test_env  => 'restpublic'
+#)
+restprivate:
+  <<: *xmlrest
+  <<: *db2profile
+  <<: *xmlservicecommon
+  <<: *xmlserviceprivate
+restpublic:
+  <<: *xmlrest
+  <<: *db2profile
+  <<: *xmlservicecommon
+  <<: *xmlservicepublic
+

data/test/test_data/rowcol.rb

@@ -0,0 +1,57 @@
+# test data for various tables
+require "../test_authorization/auth"
+require "test/unit"
+
+class RowColUnitTest  < Test::Unit::TestCase
+  def match_hash(test,linenbr,text,a,b)
+    i = 0
+    a.each do |key, value|
+      if(b.has_key?(key))
+        self.match_value(test,linenbr,"#{text} => #{key}",a[key],b[key])
+      else
+        k1 = key
+        k2 = 'missing'
+        assert_match( k2, k1, "#{test}:#{linenbr} mismatch: #{text}[#{k1}] == #{text}[]")
+      end
+    end 
+  end
+  def match_value(test,linenbr,text,a,b)
+    # float/real/decimal/string,
+    # you sir are a String/BigDecimal,
+    # therefore you must float yourself, etc. ... 
+    # Ruby perfection be my name (Borg),
+    # perhaps yet another reason to use PHP
+    case a
+    when String
+      case b
+      when String
+        # ok
+      else
+        b = b.to_s()
+      end 
+    when Integer
+      case b
+      when Integer
+        # ok
+      else
+        b = b.to_i()
+      end 
+    when Float
+      case b
+      when Float
+        # ok
+      else
+        b = b.to_f()
+      end 
+    else
+    end 
+    # make a check
+    case a
+    when String
+      assert_match( a, b, "#{test}:#{linenbr} #{text} mismatch: #{a} == #{b}")
+    else
+      assert_equal( a, b, "#{test}:#{linenbr} #{text} mismatch: #{a} == #{b}")
+    end
+  end
+end
+

data/version.txt

@@ -0,0 +1 @@
+1.3.0 GA5-test

metadata

@@ -0,0 +1,92 @@
+--- !ruby/object:Gem::Specification
+name: xmlservice
+version: !ruby/object:Gem::Version
+  version: 1.3.0
+platform: ruby
+authors:
+- Tony Cairns
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-12-15 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0'
+description: Call IBM i PGM, SRVPGM, CMD, PASE
+email: adc@us.ibm.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- LICENSE
+- README_IBM_i
+- lib/adapters/abstract_adapter.rb
+- lib/adapters/db2_adapter.rb
+- lib/adapters/rest_adapter.rb
+- lib/password/password.rb
+- lib/xmlservice.rb
+- test/README_IBM_i
+- test/Rakefile
+- test/genpassword.rb
+- test/test_60000_toolkit_driver/Rakefile
+- test/test_60000_toolkit_driver/test_60010_DriverCallPgmZZCALL.rb
+- test/test_60000_toolkit_driver/test_60110_DriverCallSrvPgmZZARRAY.rb
+- test/test_60000_toolkit_driver/test_60310_DriverCMD.rb
+- test/test_60000_toolkit_driver/test_60510_DriverDataQueue.rb
+- test/test_60000_toolkit_driver/test_60610_DriverCallSrvPgmZZBINARY.rb
+- test/test_60000_toolkit_driver/test_60710_DriverSH.rb
+- test/test_60000_toolkit_driver/test_60910_DriverCallPgmZZMISS.rb
+- test/test_60000_toolkit_driver/test_65010_DriverCallDB2.rb
+- test/test_60000_toolkit_driver/zzassign.rb
+- test/test_60000_toolkit_driver/zzquick.rb
+- test/test_60000_toolkit_driver/zztestrest.rb
+- test/test_60000_toolkit_driver/zzthreadold.rb
+- test/test_70000_toolkit_testonly/Rakefile
+- test/test_70000_toolkit_testonly/test_70010_DriverCallPgmTestOnly.rb
+- test/test_80000_toolkit_dsl/Rakefile
+- test/test_80000_toolkit_dsl/test_80010_DSLCallPgmZZCALL.rb
+- test/test_80000_toolkit_dsl/test_80110_DSLCallSrvPgmZZARRAY.rb
+- test/test_authorization/README_IBM_i
+- test/test_authorization/auth.rb
+- test/test_authorization/key.yml
+- test/test_authorization/password.yml
+- test/test_authorization/xmlservice.yml
+- test/test_data/rowcol.rb
+- version.txt
+homepage: http://github.com/adc/xmlservice
+licenses:
+- BSD
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.2.2
+signing_key: 
+specification_version: 4
+summary: IBM i Access
+test_files: []