Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Comparing changes

Choose two branches to see what's changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
...
  • 2 commits
  • 10 files changed
  • 0 commit comments
  • 1 contributor
View
2  S02-magicals/dollar-underscore.t
@@ -44,7 +44,7 @@ for @list -> $letter {
lives_ok { for @mutable_array { $_++ } }, 'default topic is rw by default';
}
-#?rakudo skip 'nom regression'
+#?rakudo skip 'nom regression RT #113904'
{
$_ = 1;
my $tracker = '';
View
6 S02-types/array_ref.t
@@ -7,10 +7,8 @@ plan 45;
# array_ref of strings
my $array_ref1 = ("foo", "bar", "baz");
-#?rakudo todo 'Seq'
-#?niecza skip 'Seq NYI'
-#?pugs skip 'Seq'
-isa_ok($array_ref1, Seq);
+#?pugs todo 'Array, not parcel'
+isa_ok($array_ref1, Parcel);
is(+$array_ref1, 3, 'the array_ref1 has 3 elements');
is($array_ref1[0], 'foo', 'got the right value at array_ref1 index 0');
View
10 S02-types/lists.t
@@ -147,9 +147,9 @@ plan 28;
dies_ok { <1 2 3>.rt62836 },
'call to user-declared sub in Parcel:: class dies';
try { eval '<1 2 3>.rt62836' };
- #?pugs 3 todo
+ #?pugs 2 todo
ok "$!" ~~ /rt62836/, 'error message contains name of sub';
- ok "$!" ~~ /Seq|Parcel/, 'error message contains name of class';
+ ok "$!" ~~ /Parcel/, 'error message contains name of class';
#?pugs emit #
augment class Parcel { method rt62836_x { 62836 } };
@@ -158,12 +158,10 @@ plan 28;
}
# RT #66304
-#?niecza skip 'Undeclared name: "Seq"'
-#?pugs skip 'Seq'
+#?pugs todo
{
my $rt66304 = (1, 2, 4);
- #?rakudo todo 'nom regression'
- isa_ok $rt66304, Seq, 'List assigned to scalar is-a Seq';
+ isa_ok $rt66304, Parcel, 'List assigned to scalar is-a Parcel';
is( $rt66304.WHAT, (1, 2, 4).WHAT,
'List.WHAT is the same as .WHAT of list assigned to scalar' );
dies_ok { $rt66304[1] = 'ro' }, 'literal List element is immutable';
View
5 S02-types/sigils-and-types.t
@@ -2,8 +2,7 @@ use v6;
use Test;
-
-plan 29;
+plan 28;
my $scalar;
ok $scalar.WHAT === Any, 'unitialized $var does Mu';
@@ -26,8 +25,6 @@ ok $scalar ~~ Any, 'value contained in a $var does Mu';
}
ok eval('List').does(Positional), "List does Positional";
-#?niecza skip 'Undeclared name Seq'
-ok eval('Seq').does(Positional), "Seq does Positional";
ok eval('Array').does(Positional), "Array does Positional";
ok eval('Range').does(Positional), "Range does Positional";
ok eval('Parcel').does(Positional), "Parcel does Positional";
View
20 S02-types/subset.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 46;
+plan 43;
=begin description
@@ -91,24 +91,6 @@ dies_ok { my Digit $x = 3.1 },
'subset of pair with where enforces where clause';
}
-#?niecza skip 'Seq NYI'
-{
- #?rakudo todo 'Seq not implemented in nom'
- subset Subseq of Seq;
- #?pugs todo
- lives_ok { my Subseq $tsil = <a b c>.Seq },
- 'can create subset of Seq';
-
-
- #?rakudo todo 'Seq not yet implemented in nom'
- subset FewOdds of Seq where { 2 > .grep: { $_ % 2 } }
- #?pugs todo
- lives_ok { my FewOdds $fe = <78 99 24 36>.Seq },
- 'can create subset of Seq with where';
- dies_ok { my FewOdds $bomb = <78 99 24 36 101>.Seq },
- 'subset of Seq with where enforces where';
-}
-
{
my subset Str_not2b of Str where /^[isnt|arent|amnot|aint]$/;
my Str_not2b $text;
View
8 S02-types/type.t
@@ -9,7 +9,7 @@ Basic tests about variables having built-in types assigned
# L<S02/"Types as Constraints"/"A variable's type is a constraint indicating what sorts">
-plan 51;
+plan 50;
{
ok(try {my Int $foo; 1}, 'compile my Int $foo');
@@ -150,10 +150,8 @@ dies_ok { my Num $n; $n = 42; }, 'Num does not accept Int';
ok Numeric !~~ Int, 'Numeric !~~ Int';
ok Array ~~ List, 'Array is a kind of List';
- ok List !~~ Array, 'A Seq is not an Array';
- #?niecza skip 'Expecting a term'
- #?pugs 2 skip "Positional"
- ok Seq ~~ Positional, 'A Seq does Positional';
+ ok List !~~ Array, 'A List is not an Array';
+ #?pugs skip "Positional"
ok Array ~~ Positional, 'Array does Positional too';
}
View
11 S03-operators/context.t
@@ -45,14 +45,11 @@ plan 32;
is(item($a), $a, 'item($a) is just $a');
is($($a), $a, '$($a) is just $a');
- #?niecza 3 skip 'Undeclared name Seq'
- #?rakudo 3 todo 'Seq'
- #?pugs 3 skip 'Seq'
- isa_ok((item $a, $b).WHAT, Seq, '(item $a, $b) makes a Seq');
- isa_ok(item($a, $b).WHAT, Seq, 'item $a, $b makes a Seq');
- isa_ok($($a, $b).WHAT, Seq, '$ $a, $b makes a Seq');
+ #?niecza 4 skip 'Excess arguments to item, used 1 of 2 positionals'
+ isa_ok((item $a, $b).WHAT, Array, '(item $a, $b) makes an Array');
+ isa_ok(item($a, $b).WHAT, Array, 'item $a, $b makes an Array');
+ isa_ok($($a, $b).WHAT, Parcel, '$ $a, $b makes a Parcel');
my @array = ($a, $b);
- #?niecza skip 'Excess arguments to item, used 1 of 2 positionals'
is((item $a, $b), @array, 'item($a, $b) is the same as <<$a $b>> in an array');
}
View
16 S12-class/open.t
@@ -2,7 +2,7 @@ use v6;
use MONKEY_TYPING;
use Test;
-plan 10;
+plan 8;
# L<S12/Open vs Closed Classes>
@@ -56,20 +56,6 @@ is $x.in_Something, 'ab', 'basic OO sanity';
is 3.triple, 9, 'can extend Int';
}
-#?rakudo skip "Soft area of spec"
-#?niecza skip 'Seq NYI'
-{
- augment class Seq {
- method first-and-last {
- self[0] ~ self[self - 1]
- }
- }
-
- is <a b c d e f>.Seq.first-and-last, 'af', 'can extend class Seq';
- my @a = 1, 3, 7, 0;
- is @a.first-and-last, '10', 'can call extended methods from child classes';
-}
-
{
augment class Array {
method last-and-first {
View
16 S12-construction/construction.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 19;
+plan 15;
# L<S12/"Construction and Initialization">
@@ -65,20 +65,6 @@ is Foo.new("a string").a, 'a string', "our own 'new' was called";
is $foo.x[0], 3, "... and keeps its value properly."
}
-# Test for a bug fixed in Rakudo 037775eb.
-{
- class SeqAttr { has $.x };
- my $f = { SeqAttr.new: :$^x };
-
- my $o = $f(<a b>);
- isa_ok $o, SeqAttr, 'Created SeqAttr object';
- #?rakudo todo 'Seq'
- #?niecza skip 'Seq NYI'
- isa_ok $o.x, Seq, '...with a Seq attribute';
- is ($o.x)[0], 'a', '...with the right first element';
- is ($o.x)[1], 'b', '...and the right second element.';
-}
-
# RT #64116
#?niecza skip 'System.NullReferenceException: Object reference not set to an instance of an object'
{
View
19 S32-container/zip.t
@@ -11,7 +11,7 @@ The zip() builtin and operator tests
# L<S03/"Traversing arrays in parallel">
# L<S32::Containers/Container/"=item zip">
-plan 12;
+plan 10;
{
my @a = (0, 2, 4);
@@ -36,22 +36,6 @@ plan 12;
is(~(@a Z @b Z @c), ~@e, "also with Z char");
};
-#?rakudo skip 'Seq'
-#?niecza skip 'Seq & Slicel lists are NYI'
-{
- my @a = (0, 4);
- my @b = (2, 6);
- my @c = (1, 3, 5, 7);
-
- # [((0, 2), 1), ((4, 6), 3), (Mu, 5), (Mu, 7)]
- my $todo = 'Seq(Seq(0,2),1), Seq(Seq(0,2),1), Seq(Mu,5), Seq(Mu,7)';
- my @e = eval $todo;
-
-#?pugs 2 todo 'needs Seq'
- is(~zip(zip(@a; @b); @c), ~@e, "zip of zipped arrays with other array");
- is(~((@a Z @b) Z @c), ~@e, "also as Z");
-};
-
{
my @a = (0, 2);
my @b = (1, 3, 5);
@@ -67,7 +51,6 @@ plan 12;
my @b;
(@a Z @b) = (1, 2, 3, 4);
- # XXX - The arrays below are most likely Seq's
#?pugs todo 'unimpl'
is(@a, [1, 3], "first half of two zipped arrays as lvalues");
#?pugs todo 'unimpl'

No commit comments for this range

Something went wrong with that request. Please try again.