xmlservice 1.3.0

data/test/test_60000_toolkit_driver/test_60910_DriverCallPgmZZMISS.rb

@@ -0,0 +1,44 @@
+# File: test_60910_DriverCallPgmzzmiss.rb
+require "../test_authorization/auth"
+require "../test_data/rowcol"
+
+class Test_60910_DriverCallPgmZZMISS < 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_0030_pgm_zzmiss_error
+    # call missing PGM
+    # 'error' => 'on' -- slow large joblog (development)
+    # 'error' => 'off' -- slow subset joblog (development)
+    # 'error' => 'fast' -- high speed errors (production)
+    options = {'error'=>'off'} 
+    zzmiss = XMLService::I_PGM.new("ZZMISS",$toolkit_test_lib,options)
+    # call IBM i zzmiss
+    zzmiss.xmlservice
+
+    # xmlservice error occurred?
+    puts "\n+++++++++ dump_error ++++++++++++++++"
+    rc = zzmiss.xmlservice_error
+    if rc
+      puts zzmiss.dump_error
+    end
+
+
+    # puts zzmiss.inspect
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts zzmiss.dump_inspect
+
+    self.match_value(__method__,__LINE__,'error' ,true,rc)
+  end
+
+  # -------------------------------
+  # non-test functions (no prefix test_)
+  # -------------------------------
+
+end
+

data/test/test_60000_toolkit_driver/test_65010_DriverCallDB2.rb

@@ -0,0 +1,265 @@
+# File: test_65010_DriverCallDB2.rb
+require "../test_authorization/auth"
+require "../test_data/rowcol"
+
+class Test_65010_DriverCallDB2 < 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_0020_DB2_query
+    # ***************************************
+    # * DB2 - query
+    # ***************************************
+    query = XMLService::I_DB2.new("select * from #{$toolkit_test_db2_lib}/animals")
+    # call IBM i
+    puts "\n+++++++++ input xml ++++++++++++++++"
+    puts query.to_xml
+    query.xmlservice
+    # xmlservice error occurred?
+    rc = query.xmlservice_error
+    if rc
+      puts query.dump_all()
+      self.match_value(__method__,__LINE__,'error' ,false,rc)
+    end
+
+    # inspect
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts query.dump_inspect
+
+    # output
+    # puts query.out_xml
+    # rows
+    puts "\n+++++++++ response output ++++++++++++++++"
+    query.response.output.each do |row|
+      all = ""
+      row.each do |n,v|
+        all << "#{n}=#{v} "
+      end
+      puts all
+    end
+
+    # verify
+    test = "ID=0 BREED=cat NAME=Pook WEIGHT=3.20"
+    all = ""
+    query.response.output.each do |row|
+      row.each do |n,v|
+        all << "#{n}=#{v} "
+      end
+      break
+    end
+    self.match_value(__method__,__LINE__,'one row',test,all)
+  end
+
+  def test_0030_DB2_query_parm
+    # ***************************************
+    # * DB2 - query
+    # ***************************************
+    id = 1
+    query = XMLService::I_DB2.new("select * from #{$toolkit_test_db2_lib}/animals where ID < ?",{'id'=>id})
+    # call IBM i
+    puts "\n+++++++++ input xml ++++++++++++++++"
+    puts query.to_xml
+    query.xmlservice
+    # xmlservice error occurred?
+    rc = query.xmlservice_error
+    if rc
+      puts query.dump_all()
+      self.match_value(__method__,__LINE__,'error' ,false,rc)
+    end
+
+    # inspect
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts query.dump_inspect
+
+    # output
+    puts "\n+++++++++ response output ++++++++++++++++"
+    # puts query.out_xml
+    # rows
+    puts "id < #{query.returndata.id.strip}"
+    query.response.output.each do |row|
+      all = ""
+      row.each do |n,v|
+        all << "#{n}=#{v} "
+      end
+      puts all
+    end
+
+    # verify
+    test = "ID=0 BREED=cat NAME=Pook WEIGHT=3.20"
+    all = ""
+    query.response.output.each do |row|
+      row.each do |n,v|
+        all << "#{n}=#{v} "
+      end
+      break
+    end
+    self.match_value(__method__,__LINE__,'one row',test,all)
+    self.match_value(__method__,__LINE__,'parm id',id,query.returndata.id)
+  end
+
+  def test_0040_DB2_query_parm2
+    # ***************************************
+    # * DB2 - query
+    # ***************************************
+    id = 5
+    weight = 0.20
+    query = XMLService::I_DB2.new("select * from #{$toolkit_test_db2_lib}/animals where ID < ? and WEIGHT > ?",{'id'=>id,"weight"=>weight})
+    # call IBM i
+    puts "\n+++++++++ input xml ++++++++++++++++"
+    puts query.to_xml
+    query.xmlservice
+    # xmlservice error occurred?
+    rc = query.xmlservice_error
+    if rc
+      puts query.dump_all()
+      self.match_value(__method__,__LINE__,'error' ,false,rc)
+    end
+
+    # inspect
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts query.dump_inspect
+
+    # output
+    puts "\n+++++++++ response output ++++++++++++++++"
+    # puts query.out_xml
+    # rows
+    puts "id < #{query.returndata.id.strip}"
+    puts "weight > #{query.returndata.weight.strip}"
+    query.response.output.each do |row|
+      all = ""
+      row.each do |n,v|
+        all << "#{n}=#{v} "
+      end
+      puts all
+    end
+
+    # verify
+    test = "ID=0 BREED=cat NAME=Pook WEIGHT=3.20"
+    all = ""
+    query.response.output.each do |row|
+      row.each do |n,v|
+        all << "#{n}=#{v} "
+      end
+      break
+    end
+    self.match_value(__method__,__LINE__,'one row',test,all)
+    self.match_value(__method__,__LINE__,'parm id',id,query.returndata.id)
+    self.match_value(__method__,__LINE__,'parm weight',weight,query.returndata.weight)
+  end
+
+
+  def test_0050_DB2_procedure
+    # ***************************************
+    # * DB2 - query
+    # ***************************************
+    in_name1 = 'Peaches'
+    in_name2 = 'Rickety Ride'
+    in_weight = 22.22
+    query = XMLService::I_DB2.new("call #{$toolkit_test_db2_lib}/MATCH_ANIMAL(?, ?, ?)",
+      {'name1'=>in_name1,"name2"=>in_name2,"weight"=>in_weight})
+    # call IBM i
+    puts "\n+++++++++ input xml ++++++++++++++++"
+    puts query.to_xml
+    query.xmlservice
+    # xmlservice error occurred?
+    rc = query.xmlservice_error
+    if rc
+      puts query.dump_all()
+      self.match_value(__method__,__LINE__,'error' ,false,rc)
+    end
+
+    # inspect
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts query.dump_inspect
+
+    # output
+    puts "\n+++++++++ response output ++++++++++++++++"
+    # puts query.out_xml
+    # rows
+    puts "name1 = #{query.returndata.name1.strip}"
+    puts "name2 = #{query.returndata.name2.strip}"
+    puts "weight = #{query.returndata.weight.strip}"
+    query.response.output.each do |row|
+      all = ""
+      row.each do |n,v|
+        all << "#{n}=#{v} "
+      end
+      puts all
+    end
+
+    # verify
+    out_name1 = 'Peaches'
+    out_name2 = 'TRUE'
+    out_weight = 12.3
+    test = "NAME=Peaches BREED=dog WEIGHT=12.30"
+    all = ""
+    query.response.output.each do |row|
+      row.each do |n,v|
+        all << "#{n}=#{v} "
+      end
+      break
+    end
+    self.match_value(__method__,__LINE__,'one row',test,all)
+    self.match_value(__method__,__LINE__,'name1',out_name1,query.returndata.name1)
+    self.match_value(__method__,__LINE__,'name2',out_name2,query.returndata.name2)
+    self.match_value(__method__,__LINE__,'name2',out_weight,query.returndata.weight)
+  end
+
+
+  def test_0100_DB2_query_graphic
+    # ***************************************
+    # * DB2 - query
+    # ***************************************
+    query = XMLService::I_DB2.new("select * from #{$toolkit_test_db2_lib}/VAR_GRAPHIC_TEST")
+    # call IBM i
+    puts "\n+++++++++ input xml ++++++++++++++++"
+    puts query.to_xml
+    query.xmlservice
+    # xmlservice error occurred?
+    rc = query.xmlservice_error
+    if rc
+      puts query.dump_all()
+      self.match_value(__method__,__LINE__,'error' ,false,rc)
+    end
+
+    # inspect
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts query.dump_inspect
+
+    # output
+    puts "\n+++++++++ response output ++++++++++++++++"
+    # puts query.out_xml
+    # rows
+    query.response.output.each do |row|
+      all = ""
+      row.each do |n,v|
+        all << "#{n}=#{v} "
+      end
+      puts all
+    end
+
+    # verify
+    test = "COL1=something COL2=something"
+    all = ""
+    query.response.output.each do |row|
+      row.each do |n,v|
+        all << "#{n}=#{v} "
+      end
+      break
+    end
+    self.match_value(__method__,__LINE__,'one row',test,all)
+  end
+
+
+
+  # -------------------------------
+  # non-test functions (no prefix test_)
+  # -------------------------------
+
+end

data/test/test_60000_toolkit_driver/zzassign.rb

@@ -0,0 +1,66 @@
+class I_a
+  # value get/set not exist until created
+  # accessor inchara created dynamically
+  attr_accessor :inchara
+  def initialize(v)
+    @inchara = v
+  end
+end
+
+# param anchor for call input, repond
+class I_Parameter
+  attr_accessor :elem
+  def initialize(elem)
+    @elem = elem
+  end
+  # methods get/set do not exist until created
+  # forwarding inchara methods created dynamically
+  def inchara
+    @elem.inchara
+  end
+  def inchara=(value)
+    @elem.inchara=value
+  end
+end
+
+# class will allow area to dynamically create
+# entire object stack without prefixes
+# (assuming 'clever naming' user of course)
+class I_Data
+  # nothing in this class until dynamically created 
+  attr_accessor :PARM0
+  def initialize(elem)
+    @PARM0 = elem
+  end
+  # forwarding inchara methods created dynamically
+  def inchara
+    @PARM0.inchara
+  end
+  def inchara=(value)
+    @PARM0.inchara=value
+  end
+end
+
+# main/top class
+# assuming 'clever naming' user of course
+# :input = I_Data.new
+# :respond = I_Data.new
+# (:returndata = I_Data.new)
+class I_Pgm
+  attr_accessor :input, :respond
+  def initialize
+    @input = I_Data.new ( I_Parameter.new(I_a.new('a')) )
+  end
+end
+
+# customer script usage
+zzcall = I_Pgm.new
+puts zzcall.input.PARM0.inchara
+
+zzcall.input.PARM0.inchara = 'b'
+puts zzcall.input.PARM0.inchara
+
+zzcall.input.inchara = 'c'
+puts zzcall.input.inchara
+
+

data/test/test_60000_toolkit_driver/zzquick.rb

@@ -0,0 +1,149 @@
+# File: test_Quick.rb
+require "../test_authorization/auth"
+require "../test_data/rowcol"
+
+class Test_Quick < RowColUnitTest
+
+
+  def test_0500_DB2_query_parm2
+    # ***************************************
+    # * DB2 - query
+    # ***************************************
+    id = 5
+    weight = 0.20
+    likethis = 'Peaches%'   # ibm_db driver
+    query = XMLService::I_DB2.new("select * from #{$toolkit_test_db2_lib}/animals where NAME LIKE ?",{'name'=>likethis},{'error'=>'on'})
+    # call IBM i
+    puts "\n+++++++++ input xml ++++++++++++++++"
+    puts query.to_xml
+    query.xmlservice
+    # xmlservice error occurred?
+    rc = query.xmlservice_error
+    if rc
+      puts query.dump_all()
+      self.match_value(__method__,__LINE__,'error' ,false,rc)
+    end
+
+    # inspect
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts query.dump_inspect
+
+    # output
+    puts "\n+++++++++ response output ++++++++++++++++"
+    puts query.out_xml
+
+  end
+
+
+  def no_test_0500_pgm_zzcall_array
+    # call IBM i ZZCALL (default values)
+    zzcall = XMLService::I_PGM.new("ZZCALL",$toolkit_test_lib,{'error'=>'fast'}) 
+    zzcall << XMLService::I_a.new('inchara',1,'s')
+    zzcall << XMLService::I_a.new('incharb',1,'r') 
+    zzcall << XMLService::I_p.new('indec1',7,4,55.1111) 
+    zzcall << XMLService::I_p.new('indec2',12,2,333.22)
+    zzcall << XMLService::I_DS.new('inds1',1,
+                                   [{
+                                     'fred'=>XMLService::I_a.new('dschara',1,'t'),
+                                     'wilma'=>XMLService::I_a.new('dscharb',1,'f'),
+                                     'betty'=>XMLService::I_p.new('dsdec1',7,4,77.6666),
+                                     'bambam'=>XMLService::I_p.new('dsdec2',12,2,88888.77)
+                                    }])
+
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts zzcall.dump_inspect
+
+    zzcall.input.inchara          = '1'
+    zzcall.input.incharb          = '1'
+    zzcall.input.indec1           = 11.1111
+    zzcall.input.indec2           = 11.11
+    zzcall.input.inds1[0]['fred'].dschara = '1'
+    zzcall.input.inds1[0]['wilma'].dscharb = '1'
+    zzcall.input.inds1[0]['betty'].dsdec1  = 111.1111
+    zzcall.input.inds1[0]['bambam'].dsdec2  = 1111.11
+
+    parms = [ 'inchara'=>'2', 'incharb'=>'2', 'indec1'=>22.2222, 'indec2'=>22.22, 
+              'inds1'=>[{
+                'wilma'=>{'dscharb'=>'2'},
+                'betty'=>{'dsdec1'=>222.2222}}]
+            ]
+    zzcall.call(parms)
+
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts zzcall.dump_inspect
+
+    puts "\n+++++++++ dump input xml ++++++++++++++++"
+    puts zzcall.to_xml
+
+    puts "\n+++++++++ output ++++++++++++++++"
+    puts " inchara...#{zzcall.response.inchara}\n"
+    puts " incharb...#{zzcall.response.incharb}\n"
+    puts " indec1....#{zzcall.response.indec1}\n"
+    puts " indec2....#{zzcall.response.indec2}\n"
+    zzcall.response.inds1.each do |inds1|
+      puts "  dschara...#{inds1.dschara}"
+      puts "  dscharb...#{inds1.dscharb}"
+      puts "  dsdec1....#{inds1.dsdec1}"
+      puts "  dsdec2....#{inds1.dsdec2}"
+    end
+  end
+
+  def no_test_0501_pgm_zzcall_array
+    zzcall << XMLService::I_DS.new('inds1',1,
+                                   [ 
+                                     XMLService::I_a.new('dschara',1,'t'),
+                                     XMLService::I_a.new('dscharb',1,'f'),
+                                     XMLService::I_p.new('dsdec1',7,4,77.6666),
+                                     XMLService::I_p.new('dsdec2',12,2,88888.77)
+                                    ])
+    zzcall.input.inds1[0].dschara = 'a'
+    zzcall.input.inds1[1].dscharb = 'a'
+    zzcall.input.inds1[2].dsdec1  = 111.1111
+    zzcall.input.inds1[3].dsdec2  = 1111.11
+  end
+  def no_test_0502_pgm_zzcall_array
+    zzcall << XMLService::I_DS.new('inds1',1,
+                                   {
+                                     'dschara'=>XMLService::I_a.new('dschara',1,'t'),
+                                     'dscharb'=>XMLService::I_a.new('dscharb',1,'f'),
+                                     'dsdec1'=>XMLService::I_p.new('dsdec1',7,4,77.6666),
+                                     'dsdec2'=>XMLService::I_p.new('dsdec2',12,2,88888.77)
+                                    })
+    zzcall.input.inds1['dschara'].dschara = 'a'
+    zzcall.input.inds1['dscharb'].dscharb = 'a'
+    zzcall.input.inds1['dsdec1'].dsdec1  = 111.1111
+    zzcall.input.inds1['dsdec2'].dsdec2  = 1111.11
+  end
+
+
+  def no_test_0503_pgm_zzcall_array
+    zzcall << XMLService::I_DS.new('inds1',1,
+                                   [{
+                                     'dschara'=>XMLService::I_a.new('dschara',1,'t'),
+                                     'dscharb'=>XMLService::I_a.new('dscharb',1,'f'),
+                                     'dsdec1'=>XMLService::I_p.new('dsdec1',7,4,77.6666),
+                                     'dsdec2'=>XMLService::I_p.new('dsdec2',12,2,88888.77)
+                                    }])
+
+    zzcall.input.inds1[0]['dschara'].dschara = 'a'
+    zzcall.input.inds1[0]['dscharb'].dscharb = 'a'
+    zzcall.input.inds1[0]['dsdec1'].dsdec1  = 111.1111
+    zzcall.input.inds1[0]['dsdec2'].dsdec2  = 1111.11
+  end
+
+
+  def no_test_0504_pgm_zzcall_array
+    zzcall << XMLService::I_DS.new('inds1',1,
+                                   [[
+                                     XMLService::I_a.new('dschara',1,'t'),
+                                     XMLService::I_a.new('dscharb',1,'f'),
+                                     XMLService::I_p.new('dsdec1',7,4,77.6666),
+                                     XMLService::I_p.new('dsdec2',12,2,88888.77)
+                                    ]])
+    zzcall.input.inds1[0][0].dschara = 'a'
+    zzcall.input.inds1[0][1].dscharb = 'a'
+    zzcall.input.inds1[0][2].dsdec1  = 111.1111
+    zzcall.input.inds1[0][3].dsdec2  = 1111.11
+  end
+
+end