Subject: | %Program_Lines not a function of $TestLevel |
Line 341 in the ok subrouinte finds the Unit Under Test file using $TestLevel as follows:
my ($pkg,$file,$line) = caller($TestLevel);
This works great when put a test wrapper around Test such as Test::Tech. The Test::Tech subroutines bump up the $TestLevel and get data for the UUT not Test::Tech.
However, line 159 in the plan subroutine does not supply a $TestLevel as
follows:
_read_program( (caller)[1] );
Thus, the when using a wrapper program such as Test::Tech, get lines from Test::Tech instead of the program module being tested.