Context Navigation

range.t

Timestamp:

07/04/08 19:47:47 (5 months ago)

Author:

pmichaud

Message:

S02-builtin_data_types/range.t: update #?rakudo skips, note possible errors

Files:

r21168	r21226
78	78	is($r.to, 5, 'range.to');
79	79
80		~~#?rakudo 3 skip '.min, .max, .minmax on ranges'~~
81	80	is($r.min, 1, 'range.min');
82	81	is($r.max, 5, 'range.max');
83	82	is($r.minmax, [1,5], 'range.minmax');
84	83
85		#?rakudo 5 skip '.reverse on ranges'
	84	### pmichaud, 2008-07-04: XXX no spec for .reverse
	85	#?rakudo 5 skip '.reverse on ranges (test errors?)'
86	86	is($r.reverse.from, 5, 'range.reverse.from');
87	87	is($r.reverse.to, 1, 'range.reverse.to');
	88	### pmichaud, 2008-07-04: XXX doesn't test reversed min/max/minmax
88	89	is($r.min, 1, 'range.reverse.min');
89	90	is($r.max, 5, 'range.reverse.max');
…	…
97	98	is($r.to, 4.5, 'uneven range.to');
98	99
99		~~#?rakudo 3 skip '.min, .max, .minmax on range'~~
100	100	is($r.min, 1, 'range.min');
101	101	is($r.max, 4.5, 'range.max');
…	…
106	106	is($r.reverse.to, 1, 'uneven range.reverse.to');
107	107
108		~~#?rakudo 10 skip '.pop on ranges'~~
109	108	is($r.shift, 1, 'uneven range.shift (1)');
110	109	is($r.pop, 4.5, 'uneven range.pop (1)');
…	…
116	115	is($r.shift, 2, 'uneven range.shift (2)');
117	116	is($r.pop, 3.5, 'uneven range.pop (2)');
	117	#?rakudo skip 'XXX test error -- result should be undef?'
118	118	is($r.shift, 3, 'uneven range.shift (3)');
119	119	ok(!$r.pop, 'uneven range.pop (empty)');