@@ -133,6 +133,58 @@ describe('iPgm Class Unit Tests', () => {
133133
134134 expect ( pgm . toXML ( ) ) . to . equal ( expectedXML ) ;
135135 } ) ;
136+
137+ it ( 'regular <parm> contains by=\'val\'' , ( ) => {
138+ const pgm = new iPgm ( "MYPGM" , { lib :"MYLIB" , func : "MY_PROCEDURE" } ) ;
139+
140+ pgm . addParam ( "" , "1A" , { by :"val" } ) ;
141+ pgm . addReturn ( "" , "2A" , { name :"output" } ) ;
142+
143+ let lookAtXML = pgm . toXML ( ) ;
144+ expect ( lookAtXML ) . to . match ( / < p a r m .* b y = ' v a l ' .* > / ) ;
145+ } ) ;
146+
147+ it ( 'data structure <parm> contains by=\'val\'' , ( ) => {
148+ const pgm = new iPgm ( "MYPGM" , { lib :"MYLIB" , func : "MY_PROCEDURE" } ) ;
149+
150+ const p_inds = [
151+ [ 0 , "3s0" ] ,
152+ [ 0 , "7s0" , { name :"ds_fld2" } ]
153+ ] ;
154+
155+ pgm . addParam ( p_inds , { name :"inds" , by :"val" } ) ;
156+ pgm . addReturn ( "" , "2A" , { name :"output" } ) ;
157+
158+ let lookAtXML = pgm . toXML ( ) ;
159+ expect ( lookAtXML ) . to . match ( / < p a r m .* b y = ' v a l ' .* > / ) ;
160+ } ) ;
161+
162+ it ( 'regular <parm> contains by=\'val\', with io=\'both\'' , ( ) => {
163+ const pgm = new iPgm ( "MYPGM" , { lib :"MYLIB" , func : "MY_PROCEDURE" } ) ;
164+
165+ pgm . addParam ( "" , "1A" , { by :"val" , io :"both" } ) ;
166+ pgm . addReturn ( "" , "2A" , { name :"output" } ) ;
167+
168+ let lookAtXML = pgm . toXML ( ) ;
169+ expect ( lookAtXML ) . to . match ( / < p a r m .* b y = ' v a l ' .* > / ) ;
170+ expect ( lookAtXML ) . to . match ( / < p a r m .* i o = ' b o t h ' .* > / ) ;
171+ } ) ;
172+
173+ it ( 'data structure <parm> contains by=\'val\', with io=\'both\'' , ( ) => {
174+ const pgm = new iPgm ( "MYPGM" , { lib :"MYLIB" , func : "MY_PROCEDURE" } ) ;
175+
176+ const p_inds = [
177+ [ 0 , "3s0" ] ,
178+ [ 0 , "7s0" , { name :"ds_fld2" } ]
179+ ] ;
180+
181+ pgm . addParam ( p_inds , { name :"inds" , by :"val" , io :"both" } ) ;
182+ pgm . addReturn ( "" , "2A" , { name :"output" } ) ;
183+
184+ let lookAtXML = pgm . toXML ( ) ;
185+ expect ( lookAtXML ) . to . match ( / < p a r m .* b y = ' v a l ' .* > / ) ;
186+ expect ( lookAtXML ) . to . match ( / < p a r m .* i o = ' b o t h ' .* > / ) ;
187+ } ) ;
136188 } ) ;
137189
138190
0 commit comments