develooper Front page | perl.perl5.porters | Postings from November 2016

Re: Indented here docs?

Thread Previous | Thread Next
From:
Andreas Koenig
Date:
November 16, 2016 11:45
Subject:
Re: Indented here docs?
Message ID:
87shqrmyvr.fsf@k85.linux.bogus
>>>>> On Mon, 14 Nov 2016 08:44:10 -0500, "Matthew Horsfall (alh)" <wolfsage@gmail.com> said:

  > Indented here-docs are now in blead.
  > Enjoy!

Fails for me unter TEST. Passes all tests under harness.

 : % git describe 
 : v5.25.6-264-g945fff0
 : % (cd t && ./perl TEST -v ../t/op/heredoc.t)
 : t/../t/op/heredoc ... 1..137
 : ok 1 - no terminating newline in string-eval
 : ok 2 - heredoc at EOF without trailing newline
 : ok 3 - blank-terminated heredoc at EOF
 : ok 4 - blank-terminated heredoc at EOF and no semicolon
 : ok 5 - crlf-terminated heredoc
 : ok 6 - no warning for qq|${\<<foo}| in file
 : ok 7 - string terminator must start at newline
 : ok 8 - empty string terminator still needs a newline (length 1)
 : ok 9 - empty string terminator still needs a newline (length 2)
 : ok 10 - empty string terminator still needs a newline (length 3)
 : ok 11 - empty string terminator still needs a newline (length 4)
 : ok 12 - empty string terminator still needs a newline (length 5)
 : ok 13 - empty string terminator still needs a newline (length 6)
 : ok 14 - empty string terminator still needs a newline (length 7)
 : ok 15 - empty string terminator still needs a newline (length 8)
 : ok 16 - empty string terminator still needs a newline (length 9)
 : ok 17 - empty string terminator still needs a newline (length 10)
 : ok 18 - empty string terminator still needs a newline (length 11)
 : ok 19 - empty string terminator still needs a newline (length 12)
 : ok 20 - empty string terminator still needs a newline (length 13)
 : ok 21 - empty string terminator still needs a newline (length 14)
 : ok 22 - empty string terminator still needs a newline (length 15)
 : ok 23 - empty string terminator still needs a newline (length 16)
 : ok 24 - empty string terminator still needs a newline (length 17)
 : ok 25 - empty string terminator still needs a newline (length 18)
 : ok 26 - empty string terminator still needs a newline (length 19)
 : ok 27 - empty string terminator still needs a newline (length 20)
 : ok 28 - empty string terminator still needs a newline (length 21)
 : ok 29 - empty string terminator still needs a newline (length 22)
 : ok 30 - empty string terminator still needs a newline (length 23)
 : ok 31 - empty string terminator still needs a newline (length 24)
 : ok 32 - empty string terminator still needs a newline (length 25)
 : ok 33 - empty string terminator still needs a newline (length 26)
 : ok 34 - empty string terminator still needs a newline (length 27)
 : ok 35 - empty string terminator still needs a newline (length 28)
 : ok 36 - empty string terminator still needs a newline (length 29)
 : ok 37 - empty string terminator still needs a newline (length 30)
 : ok 38 - empty string terminator still needs a newline (length 31)
 : ok 39 - long terminator fails correctly
 : ok 40 - don't use an invalid oldoldbufptr
 : ok 41 - don't use an invalid oldoldbufptr (some more)
 : ok 42 - Don't assert parsing a here-doc if we hit EOF early
 : ok 43 - delimcpy(): handle last char being backslash properly
 : ok 44 - Indented here-doc:  print <<~\EOF
 :   some data
 : FAILED--unexpected output at test 44
 : Failed 1 test out of 1, 0.00% okay.
 :         ../t/op/heredoc.t
 : ### Since not all tests were successful, you may want to run some of
 : ### them individually and examine any diagnostic messages they produce.
 : ### See the INSTALL document's section on "make test".
 : ### You may have to set your dynamic library search path,
 : ### LD_LIBRARY_PATH, to point to the build directory:
 : ###   setenv LD_LIBRARY_PATH `pwd`; cd t; ./perl harness
 : ###   LD_LIBRARY_PATH=`pwd`; export LD_LIBRARY_PATH; cd t; ./perl harness
 : ###   export LD_LIBRARY_PATH=`pwd`; cd t; ./perl harness
 : ### for csh-style shells, like tcsh; or for traditional/modern
 : ### Bourne-style shells, like bash, ksh, and zsh, respectively.
 : Elapsed: 1 sec
 : u=0.01  s=0.00  cu=0.03  cs=0.02  scripts=1  tests=137
 : zsh: exit 1     ( cd t && ./perl TEST -v ../t/op/heredoc.t; )

Let me know if you need further info,
-- 
andreas

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About