parser bugs with 5.8.8 core

[Eric Wilhelm]

# from Michael G Schwern
# on Tuesday 11 September 2007 02:15 pm:

>what
>are
>the
>bugs
>question mark
>
>Could you just show us what's wrong rather than handing us the parts?

If I knew what was wrong...

I'm documenting my method because a) I'm not certain it is correct and 
b) I may not have a clue what I'm doing.  Regardless, running some core 
tests is probably good for us (yes, in the same way that castor oil is 
good for you.)  If someone wants to take that and run with it in bleed, 
whatever.

>  That attached TAP all looks fine to me.


$ ./perl ./harness op/stat.t
op/stat......8/86 # Failed at op/stat.t line 330
op/stat...... Failed 1/86 subtests

Test Summary Report
-------------------
op/stat.t (Wstat: 0 Tests: 86 Failed: 1)
  Failed tests:  48
Files=1, Tests=86,  6 wallclock secs ( 0.12 usr  0.01 sys +  0.06 cusr  
0.03 cs
 =  0.22 CPU)
Result: FAIL


just the failing bit from --verbose is:
  not ok 48 - -t on STDIN 
(which doesn't appear in the raw tap, so we have an observer bug?)




This one fails both of 2 tests and appears to be some form of TODO 
parser bug.


$ ./perl ./harness ../lib/Test/t/multiline.t --verbose
../lib/Test/t/multiline......
1..2 todo 1 2;
# Running under perl version 5.008008 for linux
# Current time local: Tue Sep 11 14:38:35 2007
# Current time GMT:   Tue Sep 11 21:38:35 2007
# Using Test.pm version 1.25
not ok 1
# Test 1 got: "\nJojo was a man who thought he was a loner\nBut he knew 
it coul
't last\nJojo left his home in Tucson, Arizona\nFor some California 
Grass\nGet
ck, get back\nGet back to where you once belonged\nGet back, get 
back\nGet back
o where you once belonged\nGet back Jojo Go home\nGet back, get 
back\nBack to w
re you once belonged\nGet back, get back\nBack to where you once 
belonged\nGet
ck Jo\n" (../lib/Test/t/multiline.t at line 10 *TODO*)
#   Expected: "\nSweet Loretta Martin thought she was a woman\nBut she 
was anot
r man\nAll the girls around her say she's got it coming\nBut she gets it 
while
e can\nGet back, get back\nGet back to where you once belonged\nGet 
back, get b
k\nGet back to where you once belonged\nGet back Loretta Go home\nGet 
back, get
ack\nGet back to where you once belonged\nGet back, get back\nGet back 
to where
ou once belonged\nGet home Loretta\n"
#     (Install the Algorithm::Diff module to have differences in 
multiline
#      output explained.  You might also set the PERL_TEST_DIFF 
environment
#      variable to run a diff program on the output.)
#  ../lib/Test/t/multiline.t line 10 is: ok(
not ok 2
# Test 2 got: "zik\nzak\n  wazaaaaap\ncha ching!
\n" (../lib/Test/t/multiline.t
 line 45 *TODO*)
#   Expected: "crunk\n\t zonk\nbjork\nchachacha!\n"
#  ../lib/Test/t/multiline.t line 45 is: ok "zik\nzak\n  wazaaaaap\ncha 
ching!\
, "crunk\n\t zonk\nbjork\nchachacha!\n";
 Failed 2/2 subtests

Test Summary Report
-------------------
../lib/Test/t/multiline.t (Wstat: 0 Tests: 2 Failed: 2)
  Failed tests:  1-2
  Parse errors: No plan found in TAP output
Files=1, Tests=2,  1 wallclock secs ( 0.09 usr  0.00 sys +  0.03 cusr  
0.00 csy
=  0.12 CPU)
Result: FAIL

-- 
Turns out the optimal technique is to put it in reverse and gun it.
--Steven Squyres (on challenges in interplanetary robot navigation)
---------------------------------------------------
    http://scratchcomputing.com
---------------------------------------------------