Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

niecza fudge

  • Loading branch information...
commit b2579717eba8dfa99459752b6a8cb1c690b80e2b 1 parent 17c6249
Will Coleda coke authored
1  S03-metaops/cross.t
View
@@ -69,7 +69,6 @@ ok eval('<a b> X, <c d>'), 'cross metaoperator parses';
# L<S03/Cross operators/any existing non-mutating infix operator>
is (1,2 X* 3,4), (3,4,6,8), 'cross-product works';
-#?niecza todo
is (1,2 Xcmp 3,2,0), (-1, -1, 1, -1, 0, 1), 'Xcmp works';
# L<S03/Cross operators/underlying operator non-associating>
1  S03-metaops/zip.t
View
@@ -15,7 +15,6 @@ is (<a b> Z~ <1 2>), <a1 b2>, 'zip-concat produces expected result';
is (1,2 Z* 3,4), (3,8), 'zip-product works';
-#?niecza todo
is (1,2 Zcmp 3,2,0), (-1, 0), 'zip-cmp works';
# tests for laziness
2  S03-operators/comparison-simple.t
View
@@ -29,7 +29,6 @@ is -1/2 <=> 1/2, -1, '-1/2 <=> 1/2 is increase';
is('a' leg 'a', 0, 'a leg a is same');
is('a' leg 'b', -1, 'a leg b is increase');
is('b' leg 'a', 1, 'b leg a is decrease');
-#?niecza todo
is('a' leg 1, 1, 'leg is in string context');
# cmp comparison
@@ -39,7 +38,6 @@ is('b' cmp 'a', 1, 'b cmp a is decrease');
is(1 cmp 1, 0, '1 cmp 1 is same');
is(1 cmp 2, -1, '1 cmp 2 is increase');
is(2 cmp 1, 1, '2 cmp 1 is decrease');
-#?niecza todo
is('a' cmp 1, 1, '"a" cmp 1 is decrease'); # unspecced but P5 behavior
done;
3  S10-packages/basic.t
View
@@ -66,11 +66,9 @@ is Simple::Bar.new.baz, 'hi', 'class test';
'WHO implementation with longname';
}
-#?niecza todo
eval_lives_ok 'package A1 { role B1 {}; class C1 does A1::B1 {}} ',
'can refer to role using package';
-#?niecza todo
{
eval_lives_ok '{package A2 { role B2 {}; class C2 does B2 {} }}',
'since role is in package should not need package name';
@@ -106,7 +104,6 @@ eval_lives_ok 'package A1 { role B1 {}; class C1 does A1::B1 {}} ',
eval_lives_ok '{ package C1Home { class Baz {} }; package C2Home { class Baz {} } }',
'two different packages should be two different Baz';
- #?niecza todo
eval_lives_ok '{ package E1Home { enum EHomeE <a> }; package E2Home { role EHomeE {}; class EHomeC does E2Home::EHomeE {} } }',
'two different packages should be two different EHomeE';
}
8 S32-str/indent.t
View
@@ -29,6 +29,7 @@ for 1..4 -> $i {
for 1..4 -> $i {
for (' ', "\x[2000]") -> $prefix {
+ #?niecza skip 'Unable to resolve method fmt in class Int'
is ($prefix ~ 'quack').indent($i).perl,
($prefix x ($i + 1) ~ 'quack').perl,
"Same space - .indent($i) prefix={$prefix.ord.fmt('"\\x[%x]"')}";
@@ -41,6 +42,7 @@ is "\tquack".indent($tab),
for 1..$tab -> $i {
for (' ', "\t", "\x[2000]") -> $prefix {
+ #?niecza skip 'Unable to resolve method fmt in class Int'
is ($prefix ~ ' ' ~ 'quack').indent($i).perl,
($prefix ~ ' ' ~ (' ' x $i) ~ 'quack').perl,
"Mixed space - .indent($i) prefix={$prefix.ord.fmt('"\\x[%x]"')}";
@@ -64,13 +66,13 @@ is ' quack'.indent(-4),
# TODO: need a better way of detecting warn() calls, also need a test that it
# should only warn once per .indent call
+#?niecza todo 'Excess outdent test for warning'
given 'Excess outdent test for warning' -> $test {
- ' quack'.indent(-4);
+' quack'.indent(-4);
flunk $test;
CATCH { pass $test; }
}
-
# Whatever-star
is " quack\n meow\n helicopter fish".indent(*).perl,
@@ -121,11 +123,11 @@ is "\tquack\nmeow".indent($tab),
# Misc
-
is "\ta\n b".indent(0),
"\ta\n b",
'.indent(0) should be a no-op';
+#?niecza skip "weird scalar input"
is "\ta\n b".indent(1).indent(16).indent(0).indent(*).perl,
"\ta\n b".indent(True).indent('0x10').indent('blah').indent(*).perl,
'.indent accepts weird scalar input and coerces it to Int when necessary';
Please sign in to comment.
Something went wrong with that request. Please try again.