in reply to Re^5: pl – Perl One-Liner Magic Wand -- failing tests
in thread pl – Perl One-Liner Magic Wand: looking for feedback
I hope the following will help
cpan> look App::pl Working directory is R:\emoved\path\perl5.26.64bit\cpan\build\App-pl-0 +.90.2-1 Microsoft Windows [Versione 10.0.19044.1706] (c) Microsoft Corporation. Tutti i diritti sono riservati. C> cd t C>perl -lne "print if $. == 51" test.pm my @cmd = ($^X, $ENV{PLALT} // '../pl', @_); # +was: ($^X, '-W', $ENV{PLALT} // '../pl', @_) C>perl unit.t 1..8 ok 1 - "perl5.26.64bit\perl\bin\perl.exe" "../pl" "for( @A, [$A[0], 12 +3456] ) { E Isodate( $_, 0 ), I( 0.0, $_ ), I( $_, \"+0\" ), I( $_, 1 + ), D( $_, -80, \"+90\", \"-9.5\" ), \"\"; Date \"08:45\", $_ }" "123 +456789" "123456789.0" "123456789.1" "123456789.000001" "123456789.123 +456789" ok 2 - "perl5.26.64bit\perl\bin\perl.exe" "../pl" "$RESULT = \"$Q${quo +te}abc$q$Quote\"" ok 3 - "perl5.26.64bit\perl\bin\perl.exe" "../pl" "%R = qw(a 1 b 2 c 1 + d 3)" ok 4 - "perl5.26.64bit\perl\bin\perl.exe" "../pl" "%NUMBER = qw(a 1 b +2 c 1 d 3)" ok 5 - "perl5.26.64bit\perl\bin\perl.exe" "../pl" "-ENumber" "%N = qw( +a 1 b 2 c 1 d 3)" ok 6 - "perl5.26.64bit\perl\bin\perl.exe" "../pl" "-E" "N 3" "%N = qw( +a 1 b 2 c 1 d 3)" ok 7 - "perl5.26.64bit\perl\bin\perl.exe" "../pl" "form $_ = q!a%%b %% +1$d %x:%1$o %1$*1$b %%%1$X!, 27; tr/$/:/; F $_, 27" ok 8 - "perl5.26.64bit\perl\bin\perl.exe" "../pl" "-Mbignum" "Echo 123 +456789012345678901234567890 * 123456789012345678901234567890"
L*
|
|---|