I dont know if the code under test is wrong or the expected output.
I run RH9, which uses Perl 5.8.0. I was getting a failure for t/aspecial_blocks, indicating a difference in the expected output for a CHECK {} block.
IF the expected output is wrong, I have provided a patch of the test_output/cover/special_blocks.5.008 golden file.
I dont have a patch if the code under test is wrong, wouldnt even have a clue where to start - I ran t/aspecial_blocks under Devel::ptkdb, and realised I'd need to dig a lot deeper to find out where the code goes...
Can anyone give me a hint to track the code for a CHECK block? Do I have to trace the dynamically generated command maually ?
-- Leif Eriksen Snr Developer HPA Pty Ltd
ph +61 3 9217 5545
diff -Naur test_output/cover/special_blocks.5.008
test_output/cover_new/special_blocks.5.008
--- test_output/cover/special_blocks.5.008 2004-10-28 12:30:48.000000000 +1000
+++ test_output/cover_new/special_blocks.5.008 2004-10-28 13:11:46.000000000 +1000
@@ -43,7 +43,7 @@
19
20 CHECK
21 {
-22 $x++
+22 1 100 $x++
23 }
24
25 INIT
@@ -67,5 +67,6 @@
BEGIN 1 tests/special_blocks:10
BEGIN 1 tests/special_blocks:11
BEGIN 1 tests/special_blocks:17
+CHECK 1 tests/special_blocks:22
