Permalink
Browse files

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...
1 parent 95bb282 commit 3c2dc0e55fb1fedf1621d24098a03cfcb25dc4bc @FROGGS FROGGS committed Nov 22, 2012
Showing with 6 additions and 2 deletions.
  1. +6 −2 S32-io/IO-Socket-INET.t
View
@@ -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 {

0 comments on commit 3c2dc0e

Please sign in to comment.