Permalink
Browse files

[t/spec] get rid of an instace of "is also"

git-svn-id: http://svn.pugscode.org/pugs@26749 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent b87c0d8 commit f147a0eea6b86c101d06000f3e6310c5aec79b3e moritz committed May 10, 2009
Showing with 29 additions and 31 deletions.
  1. +29 −31 S02-whitespace_and_comments/unicode-whitespace.t
@@ -125,41 +125,39 @@ my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
#Long dot whitespace tests
#These currently get different results than the above
-class Str is also {
- method id() { self }
-}
-
-#This makes 'foo.id' and 'foo .id' mean different things
+#This makes 'foo.lc' and 'foo .lc' mean different things
multi foo() { 'a' }
multi foo($x) { $x }
$_ = 'b';
# L<S02/"Lexical Conventions"/"Unicode horizontal whitespace">
-is(eval('foo\ .id'), 'a', 'long dot with CHARACTER TABULATION');
+is(eval('foo\ .lc'), 'a', 'long dot with CHARACTER TABULATION');
is(eval('foo\
-.id'), 'a', 'long dot with LINE FEED (LF)');
-is(eval('foo\ .id'), 'a', 'long dot with LINE TABULATION');
-is(eval('foo\ .id'), 'a', 'long dot with FORM FEED (FF)');
-is(eval('foo\.id'), 'a', 'long dot with CARRIAGE RETURN (CR)');
-is(eval('foo\ .id'), 'a', 'long dot with SPACE');
-is(eval('foo\….id'), 'a', 'long dot with NEXT LINE (NEL)');
-is(eval('foo\ .id'), 'a', 'long dot with NO-BREAK SPACE');
-is(eval('foo\ .id'), 'a', 'long dot with OGHAM SPACE MARK');
-is(eval('foo\᠎.id'), 'a', 'long dot with MONGOLIAN VOWEL SEPARATOR');
-is(eval('foo\ .id'), 'a', 'long dot with EN QUAD');
-is(eval('foo\ .id'), 'a', 'long dot with EM QUAD');
-is(eval('foo\ .id'), 'a', 'long dot with EN SPACE');
-is(eval('foo\ .id'), 'a', 'long dot with EM SPACE');
-is(eval('foo\ .id'), 'a', 'long dot with THREE-PER-EM SPACE');
-is(eval('foo\ .id'), 'a', 'long dot with FOUR-PER-EM SPACE');
-is(eval('foo\ .id'), 'a', 'long dot with SIX-PER-EM SPACE');
-is(eval('foo\ .id'), 'a', 'long dot with FIGURE SPACE');
-is(eval('foo\ .id'), 'a', 'long dot with PUNCTUATION SPACE');
-is(eval('foo\ .id'), 'a', 'long dot with THIN SPACE');
-is(eval('foo\ .id'), 'a', 'long dot with HAIR SPACE');
-is(eval('foo\
.id'), 'a', 'long dot with LINE SEPARATOR');
-is(eval('foo\
.id'), 'a', 'long dot with PARAGRAPH SEPARATOR');
-is(eval('foo\ .id'), 'a', 'long dot with NARROW NO-BREAK SPACE');
-is(eval('foo\ .id'), 'a', 'long dot with MEDIUM MATHEMATICAL SPACE');
-is(eval('foo\ .id'), 'a', 'long dot with IDEOGRAPHIC SPACE');
+.lc'), 'a', 'long dot with LINE FEED (LF)');
+is(eval('foo\ .lc'), 'a', 'long dot with LINE TABULATION');
+is(eval('foo\ .lc'), 'a', 'long dot with FORM FEED (FF)');
+is(eval('foo\.lc'), 'a', 'long dot with CARRIAGE RETURN (CR)');
+is(eval('foo\ .lc'), 'a', 'long dot with SPACE');
+is(eval('foo\….lc'), 'a', 'long dot with NEXT LINE (NEL)');
+is(eval('foo\ .lc'), 'a', 'long dot with NO-BREAK SPACE');
+is(eval('foo\ .lc'), 'a', 'long dot with OGHAM SPACE MARK');
+is(eval('foo\᠎.lc'), 'a', 'long dot with MONGOLIAN VOWEL SEPARATOR');
+is(eval('foo\ .lc'), 'a', 'long dot with EN QUAD');
+is(eval('foo\ .lc'), 'a', 'long dot with EM QUAD');
+is(eval('foo\ .lc'), 'a', 'long dot with EN SPACE');
+is(eval('foo\ .lc'), 'a', 'long dot with EM SPACE');
+is(eval('foo\ .lc'), 'a', 'long dot with THREE-PER-EM SPACE');
+is(eval('foo\ .lc'), 'a', 'long dot with FOUR-PER-EM SPACE');
+is(eval('foo\ .lc'), 'a', 'long dot with SIX-PER-EM SPACE');
+is(eval('foo\ .lc'), 'a', 'long dot with FIGURE SPACE');
+is(eval('foo\ .lc'), 'a', 'long dot with PUNCTUATION SPACE');
+is(eval('foo\ .lc'), 'a', 'long dot with THIN SPACE');
+is(eval('foo\ .lc'), 'a', 'long dot with HAIR SPACE');
+is(eval('foo\
.lc'), 'a', 'long dot with LINE SEPARATOR');
+is(eval('foo\
.lc'), 'a', 'long dot with PARAGRAPH SEPARATOR');
+is(eval('foo\ .lc'), 'a', 'long dot with NARROW NO-BREAK SPACE');
+is(eval('foo\ .lc'), 'a', 'long dot with MEDIUM MATHEMATICAL SPACE');
+is(eval('foo\ .lc'), 'a', 'long dot with IDEOGRAPHIC SPACE');
+
+# vim: ft=perl6

0 comments on commit f147a0e

Please sign in to comment.