parser bugs with 5.8.8 core

[Eric Wilhelm]

# from Ovid
# on Tuesday 11 September 2007 03:37 am:

>Eric, can you post instructions on how to replicate what you've done
>but using generic *nix commands which we're all likely to have? :)

`svn export` ?  All you need to do is get a tapx tree into /tmp/lib 
(sans Test/Harness.pm) and hack t/harness (ala this patch.)

Or simply get the tap.

  cd t
  ./perl ../lib/Test/t/multiline.t
  ./perl op/stat.t

Speaking of which:  how do I run tap through runtests?

--Eric
-- 
"Because understanding simplicity is complicated."
--Eric Raymond
---------------------------------------------------
    http://scratchcomputing.com
---------------------------------------------------
-------------- next part --------------
A non-text attachment was scrubbed...
Name: perl-5.8.8-t-harness.patch
Type: text/x-diff
Size: 888 bytes
Desc: not available
Url : http://www.hexten.net/pipermail/tapx-dev/attachments/20070911/3c1ece53/attachment.bin 
-------------- next part --------------
1..86
ok 1 - nlink on regular file
ok 2 - mtime
ok 3 - mtime == ctime
ok 4 - link() implemented
ok 5 - linked tmp testfile
ok 6 - chmoded tmp testfile
ok 7 - Link count on hard linked file
ok 8 - hard link mtime
ok 9 - hard link ctime != mtime
ok 10 - -z on empty filehandle
ok 11 -    and -s
ok 12 - -z on empty file
ok 13 -    and -s
ok 14 - -z on empty filehandle
ok 15 -    and -s
ok 16 - -z on non-empty file
ok 17 -    and -s
ok 18 - chmod 0000
ok 19 -    -r
ok 20 -    -w
ok 21 -    -x
ok 22 - chmod 0700
ok 23 -    -r
ok 24 -    -w
ok 25 -    -x
ok 26 -    -f
ok 27 -    !-d
ok 28 - -d cwd
ok 29 - !-f cwd
ok 30 - symlink() implemented
ok 31 - symlink() ok
ok 32 - -l
ok 33 - -o
ok 34 - -e
ok 35 -    -e on unlinked file
ok 36 - ls and -b agreeing on /dev (38 38)
ok 37 - ls and -c agreeing on /dev (158 158)
ok 38 - ls and -S agreeing on /dev (2 2)
ok 39 - !-b cwd
ok 40 - !-c cwd
ok 41 - !-S cwd
ok 42 - found some programs
ok 43 -   found some setuid programs
ok 44 -     they're not all setuid
ok 45 - -t
ok 46 - tty is -c
ok 47 - !-t on closed TTY filehandle
ok 48 - -t on STDIN
ok 49 - null device is not a TTY
ok 50 - -T
ok 51 - !-B
ok 52 - -B
ok 53 - !-T
ok 54 - -T on filehandle causes no errors
ok 55 -    -T
ok 56 -    !-B
ok 57 - after readline
ok 58 -    still -T
ok 59 -    still -B
ok 60 - reopened and after readline
ok 61 -    still -T
ok 62 -    still !-B
ok 63 - after seek
ok 64 -    still -T
ok 65 -    still !-B
ok 66 - at EOF
ok 67 -    still -T
ok 68 -    now -B
ok 69 - null device is -T
ok 70 -     and -B
ok 71 - bare -f   uses $_
ok 72 -      -f() "
ok 73 - stat returns full 13 elements
ok 74 - lstat _ croaks after stat
ok 75 - -l _ croaks after stat
ok 76 - lstat _ ok after lstat
ok 77 - -l _ ok after lstat
ok 78 - lstat croaks after -T _
ok 79 - -l _ croaks after -T _
# Zzz...
ok 80 - can create tmp file
# time=1189535577, stat=(65024 535384 33188 1 500 500 0 0 1189535583 1189535583 1189535583 131072 0)
# -MAC=(-6.94444444444444e-05 -6.94444444444444e-05 -6.94444444444444e-05)
ok 81 - negative -M works
ok 82 - negative -A works
ok 83 - negative -C works
ok 84 - unlink tmp file
ok 85 - can create temp file
ok 86 - -T _ doesn't break the statbuffer
-------------- next part --------------
1..2 todo 1 2;
# Running under perl version 5.008008 for linux
# Current time local: Tue Sep 11 11:32:48 2007
# Current time GMT:   Tue Sep 11 18:32:48 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 couldn't last\nJojo left his home in Tucson, Arizona\nFor some California Grass\nGet back, get back\nGet back to where you once belonged\nGet back, get back\nGet back to where you once belonged\nGet back Jojo Go home\nGet back, get back\nBack to where you once belonged\nGet back, get back\nBack to where you once belonged\nGet back Jo\n" (../lib/Test/t/multiline.t at line 10 *TODO*)
#   Expected: "\nSweet Loretta Martin thought she was a woman\nBut she was another man\nAll the girls around her say she's got it coming\nBut she gets it while she can\nGet back, get back\nGet back to where you once belonged\nGet back, get back\nGet back to where you once belonged\nGet back Loretta Go home\nGet back, get back\nGet back to where you once belonged\nGet back, get back\nGet back to where you 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 at 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!\n", "crunk\n\t zonk\nbjork\nchachacha!\n";