Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Toss some tests relying on out-dated design.
Str is always NFG now, and we have Uni and Buf for the other levels.
Removing the tests as we have others that cover these issues in line
with current design and more extensively.
  • Loading branch information
jnthn committed Apr 24, 2015
1 parent 7ab7759 commit 79a7dc0
Showing 1 changed file with 1 addition and 20 deletions.
21 changes: 1 addition & 20 deletions S02-types/unicode.t
@@ -1,7 +1,7 @@
use v6;

use Test;
plan 16;
plan 7;

#L<S02/"Methods on Arrays"/".bytes, .codes or .graphs">

Expand All @@ -28,23 +28,4 @@ is $u.chars, 1, '.chars defaults to .graphs';
is $rt65170.chars, 1, '.chars defaults to .graphs (3)';
}

#L<S02/"Units of Position Arguments"/"coerce to the proper units">
$u = "\x[41,
E1,
41, 0300,
41, 0302, 0323,
E0]";

#?rakudo 9 skip 'Bytes/Codes/Graphs NYI'
is EVAL('substr $u, 3.as(Bytes), 1.as(Bytes)'), "\x[41]", 'substr with Bytes as units - utf8';
is EVAL('substr $u, 3.as(Codes), 1.as(Codes)'), "\x[0300]", 'substr with Codes as units - utf8';
is EVAL('substr $u, 4.as(Graphs), 1.as(Graphs)'), "\x[E0]", 'substr with Graphs as units - utf8';
is EVAL('substr $u, 3.as(Graphs), 1.as(Codes)'), "\x[41]", 'substr with Graphs and Codes as units 1 - utf8';
is EVAL('substr $u, 4.as(Codes), 1.as(Graphs)'), "\x[41, 0302, 0323]", 'substr with Graphs and Codes as units 2 - utf8';
is EVAL('substr $u, 4.as(Bytes), 1.as(Codes)'), "\x[0300]", 'substr with Bytes and Codes as units 1 - utf8';
is EVAL('substr $u, 1.as(Codes), 2.as(Bytes)'), "\x[E1]", 'substr with Bytes and Codes as units 2 - utf8';
is EVAL('substr $u, 3.as(Bytes), 1.as(Graphs)'), "\x[41, 0300]", 'substr with Bytes and Graphs as units 1 - utf8';
is EVAL('substr $u, 3.as(Graphs), 1.as(Bytes)'), "\x[41]", 'substr with Bytes and Graphs as units 2 - utf8';


#vim: ft=perl6

0 comments on commit 79a7dc0

Please sign in to comment.