Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[gsoc_spectest] fixed function misuse spotted by moritz++

git-svn-id: http://svn.pugscode.org/pugs@20867 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit fbaed8be9bbb05c13c81eac661db7f19632591ba 1 parent ece0ae8
Auzon authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 S02-builtin_data_types/type.t
6 S02-builtin_data_types/type.t
View
@@ -22,7 +22,7 @@ ok(do{my Str $bar; $bar ~~ Str}, 'Str $bar isa Str');
my Int $foo;
my Str $bar;
-#?rakudo skip 'type checking unimpl'
+#?rakudo skip 'try{} does not keep test from failing'
{
#?pugs 1 todo
is(try{$foo = 'xyz'}, undef, 'Int restricts to integers');
@@ -36,8 +36,8 @@ my Str $bar;
# L<S02/Built-In Data Types/Variables with native types do not support undefinedness>
#?rakudo skip 'int, num, undef assign not implemented'
{
- eval_dies_ok({my int $alpha = undef}, 'native int type cannot be undef');
+ eval_dies_ok('my int $alpha = undef', 'native int type cannot be undef');
lives_ok({my Int $beta = undef}, 'object Int type can be undef');
- eval_dies_ok({my num $alpha = undef}, 'native num type cannot be undef');
+ eval_dies_ok('my num $alpha = undef', 'native num type cannot be undef');
lives_ok({my Num $beta = undef}, 'object Num type can be undef');
}
Please sign in to comment.
Something went wrong with that request. Please try again.