Closed p5pRT closed 20 years ago
I hope you can run Devel::Peek? If so:
It appears so.
op/bop...............FAILED at test 22
perl -Ilib -MDevel::Peek -e 'print Dump("\x{FF}")'
$ ./perl -Ilib -MDevel::Peek -e 'print Dump("\x{FF}")' SV = PV(0x1a83f9c4) at 0x1a828e48 REFCNT = 1 FLAGS = (POK\,READONLY\,pPOK\,UTF8) PV = 0x1a82efc8 "C\277"\0 CUR = 2 LEN = 3 $
op/chop..............FAILED at test 31
perl -Ilib -MDevel::Peek -e 'print Dump("bc\x{1234}")'
$ ./perl -Ilib -MDevel::Peek -e 'print Dump("bc\x{1234}")' SV = PV(0x1a83f9cc) at 0x1a828e48 REFCNT = 1 FLAGS = (POK\,READONLY\,pPOK\,UTF8) PV = 0x1a82efc8 "Bb\0c\341h\264"\0 CUR = 7 LEN = 8 $
op/utf8decode........FAILED at test 10
For this first run the test separately\, send the output\, and then
$ cd t $ ./perl op/utf8decode.t 1..78 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 2.2.3: unpack('U*') false positive not ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 3.1.1: unpack('U*') false positive not ok 19 3.1.2: unpack('U*') false positive not ok 20 3.1.3: unpack('U*') false positive not ok 21 3.1.4: unpack('U*') false positive not ok 22 3.1.5: unpack('U*') false positive not ok 23 3.1.6: unpack('U*') false positive not ok 24 3.1.7: unpack('U*') false positive not ok 25 3.1.8: unpack('U*') false positive not ok 26 3.1.9: unpack('U*') false positive not ok 27 3.2.1: unpack('U*') false positive not ok 28 3.2.2: unpack('U*') false positive not ok 29 3.2.3: unpack('U*') false positive not ok 30 3.2.4: unpack('U*') false positive not ok 31 3.2.5: unpack('U*') false positive not ok 32 3.3.1: unpack('U*') false positive not ok 33 3.3.2: unpack('U*') false positive not ok 34 3.3.3: unpack('U*') false positive not ok 35 3.3.4: unpack('U*') false positive not ok 36 3.3.5: unpack('U*') false positive not ok 37 3.3.6: unpack('U*') false positive not ok 38 3.3.7: unpack('U*') false positive not ok 39 3.3.8: unpack('U*') false positive not ok 40 3.3.9: unpack('U*') false positive not ok 41 3.3.10: unpack('U*') false positive not ok 42 3.4.1: unpack('U*') false positive not ok 43 3.5.1: unpack('U*') false positive not ok 44 3.5.2: unpack('U*') false positive not ok 45 3.5.3: unpack('U*') false positive not ok 46 4.1.1: unpack('U*') false positive not ok 47 4.1.2: unpack('U*') false positive not ok 48 4.1.3: unpack('U*') false positive not ok 49 4.1.4: unpack('U*') false positive not ok 50 4.1.5: unpack('U*') false positive not ok 51 4.2.1: unpack('U*') false positive not ok 52 4.2.2: unpack('U*') false positive not ok 53 4.2.3: unpack('U*') false positive not ok 54 4.2.4: unpack('U*') false positive not ok 55 4.2.5: unpack('U*') false positive not ok 56 4.3.1: unpack('U*') false positive not ok 57 4.3.2: unpack('U*') false positive not ok 58 4.3.3: unpack('U*') false positive not ok 59 4.3.4: unpack('U*') false positive not ok 60 4.3.5: unpack('U*') false positive not ok 61 5.1.1: unpack('U*') false positive not ok 62 5.1.2: unpack('U*') false positive not ok 63 5.1.3: unpack('U*') false positive not ok 64 5.1.4: unpack('U*') false positive not ok 65 5.1.5: unpack('U*') false positive not ok 66 5.1.6: unpack('U*') false positive not ok 67 5.1.7: unpack('U*') false positive not ok 68 5.2.1: unpack('U*') false positive not ok 69 5.2.2: unpack('U*') false positive not ok 70 5.2.3: unpack('U*') false positive not ok 71 5.2.4: unpack('U*') false positive not ok 72 5.2.5: unpack('U*') false positive not ok 73 5.2.6: unpack('U*') false positive not ok 74 5.2.7: unpack('U*') false positive not ok 75 5.2.8: unpack('U*') false positive not ok 76 5.3.1: unpack('U*') false positive not ok 77 5.3.2: unpack('U*') false positive not ok 78 $
perl -Ilib -MDevel::Peek -e 'print Dump("\xef\xbf\xbf")'
$ cd .. $ ./perl -Ilib -MDevel::Peek -e 'print Dump("\xef\xbf\xbf")' SV = PV(0x1a83f9cc) at 0x1a828e48 REFCNT = 1 FLAGS = (POK\,READONLY\,pPOK) PV = 0x1a82efc8 "\357\277\277"\0 CUR = 3 LEN = 4 $
(at least I think that's the data 10th test\, 2.2.3...)
Peter Prymmer
Migrated from rt.perl.org#5092 (status was 'resolved')
Searchable as RT5092$