Permalink
Browse files

partial niecza fudge

  • Loading branch information...
1 parent 9c17d2a commit 6312c187880ad4e8da1cde7df665f6f17ad9f501 @coke coke committed Dec 4, 2013
Showing with 4 additions and 0 deletions.
  1. +1 −0 S02-types/bag.t
  2. +1 −0 S02-types/parcel.t
  3. +1 −0 S03-metaops/cross.t
  4. +1 −0 S03-metaops/zip.t
View
@@ -325,6 +325,7 @@ sub showkv($x) {
# L<S32::Containers/Bag/pickpairs>
+#?niecza skip ".pickpairs NYI"
{
my $b = Bag.new("a", "b", "b");
View
@@ -20,6 +20,7 @@ is +<5 7 8>, 3, 'prefix:<+> on an angle bracket Parcel';
is ~<5 7 8>, '5 7 8', 'prefix:<~> on an angle bracket Parcel';
is <5 7 8>.Str, '5 7 8', '.Str on an angle bracket Parcel';
+#?niecza 3 skip ".Parcel NYI"
isa_ok (5, 7, 8).Parcel, Parcel, '.Parcel returns an parcel';
is (5, 7, 8).Parcel, [5,7,8], '.Parcel contains the right items';
is (5, 7, 8).Parcel.elems, 3, '.Parcel contains the right number of elements';
View
@@ -69,6 +69,7 @@ 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 skip 'Unable to resolve method postcircumfix:<( )> in type Any'
is (1,2 Xcmp 3,2,0), (Order::Less, Order::Less, Order::More, Order::Less, Order::Same, Order::More), 'Xcmp works';
# L<S03/Cross operators/underlying operator non-associating>
View
@@ -15,6 +15,7 @@ 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 skip 'Unable to resolve method postcircumfix:<( )> in type Any'
is (1,2 Zcmp 3,2,0), (Order::Less, Order::Same), 'zip-cmp works';
# tests for laziness

0 comments on commit 6312c18

Please sign in to comment.