# New Ticket Created by chromatic
# Please include the string: [perl #42962]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=42962 >
>From pmichaud:
[EMAIL PROTECTED]:~/parrot/trunk> prove -v t/op/sprintf.t
t/op/sprintf....1..308
ok 1 - [%6. 6s] (See use of $w in code above)
ok 2 - [%6 .6s]
ok 3 - [%6.6 s]
ok 4 - [%A]
ok 5 #skip parrot extension (%B)
ok 6 - [%C]
ok 7 #skip perl5-specific extension (%D)
ok 8 - [%E] Like %e, but using upper-case "E"
ok 9 #skip perl5-specific extension (%F)
ok 10 - [%G] Like %g, but using upper-case "E"
ok 11 - [%G]
ok 12 - [%G]
ok 13 - [%G]
ok 14 - [%G] exponent too big skip: os390
ok 15 - [%G] exponent too small skip: os390
ok 16 #skip parrot extension (%H)
ok 17 - [%I]
ok 18 - [%J]
ok 19 - [%K]
ok 20 #skip parrot extension (%L)
ok 21 - [%M]
ok 22 - [%N]
ok 23 #skip perl5-specific extension (%O)
ok 24 #skip parrot extension (%P)
ok 25 - [%Q]
ok 26 - [%R]
ok 27 #skip parrot extension (%S)
ok 28 - [%T]
ok 29 #skip perl5-specific extension (%U)
ok 30 - [%V]
ok 31 - [%W]
ok 32 - [%X] Like %x, but with u/c letters
ok 33 - [%#X]
ok 34 - [%Y]
ok 35 - [%Z]
parrot: src/string.c:727: string_str_index: Assertion `s->encoding &&
s->charset && !(((s)->obj.flags) & b_PObj_on_free_list_FLAG)' failed.
dubious
Test returned status 0 (wstat 6, 0x6)
