Skip Menu |

This queue is for tickets about the Test CPAN distribution.

Report information
The Basics
Id: 6385
Status: new
Priority: 0/
Queue: Test

People
Owner: Nobody in particular
Requestors: support [...] SoftwareDiamonds.com
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.24
Fixed in: (no value)



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.