Permalink
Browse files

niecza unfudge

  • Loading branch information...
1 parent 484d409 commit 2788c08792b2a900b8f8917d30a0f6114a2a1fb4 @coke coke committed Dec 27, 2011
Showing with 0 additions and 41 deletions.
  1. +0 −40 S02-lexical-conventions/unicode-whitespace.t
  2. +0 −1 S02-lexical-conventions/unicode.t
View
40 S02-lexical-conventions/unicode-whitespace.t
@@ -32,7 +32,6 @@ is(try_eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "LINE TABULATION");
-#?niecza todo 'Malformed my'
is(try_eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "FORM FEED (FF)");
@@ -45,97 +44,78 @@ is(try_eval('
b
c>;
sub
-y
y
(@z)
{
@z[1]
-y(@x)
};
y(@x)
'), "b", "CARRIAGE RETURN (CR)");
-'), "b", "SPACE");
is(try_eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "SPACE");
-'), "b", "NEXT LINE (NEL)");
is(try_eval('
my…@x… =…<a…b…c>;…sub…y…(@z)…{…@z[1]…};…y(@x)
'), "b", "NEXT LINE (NEL)");
-'), "b", "NO-BREAK SPACE");
is(try_eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "NO-BREAK SPACE");
-'), "b", "OGHAM SPACE MARK");
is(try_eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "OGHAM SPACE MARK");
-'), "b", "MONGOLIAN VOWEL SEPARATOR");
is(try_eval('
my᠎@x᠎=᠎<a᠎b᠎c>;᠎sub᠎y᠎(@z)᠎{᠎@z[1]᠎};᠎y(@x)
'), "b", "MONGOLIAN VOWEL SEPARATOR");
-'), "b", "EN QUAD");
is(try_eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "EN QUAD");
-'), "b", "EM QUAD");
is(try_eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "EM QUAD");
-'), "b", "EN SPACE");
is(try_eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "EN SPACE");
-'), "b", "EM SPACE");
is(try_eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "EM SPACE");
-'), "b", "THREE-PER-EM SPACE");
is(try_eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "THREE-PER-EM SPACE");
-'), "b", "FOUR-PER-EM SPACE");
is(try_eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "FOUR-PER-EM SPACE");
-'), "b", "SIX-PER-EM SPACE");
is(try_eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "SIX-PER-EM SPACE");
-'), "b", "FIGURE SPACE");
is(try_eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "FIGURE SPACE");
-'), "b", "PUNCTUATION SPACE");
is(try_eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "PUNCTUATION SPACE");
-'), "b", "THIN SPACE");
is(try_eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "THIN SPACE");
-'), "b", "HAIR SPACE");
is(try_eval('
my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
'), "b", "HAIR SPACE");
-'), "b", "LINE SEPARATOR");
is(try_eval('
my
@x
=
<a
b
c>;
sub
y
(@z)
{
@z[1]
};
y(@x)
'), "b", "LINE SEPARATOR");
@@ -158,47 +138,27 @@ is(try_eval('foo\ .lc'), 'a', 'long dot with CHARACTER TABULATION');
#Long dot whitespace tests
#These currently get different results than the above
-
#This makes 'foo.lc' and 'foo .lc' mean different things
multi foo() { 'a' }
-
multi foo($x) { $x }
-
-is(try_eval('foo\ .lc'), 'a', 'long dot with CHARACTER TABULATION');
$_ = 'b';
-.lc'), 'a', 'long dot with LINE FEED (LF)');
-#?niecza todo 'Confused'
# L<S02/"Unicode Semantics"/"Unicode horizontal whitespace">
-is(try_eval('foo\
is(try_eval('foo\ .lc'), 'a', 'long dot with CHARACTER TABULATION');
-is(try_eval('foo\ .lc'), 'a', 'long dot with SPACE');
is(try_eval('foo\
-is(try_eval('foo\….lc'), 'a', 'long dot with NEXT LINE (NEL)');
.lc'), 'a', 'long dot with LINE FEED (LF)');
-is(try_eval('foo\ .lc'), 'a', 'long dot with NO-BREAK SPACE');
is(try_eval('foo\ .lc'), 'a', 'long dot with LINE TABULATION');
-is(try_eval('foo\ .lc'), 'a', 'long dot with OGHAM SPACE MARK');
is(try_eval('foo\ .lc'), 'a', 'long dot with FORM FEED (FF)');
-is(try_eval('foo\᠎.lc'), 'a', 'long dot with MONGOLIAN VOWEL SEPARATOR');
is(try_eval('foo\
-is(try_eval('foo\ .lc'), 'a', 'long dot with EN QUAD');
.lc'), 'a', 'long dot with CARRIAGE RETURN (CR)');
-is(try_eval('foo\ .lc'), 'a', 'long dot with EM QUAD');
is(try_eval('foo\ .lc'), 'a', 'long dot with SPACE');
-is(try_eval('foo\ .lc'), 'a', 'long dot with EN SPACE');
is(try_eval('foo\….lc'), 'a', 'long dot with NEXT LINE (NEL)');
-is(try_eval('foo\ .lc'), 'a', 'long dot with EM SPACE');
is(try_eval('foo\ .lc'), 'a', 'long dot with NO-BREAK SPACE');
-is(try_eval('foo\ .lc'), 'a', 'long dot with THREE-PER-EM SPACE');
is(try_eval('foo\ .lc'), 'a', 'long dot with OGHAM SPACE MARK');
-is(try_eval('foo\ .lc'), 'a', 'long dot with FOUR-PER-EM SPACE');
is(try_eval('foo\᠎.lc'), 'a', 'long dot with MONGOLIAN VOWEL SEPARATOR');
-is(try_eval('foo\ .lc'), 'a', 'long dot with SIX-PER-EM SPACE');
is(try_eval('foo\ .lc'), 'a', 'long dot with EN QUAD');
-is(try_eval('foo\ .lc'), 'a', 'long dot with FIGURE SPACE');
is(try_eval('foo\ .lc'), 'a', 'long dot with EM QUAD');
is(try_eval('foo\ .lc'), 'a', 'long dot with EN SPACE');
is(try_eval('foo\ .lc'), 'a', 'long dot with EM SPACE');
View
1 S02-lexical-conventions/unicode.t
@@ -110,7 +110,6 @@ is((do { my $दूसरा = 2; sub टोटल ($x) { $x + 2 }; टोटल
# L<S02/Unicode Semantics/Perl can count Unicode line and paragraph separators>
#?rakudo: todo 'PS does not work to separate lines'
-#?niecza todo 'PS does not work to separate lines'
eval_lives_ok "\{ 1 \} \x2029 \{ 1 \}", "Unicode 2029 can terminate lines";
# L<S02/Bracketing Characters/If a character is already used>

0 comments on commit 2788c08

Please sign in to comment.