Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Revert "refudged parrot blank chars - still failing, e.g.:"
This reverts commit 03f5fc7.
Accidently checked in other junk junk along with this refudge,
  • Loading branch information
dwarring committed Oct 25, 2014
1 parent d262e2e commit cb97064
Showing 1 changed file with 8 additions and 19 deletions.
27 changes: 8 additions & 19 deletions S05-mass/charsets.t
Expand Up @@ -20,7 +20,6 @@ plan 17;

is $latin-chars.comb(/<alnum>/).join, "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyzªµºÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþÿ", 'alnum chars';

#?rakudo.parrot todo 'blank characters'
is $latin-chars.comb(/<blank>/)>>.ord.join(","), '9,32,160', 'blank chars';

is $latin-chars.comb(/<cntrl>/)>>.ord.join(","), ((0..31, 127..159).join(",")), 'cntrl chars';
Expand All @@ -29,25 +28,15 @@ plan 17;
#?rakudo.jvm todo 'Unicode 6.3 -- lower characters'
is $latin-chars.comb(/<lower>/).join, "abcdefghijklmnopqrstuvwxyzµßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþÿ", 'lower chars';

# unicode 6.1 reclassifies punctuation characters, so actual results may vary depending
#++ FLAPPERS on jvm/parrot
# unicode 6.1 reclassifies § and ¶ as punctuation characters, so actual results may vary depending
# on unicode version bundled with jdk, icu etc.

my $punct-chars := q<!"#%&'()*,-./:;?@[\]_{}¡§«¶·»¿>;
my $punct-chars-pre61 := q<!"#$%&'()*+,-./:;<=>?@[\]^_`{|}~> ~ chr(160) ~ q<¡¢£¤¥¦§¨©«¬­®¯°±²³´¶·¸¹»¼½¾¿×÷>;
my $punct := $latin-chars.comb(/<punct>/).join;

#?rakudo.jvm todo "?"
ok ($punct eq $punct-chars || $punct eq $punct-chars-pre61), 'punct chars'
or diag "punct: $punct";
my @punct = $punct.comb;
my @punct-chars-pre61 = $punct-chars-pre61.comb;

$punct-chars := q<!"#%&'()*,-./:;?@[\]_{}¡§«¶·»¿>;
$punct-chars-pre61 := q<!"#%&'()*,-./:;?@[\]_{}¡«·»¿>;
$punct := $latin-chars.comb(/<:Punctuation>/).join;

ok $punct eq $punct-chars || $punct eq $punct-chars-pre61, ':Punctuation chars'
or diag ":Punctuation: $punct";
#?rakudo.parrot todo 'punct characters'
#?rakudo.jvm todo 'Unicode 6.1 -- punct characters'
is $latin-chars.comb(/<punct>/).join, q<!"#%&'()*,-./:;?@[\]_{}¡§«¶·»¿>, 'punct chars';
#?rakudo.jvm todo 'Unicode 6.1 -- :Punctuation characters'
is $latin-chars.comb(/<:Punctuation>/).join, q<!"#%&'()*,-./:;?@[\]_{}¡§«¶·»¿>, ':Punctuation chars';
#-- FLAPPERS

is $latin-chars.comb(/<upper>/).join, "ABCDEFGHIJKLMNOPQRSTUVWXYZÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞ", 'upper chars';

Expand Down

0 comments on commit cb97064

Please sign in to comment.