# New Ticket Created by Christian Bartolomaeus # Please include the string: [perl #128041] # in the subject line of all future correspondence about this issue. # <URL: https://rt.perl.org/Ticket/Display.html?id=128041 >
Starting with rakudo commit fe2be65806 two tests in S16-io/supply.t start to fail with rakudo-j. The following rakudo commit 463e7589a1 seems to change the code path for the tests in question, but also makes them fail. Only if one reverts both commits, the tests pass again. The following code is a shortened version of one of the failing tests. Probably it could be golfed further. $ perl6-j -e 'my $f = "foo"; spurt($f,"a"); my $h = open($f); my $s = $h.Supply(:size(1),:bin); my $x; $s.tap( { $x = $_ } ); $h.close; my $y = Buf[uint8].new(ord "a"); say $x; say $y; say $x eqv $y' Buf[uint8]:0x<61> Buf[uint8]:0x<61> False On rakudo-m the last comparison returns True: $ perl6-m -e 'my $f = "foo"; spurt($f,"a"); my $h = open($f); my $s = $h.Supply(:size(1),:bin); my $x; $s.tap( { $x = $_ } ); $h.close; my $y = Buf[uint8].new(ord "a"); say $x; say $y; say $x eqv $y' Buf[uint8]:0x<61> Buf[uint8]:0x<61> True