Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 174 lines (139 sloc) 4.687 kb
58135b3 [t/spec] changed 'use v6-alpha;' to 'use v6;'
moritz authored
1 use v6;
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
2
3 use Test;
4
10afb2d @TimToady MONGOLIAN VOWEL SEPARATOR moved from Zs to Cf
TimToady authored
5 plan 50;
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
6
0bb81f8 @FROGGS eval => EVAL in S02, take 1
FROGGS authored
7 sub try_eval($str) { try EVAL $str }
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
8
0b24db8 @diakopter fix a lot of smartlinks in S02; some I broke and some bitrotten by vario...
diakopter authored
9 # L<S02/"Unicode Semantics"/"Unicode horizontal whitespace">
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
10
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
11 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
12 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
13 '), "b", "CHARACTER TABULATION");
14
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
15 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
16 my
17 @x
6f48522 [t/spec]: Clean up unicode whitespace tests
pmichaud authored
18 =
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
19 <a
20 b
21 c>;
22 sub
23 y
24 (@z)
25 {
26 @z[1]
27 };
28 y(@x)
29 '), "b", "LINE FEED (LF)");
30
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
31 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
32 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
33 '), "b", "LINE TABULATION");
34
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
35 is(try_eval('
6f48522 [t/spec]: Clean up unicode whitespace tests
pmichaud authored
36 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
37 '), "b", "FORM FEED (FF)");
38
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
39 is(try_eval('
6f48522 [t/spec]: Clean up unicode whitespace tests
pmichaud authored
40 my
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
41 @x
42 =
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
43 <a
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
44 b
45 c>;
46 sub
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
47 y
6f48522 [t/spec]: Clean up unicode whitespace tests
pmichaud authored
48 (@z)
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
49 {
50 @z[1]
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
51 };
08f409e @FROGGS RT #122285 tests for not breaking on nbsp
FROGGS authored
52 y(@x)
53 '), "b", "CARRIAGE RETURN (CR)");
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
54
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
55 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
56 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
57 '), "b", "SPACE");
58
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
59 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
60 my…@x… =…<a…b…c>;…sub…y…(@z)…{…@z[1]…};…y(@x)
61 '), "b", "NEXT LINE (NEL)");
62
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
63 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
64 my @x = <a b c>; sub y (@z) { @z[0] }; y(@x)
65 '), "a b c", "NO-BREAK SPACE");
66
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
67 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
68 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
69 '), "b", "OGHAM SPACE MARK");
70
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
71 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
72 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
73 '), "b", "EN QUAD");
74
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
75 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
76 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
77 '), "b", "EM QUAD");
78
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
79 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
80 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
81 '), "b", "EN SPACE");
82
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
83 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
84 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
85 '), "b", "EM SPACE");
86
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
87 is(try_eval('
08f409e @FROGGS RT #122285 tests for not breaking on nbsp
FROGGS authored
88 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
89 '), "b", "THREE-PER-EM SPACE");
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
90
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
91 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
92 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
93 '), "b", "FOUR-PER-EM SPACE");
94
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
95 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
96 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
97 '), "b", "SIX-PER-EM SPACE");
98
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
99 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
100 my @x = <a b c>; sub y (@z) { @z[0] }; y(@x)
101 '), "a b c", "FIGURE SPACE");
102
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
103 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
104 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
105 '), "b", "PUNCTUATION SPACE");
106
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
107 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
108 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
109 '), "b", "THIN SPACE");
110
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
111 is(try_eval('
08f409e @FROGGS RT #122285 tests for not breaking on nbsp
FROGGS authored
112 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
113 '), "b", "HAIR SPACE");
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
114
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
115 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
116 my
@x
=
<a
b
c>;
sub
y
(@z)
{
@z[1]
};
y(@x)
117 '), "b", "LINE SEPARATOR");
118
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
119 is(try_eval('
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
120 my
@x
=
<a
b
c>;
sub
y
(@z)
{
@z[1]
};
y(@x)
121 '), "b", "PARAGRAPH SEPARATOR");
122
123 is(try_eval('
124 my @x = <a b c>; sub y (@z) { @z[0] }; y(@x)
125 '), "a b c", "NARROW NO-BREAK SPACE");
f147a0e [t/spec] get rid of an instace of "is also"
moritz authored
126
6ef12bd [unspace.t, unicode-whitespace.t] move to t/spec/S02-whitespace_and_comm...
rhr authored
127 is(try_eval('
128 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
129 '), "b", "MEDIUM MATHEMATICAL SPACE");
130
131 is(try_eval('
0b24db8 @diakopter fix a lot of smartlinks in S02; some I broke and some bitrotten by vario...
diakopter authored
132 my @x = <a b c>; sub y (@z) { @z[1] }; y(@x)
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
133 '), "b", "IDEOGRAPHIC SPACE");
134
f147a0e [t/spec] get rid of an instace of "is also"
moritz authored
135 #Long dot whitespace tests
263189e @sorear [.../unicode-whitespace] Refudge, s/skip/todo/
sorear authored
136 #These currently get different results than the above
137
138 #This makes 'foo.lc' and 'foo .lc' mean different things
139 multi foo() { 'a' }
140 multi foo($x) { $x }
141
142 $_ = 'b';
143
144 # L<S02/"Unicode Semantics"/"Unicode horizontal whitespace">
145 is(try_eval('foo\ .lc'), 'a', 'long dot with CHARACTER TABULATION');
146 is(try_eval('foo\
147 .lc'), 'a', 'long dot with LINE FEED (LF)');
148 is(try_eval('foo\ .lc'), 'a', 'long dot with LINE TABULATION');
149 is(try_eval('foo\ .lc'), 'a', 'long dot with FORM FEED (FF)');
150 is(try_eval('foo\
151 .lc'), 'a', 'long dot with CARRIAGE RETURN (CR)');
152 is(try_eval('foo\ .lc'), 'a', 'long dot with SPACE');
153 is(try_eval('foo\….lc'), 'a', 'long dot with NEXT LINE (NEL)');
154 is(try_eval('foo\ .lc'), 'a', 'long dot with NO-BREAK SPACE');
155 is(try_eval('foo\ .lc'), 'a', 'long dot with OGHAM SPACE MARK');
156 is(try_eval('foo\ .lc'), 'a', 'long dot with EN QUAD');
157 is(try_eval('foo\ .lc'), 'a', 'long dot with EM QUAD');
158 is(try_eval('foo\ .lc'), 'a', 'long dot with EN SPACE');
f147a0e [t/spec] get rid of an instace of "is also"
moritz authored
159 is(try_eval('foo\ .lc'), 'a', 'long dot with EM SPACE');
160 is(try_eval('foo\ .lc'), 'a', 'long dot with THREE-PER-EM SPACE');
Something went wrong with that request. Please try again.