Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
RT #115862, skipping multibyte tests for release
After release with parrot 4.4.0 and upgrade to newer parrot these tests should work fine.
https://rt.perl.org/rt3/Ticket/Display.html?id=115862
  • Loading branch information
FROGGS committed Nov 22, 2012
1 parent 95bb282 commit 3c2dc0e
Showing 1 changed file with 6 additions and 2 deletions.
8 changes: 6 additions & 2 deletions S32-io/IO-Socket-INET.t
Expand Up @@ -89,10 +89,14 @@ if $*OS eq any <linux darwin solaris MSWin32> { # please add more valid OS names
is $expected[$i++], '789', 'received next 3 characters';
is $expected[$i++], 'abcdefghijklmnopqrstuvwxyz', 'remaining 26 were buffered';
# Multibyte characters
is $expected[$i++], chr(0xbeef), "received {chr 0xbeef}";
#?rakudo skip 'RT 115862'
is $expected[$i], chr(0xbeef), "received {chr 0xbeef}";
$i++;
is $expected[$i++], 1, '... which is 1 character';
is $expected[$i++], 1, 'received another character';
is $expected[$i++], chr(0xbabe), "combined the bytes form {chr 0xbabe}";
#?rakudo skip 'RT 115862'
is $expected[$i], chr(0xbabe), "combined the bytes form {chr 0xbabe}";
$i++;

# test 5 tests get()
if $is-win {
Expand Down

0 comments on commit 3c2dc0e

Please sign in to comment.