Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[t/spec/S04] change ?: to ??!!

git-svn-id: http://svn.pugscode.org/pugs@28012 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit fd2754ce93ed717fab7e513050d02eb2bcb3ba8c 1 parent 7f910be
lwall authored
View
4 S04-closure-traits/enter-leave.t
@@ -115,9 +115,9 @@ plan 19;
{
my $str;
{
- LEAVE { $str ~= (defined $! ? 'yes' : 'no') }
+ LEAVE { $str ~= (defined $! ?? 'yes' !! 'no') }
try { die 'foo' }
- $str ~= (defined $! ? 'aye' : 'nay');
+ $str ~= (defined $! ?? 'aye' !! 'nay');
}
is $str, 'ayeno', '$! not set in LEAVE if exception not thrown';
}
View
4 S04-closure-traits/pre-post.t
@@ -186,9 +186,9 @@ dies_ok { $pt.test(1) }, 'POST receives return value as $_ (failure)';
{
my $str;
try {
- POST { $str ~= (defined $! ? 'yes' : 'no'); 1 }
+ POST { $str ~= (defined $! ?? 'yes' !! 'no'); 1 }
try { die 'foo' }
- $str ~= (defined $! ? 'aye' : 'nay');
+ $str ~= (defined $! ?? 'aye' !! 'nay');
}
is $str, 'ayeno', 'POST has undef $! on no exception';
}
Please sign in to comment.
Something went wrong with that request. Please try again.