Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Use unique ticket number for similiar tests
  • Loading branch information
usev6 committed May 9, 2015
1 parent 45947e0 commit 43e86ad
Showing 1 changed file with 7 additions and 7 deletions.
14 changes: 7 additions & 7 deletions S06-signature/definite-return.t
Expand Up @@ -16,7 +16,7 @@ plan 9;
ok return-nil() =:= Nil, 'A function with a definite return value should ignore the result of its last statement';
}

#?rakudo skip 'definite values as return specifications dont parse yet RT #124928'
#?rakudo skip 'definite values as return specifications dont parse yet RT #124927'
{
my sub return-two(--> 2) {
3
Expand All @@ -25,7 +25,7 @@ plan 9;
is return-two(), 2, 'A function with a non-Nil definite return value should ignore the result of its last statement';
}

#?rakudo skip 'definite values as return specifications dont parse yet RT #124929'
#?rakudo skip 'definite values as return specifications dont parse yet RT #124927'
{
my $code = q:to/PERL/;
my sub return-nil(--> Nil) {
Expand All @@ -35,7 +35,7 @@ PERL
eval_dies_ok($code, 'A function with a definite return value may not use return with a value')
}

#?rakudo skip 'definite values as return specifications dont parse yet RT #124930'
#?rakudo skip 'definite values as return specifications dont parse yet RT #124927'
{
my $code = q:to/PERL/;
my sub return-failure(--> Nil) {
Expand All @@ -45,7 +45,7 @@ PERL
eval_dies_ok($code, 'A function with a definite return value may not use return with a value, even a Failure')
}

#?rakudo skip 'definite values as return specifications dont parse yet RT #124931'
#?rakudo skip 'definite values as return specifications dont parse yet RT #124927'
{
my sub fail-five(--> 5) {
fail 5
Expand All @@ -56,7 +56,7 @@ PERL
ok $failure === Failure, 'Failures bypass the return value of function with a definite return value in the signature';
}

#?rakudo skip 'definite values as return specifications dont parse yet RT #124932'
#?rakudo skip 'definite values as return specifications dont parse yet RT #124927'
{
my sub return-six(--> 6) {
return
Expand All @@ -66,7 +66,7 @@ PERL
}


#?rakudo skip 'definite values as return specifications dont parse yet RT #124933'
#?rakudo skip 'definite values as return specifications dont parse yet RT #124927'
{
my sub return-seven(--> $result) {
$result = 7;
Expand All @@ -77,7 +77,7 @@ PERL
}


#?rakudo skip 'definite values as return specifications dont parse yet RT #124934'
#?rakudo skip 'definite values as return specifications dont parse yet RT #124927'
{
my $result = 9;

Expand Down

0 comments on commit 43e86ad

Please sign in to comment.