Recent changes to tickets

#3 Unexpected behavior passing 1 library to parameter LIBL of RUCALLTST

Thomas Raddatz — Thu, 05 Mar 2026 06:21:03 -0000

status: pending --> closed

#1 Compile error when installing iRPGUnit into a different library.

Thomas Raddatz — Thu, 05 Mar 2026 06:20:29 -0000

status: open --> closed

Parameterized Unit Tests

Mihael Schmidt — Mon, 30 Dec 2019 22:22:17 -0000

It would be nice to be able to use parameterized unit tests in iRPGUnit just like in other languages (like Java).

The idea is to create a set of data and execute a test with every data entry of the set.

The test writer would need to provide a procedure (unittest_provideData) which creates a list (module LLIST) of data entries and a procedure which receives one data entry for the next test case run (unittest_setData).

I have created a first prototype which identifies the parameterized test by the existence of the procedure unittest_provideData, see module CMDRUN. There the test data provider is called and the data set.

This prototype needs more work on the output (spooled file and userspace). Perhaps a version 4 interface for the userspace? I think the only thing we need to add to the userspace is the index of the test run. Though the question is if a single testcase instance of a parameterized testcase should be able to be rerun? Or is it enough to rerun the whole testcase?

I created a simple test case (PTEST1) with a test data provider (PTESTDTAPR) which are bound to a service program PTEST:

crtsrvpgm ptest module(ptest1 ptestdtapr) bndsrvpgm(rpgunit/rutestcase llist) export(*all)

I have attached source and test output.

Note: Some includes use absolute paths for more convenient development on my side :)

#3 Unexpected behavior passing 1 library to parameter LIBL of RUCALLTST

Kyle Lawson — Fri, 30 Aug 2019 17:02:00 -0000

Awesome thanks!

#3 Unexpected behavior passing 1 library to parameter LIBL of RUCALLTST

Thomas Raddatz — Fri, 30 Aug 2019 15:22:50 -0000

status: open --> pending

#3 Unexpected behavior passing 1 library to parameter LIBL of RUCALLTST

Thomas Raddatz — Fri, 30 Aug 2019 15:22:35 -0000

Good point!
In fact I fixed it this way in order to honor special value *CURRENT:

          select;
          when (libl.numE = 1);
             select;
             when (libl.lib(1) = '*JOBD');
                if (jobd.nm = '*DFT');
                   jobd.nm = 'RPGUNIT';
                   jobd.lib = testPgmLib;
                endif;
                loadedLibl = loadLibl(jobd);
                restoreLibl(loadedLibl);
                return *ON;
             when (libl.lib(1) = '*CURRENT');
                // keep current library list
             other;
                changeLibl('*CRTDFT': libL);
                return *ON;
             endsl;

          when (libl.numE > 1);
             changeLibl('*CRTDFT': libL);
             return *ON;
          endsl;

I will create a new plug-in version after my vacation.
Thanks,
Thomas.

Unexpected behavior passing 1 library to parameter LIBL of RUCALLTST

Kyle Lawson — Thu, 29 Aug 2019 18:44:16 -0000

In /trunk/host/iRPGUnit/QSRC/LIBL.RPGLE there is a method named setTestSuiteLibl.

I was using the LIBL() parameter of RUCALLTST. I found that if I pass the one library I need, the tests fail. If I pass the library I need and some other unrelated library then it succeeds. It appears in the method that if the passed library list has 1 member it only is looking for it to have *JOBD in it. Otherwise if there is more than 1 then the passed library list is used.

Maybe a proposed change would be...

select;
when (libl.numE = 1);
if (libl.lib(1) = 'JOBD');
if (jobd.nm = 'DFT');
jobd.nm = 'RPGUNIT';
jobd.lib = testPgmLib;
endif;
loadedLibl = loadLibl(jobd);
restoreLibl(loadedLibl);
return *ON;

         **Begin Suggested Code**
         else;
            changeLibl('*CRTDFT': libL);
            return *ON;
         **End Suggested Code**

         endif;

      when (libl.numE > 1);
         changeLibl('*CRTDFT': libL);
         return *ON;
      endsl;

      return *OFF;

Unexpected behavior passing 1 library to parameter LIBL of RUCALLTST

Kyle Lawson — Thu, 29 Aug 2019 18:44:16 -0000

Ticket 3 has been modified: Unexpected behavior passing 1 library to parameter LIBL of RUCALLTST
Edited By: Thomas Raddatz (tools400)
Status updated: u'open' => u'pending'

Unexpected behavior passing 1 library to parameter LIBL of RUCALLTST

Kyle Lawson — Thu, 29 Aug 2019 18:44:16 -0000

Ticket 3 has been modified: Unexpected behavior passing 1 library to parameter LIBL of RUCALLTST
Edited By: Thomas Raddatz (tools400)
Status updated: 'pending' => 'closed'

#2 Install RPGUNIT LIBRARY : Problem Owner

Thomas Raddatz — Sun, 31 Mar 2019 13:59:22 -0000

status: pending --> closed