Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

nom fudge

  • Loading branch information...
commit 78058601214bab56f9f68ff955bd4adad67583a9 1 parent fe922ea
@coke coke authored
View
5 S02-builtin_data_types/lists.t
@@ -12,6 +12,7 @@ use Test;
plan 29;
# Indexing lists
+#?rakudo todo 'nom regression'
{
my $foo = 42;
@@ -28,6 +29,7 @@ plan 29;
}
# List construction does not create new containers
+#?rakudo todo 'nom regression'
{
my $foo = 42;
@@ -36,6 +38,7 @@ plan 29;
"list construction should not create new containers";
}
+#?rakudo todo 'nom regression'
{
my $foo = 42;
#?pugs todo 'unspecced'
@@ -149,8 +152,8 @@ plan 29;
# RT #66304
{
my $rt66304 = (1, 2, 4);
+ #?rakudo todo 'nom regression'
isa_ok $rt66304, Seq, 'List assigned to scalar is-a Seq';
- #?rakudo todo 'exact list type'
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
1  S06-operator-overloading/methods.t
@@ -11,6 +11,7 @@ class A {
};
# RT #69612
+#?rakudo todo 'nom regression'
is A.new(:attrs({ foo => "bar" }))<foo>,
'bar', 'custom postcircumfix{ } is tied to the right class';
View
2  S32-basics/warn.t
@@ -7,6 +7,7 @@ BEGIN { @*INC.push('t/spec/packages') };
use Test::Util;
+#?rakudo todo 'nom regression'
is_run 'use v6; warn; say "alive"',
{
status => 0,
@@ -15,6 +16,7 @@ is_run 'use v6; warn; say "alive"',
},
'warn() without arguments';
+#?rakudo todo 'nom regression'
is_run 'use v6; warn("OH NOEZ"); say "alive"',
{
status => 0,
View
2  S32-io/note.t
@@ -22,6 +22,7 @@ is_run( 'note "multiple", " ", "params"',
},
'note multiple parameters' );
+#?rakudo todo 'nom regression'
is_run( 'my @a = ("array", " of ", "params"); note @a',
{
status => 0,
@@ -38,6 +39,7 @@ is_run( 'my $a = <stringify args>; note $a',
},
'note an array reference' );
+#?rakudo todo 'nom regression'
is_run( '"method form".note',
{
status => 0,
View
4 S32-scalar/undef.t
@@ -188,9 +188,12 @@ Perl6-specific tests
{
my Array $an_ary;
ok(!defined($an_ary), "my Array");
+ #?rakudo todo 'nom regression'
ok((try { !defined($an_ary[0]) }), "my Array subscript - Mu");
try { $an_ary.push("blergh") };
+ #?rakudo todo 'nom regression'
ok((try { defined($an_ary.pop) }), "push");
+ #?rakudo todo 'nom regression'
ok((try { !defined($an_ary.pop) }), "comes to shove");
}
@@ -330,6 +333,7 @@ lives_ok { uc(eval("")) }, 'can use eval("") in further expressions';
{
sub def { my $x = [] } #OK not used
ok def() ~~ Array, 'sub returns array';
+ #?rakudo todo 'nom regression'
lives_ok { undefine def }, 'attempt to undefine returned array lives';
ok def() ~~ Array, 'sub still returns array';
View
1  integration/advent2009-day11.t
@@ -33,6 +33,7 @@ is $bob.name, 'Bob', 'dog walker has a name';
is $bob.dog_name, 'Fido', 'dog name can be accessed by delegation';
# RT 75180
+#?rakudo todo 'nom regression'
is Dog.^methods(:local).map({.name}).sort.join('|'),
'bark|name', 'can introspect Dog';
View
5 integration/error-reporting.t
@@ -13,12 +13,14 @@ is_run "use v6;\n'a' =~ /foo/", {
err => rx/line \s+ 2>>/
}, 'Parse error contains line number';
+#?rakudo todo 'nom regression'
is_run "my \$x = 2 * 3;\ndie \$x", {
status => { $_ != 0 },
out => '',
err => all(rx/6/, rx/'line 2'>>/),
}, 'Runtime error contains line number';
+#?rakudo todo 'nom regression'
is_run "use v6;\n\nsay 'Hello';\nsay 'a'.my_non_existent_method_6R5();",
{
status => { $_ != 0 },
@@ -27,6 +29,7 @@ is_run "use v6;\n\nsay 'Hello';\nsay 'a'.my_non_existent_method_6R5();",
}, 'Method not found error mentions method name and line number';
# RT #75446
+#?rakudo todo 'nom regression'
is_run 'use v6;
sub bar {
pfff();
@@ -48,11 +51,13 @@ bar()',
diag "Error message: $e";
ok $e ~~ /:i 'type check'/,
'subset type check fail mentions type check';
+ #?rakudo todo 'nom regression'
ok $e ~~ /:i constraint/,
'subset type check fail mentions constraint';
}
# RT #76112
+#?rakudo todo 'nom regression'
is_run 'use v6;
class A { has $.x is rw };
A.new.x(42);',
View
1  integration/weird-errors.t
@@ -6,6 +6,7 @@ use Test::Util;
plan 5;
# this used to segfault in rakudo
+#?rakudo todo 'nom regression'
is_run(
'try { 1/0 }; my $x = $!.WHAT; say ~$x',
{ status => 0, out => -> $o { $o.chars > 2 }},
Please sign in to comment.
Something went wrong with that request. Please try again.