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

[Kyle Lawson]

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;

[Thomas Raddatz]

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.

[Kyle Lawson]

Awesome thanks!